vb题库库.doc

文档介绍：〖第1题〗『程序填空』(1分)(题号:59)
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
' 功能:输入一个数,若大于0,则显示"+";若小于0,
' 则显示"-";若等于"0",则显示"零"。
'-------------------------------------------------------
Private mand1_Click( )
x = Val()
Select Case x
'**********SPACE**********
【?】
= "+"
Case Is < 0
'**********SPACE**********
【?】
'**********SPACE**********
【?】
= "零"
End Select
End Sub
答案:
1). Case Is > 0
2). = "-"
3). Case 0 或 Case Else 或 Case Is = 0
〖第2题〗『程序填空』(1分)(题号:60)
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'功能:输入任何一个英文字母x,
' 若x的值为"a","c","d-f" ,则显示x的大写字母;
' 若x的值为"m","o","p-z",则显示x的小写字母;
' 若x的值为其它的值,则显示xa(如输入的X的值是g,则显示ga)。
'-------------------------------------------------------
Private mand1_Click()
x =
'**********SPACE**********
【?】
'**********SPACE**********
Case 【?】
= UCase(x)
Case "m", "o", "p" To "z"
= LCase(x)
Case Else
'**********SPACE**********
【?】
End Select
End Sub
答案:
1). Select Case x
2). "a", "c", "d" To "f"
3). = Trim(x) + "a" 或 = x + "a"
〖第3题〗『程序填空』(1分)(题号:36)
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'功能:以下程序的功能如(图1)。
'-------------------------------------------------------
Private Sub Form_Click()
Dim a%, b%, c%, d!
Dim x1, x2
Dim p, q, r
a = InputBox("请输入a的值")
b = InputBox("请输入b的值")
c = InputBox("请输入c的值")
d = b * b - 4 * a * c
p = -b / (2 * a)
If d >= 0 Then
'**********SPACE**********
If 【?】 Then
r = Sqr(d) / (2 * a)
x1 = p + r
x2 = p - r
Else
x1 = p
x2 = p
'**********SPACE**********
【?】
Print "x1="; x1, "x2="; x2
'**********SPACE**********
【?】
q = Sqr(-d) / (2 * a)
Print "x1="; p; "+"; q; "i", "x2=