计算机二级上机试题.docx

〖第1题〗『程序填空』(1分)(题号:507)
'【程序填空】
'题目: 本程序实现功能:将顺序文本文件“”的
' 内容一个字符一个字符地读入文本框t俄xtTest中
请在【】处填入正确的内容
Private Sub Form_Click()
Dim InputData As String * 1
= ""
'**********SPACE**********
Open & "\" For 【input】 As #1
'**********SPACE**********
Do While 【not】 EOF(1)
Input #1, InputData
'**********SPACE**********
= + 【inputdata】
Loop
Close #1
End Sub
答案:
1). Input
2). Not
3). InputData
〖第2题〗『程序填空』(1分)(题号:50)
'【程序填空】
''题目:从键盘上输入一串字符,以"?"结束,统计输入字符中的
' 大、小写字母和数字的个数。
Private Sub Form_Click()
Dim ch$, n1%, n2%, n3%
n1 = 0
n2 = 0
n3 = 0
ch = InputBox("请输入一个字符")
'**********SPACE**********
While 【ch】
Select Case ch
Case "a" To "z"
n1 = n1 + 1
'**********SPACE**********
Case 【A to Z】
n2 = n2 + 1
Case "0" To "9"
n3 = n3 + 1
End Select
ch = InputBox("请输入一个字符")
'**********SPACE**********
【wend】
Print n1, n2, n3
End Sub
答案:
1). ch ★<>★"?"
2). "A" To "Z"
3). Wend
〖第3题〗『程序填空』(1分)(题号:62)
'【程序填空】
''题目:输入任何一个英文字母x,若x的值为"a","c","d-f" ,则
' 显示x的大写字母;若x的值为"m","o","p-z",则显示x的
' 小写字母;若为其它的值,则显示xa(如输入的X的值是
' g,则显示ga)。
Private mand1_Click()
x =
'**********SPACE**********
【select case x】
Case "a", "c", "d" To "f"
= UCase(x)
'**********SPACE**********
Case 【”m”,”o”,” p”to “z”】
= LCase(x)
'**********SPACE**********
【case else】
= Trim(x) + "a"
End Select
End Sub
答案:
1). Select Case x
2). "m", "o", "p" To "z"
3). Case Else
〖第4题〗『程序填空』(1分)(题号:65)
'【程序填空】
'题目:根据输入的学****成绩,分别显示优秀(90分以上), 良好(75
' 分以上),及格(60分以上),不及格几个等级。
Private mand1_Click()
x = Val()
If x >= 90 Then
Print "优秀"
'**********SPACE**********
【elself x>=75 then】
Print "良好"
ElseIf x >= 60 Then
'**********SPACE**********
【print “及格”】
'**********SPACE**********
【else】
Print "不及格"
End If
End Sub
答案:
1). ElseIf x >= 75 Then 或 ElseIf 75 <= x Then
2). print "及格"
3). Else
〖第5题〗『程序填空』