上海海事大学VB题库—程序填空.doc

〖第1题〗『程序填空』(1分)(题号:59)
功能：输入一个数,若大于0,则显示"+"；若小于0，则显示 "-"；若等于"0",则显示"零"。
Private Sub Command1_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 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"
〖第5题〗『程序填空』(1分)(题号:49)
'功能：以下程序段用于求∑n!
Private Sub Form_Click()
Dim sum As Integer, n As Integer
n = InputBox("请输入一个正整数")
sum = 0
For i = 1 To n
'**********SPACE**********
sum =【?】
Next i
Print sum
End Sub
Private Function mul(ByVal x As Integer)
Dim s As Integer, i As Integer
s = 1
'**********SPACE**********
For i = 1 To 【?】
s = s * i
Next i
'**********SPACE**********
【?】
End Function
答案：
1). Sum + mul(i)
2). x
3). mul = s
〖第6题〗『程序填空』(1分)(题号:61)
'功能：根据输入的学习成绩,分别显示优秀(90分以上), 良好 (75分以上),及格(60分以上),不及格几个等级。
Private Sub Command1_Click()
x = Val()
If x >= 90 Then
= "优秀"
'**********SPACE**********
ElseIf 【?】Then
= "良好"
ElseIf x >= 60 Then
'**********SPACE**********
【?】
'**********SPACE**********
【?】