VB题库程序填空
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
程序填空〖第1题〗『程序填空』(1分)(题号:59)
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
' 功能：输入一个数,若大于0,则显示"+"；若小于0，
' 则显示 "-"；若等于"0",则显示"零"。
'-------------------------------------------------------
Private Sub Command1_Click( )
x = Val
Select Case x
'**********SPACE**********
Case is > 0
= "+"
Case Is < 0
'**********SPACE**********
= "-"
'**********SPACE**********
Case is =
= "零"
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 Sub Command1_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="; p; "-"; q; "i"
End If
End Sub 答案：
1). d > 0 或 0 < d
2). End If
3). Else
〖第4题〗『程序填空』(1分)(题号:51)
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'功能：下面的程序段用于建立文件并输出文件，文件内容如下：
'
'*****
' *****
' *****
' *****
' *****
'-------------------------------------------------------
Private Sub Form_Click()
'**********SPACE**********
Open "c:\" For 【】 As #1
For i = 1 To 5
Print #1, Spc(i); "*****"
Next i
'**********SPACE**********
【】
'**********SPACE**********
Open "c:\" For 【】 As #1
For i = 1 To 5
Line Input #1, x
Print x
Next i
Close #1
End Sub