〖第1题〗『程序填空』(1分)(题号:532)
【程序填空】''题目：输入n个数，n由用户输入。 ' 程序的功能是将输入的n个数反向输出? 请在【】处填入正确的 Private Sub Form_Load() Dim n As Integer Dim k As Integer Dim m As Integer Dim h As Integer Dim t As Integer Show
Dim a(100) As Single
n = Val(InputBox(\输入个数n\ Print \处理前数据 :\
'**********SPACE********** For k = 1 To 【?】
a(k) = Val(InputBox(\请输入第\& \个数\
Print a(k); Next k Print
'**********SPACE********** m = Int(【?】) For k = 1 To m h = n - k + 1
'**********SPACE********** t = a(h): 【?】: a(k) = t Next k
Print \处理的结果 :\ For k = 1 To n Print a(k); Next k End Sub 答案：1). n 2). n / 2 3). a(h) = a(k)
〖第2题〗『程序填空』(1分)(题号:498) '【程序填空】
''题目：本程序执行功能为，命令按钮单击一次后，窗体上输出结果为： '36 '25 '16 '9
请在【】处填入正确的内容 Private Sub Command1_Click() Dim xx(6) As Integer Dim k%
Open App.Path & \ For I = 1 To 6
'**********SPACE********** j = 【?】 Print #1, j Next I Close #1
Open App.Path & \ k = 0
Do While Not EOF(2)
'**********SPACE********** k = 【?】 Input #2, xx(k) Loop Close #2
'**********SPACE********** For I = k To k / 2 Step【?】 Form1.Print xx(I) Next I End Sub 答案： 1). I * I
2). k + 1 或 1 + k 3). -1
〖第3题〗『程序填空』(1分)(题号:501) '【程序填空】
''题目：本程序执行后，最终在窗体上打印数字7。请在【】处填入正确的内容 Private Sub Command1_Click() Dim a As String
'**********SPACE**********
Open App.Path & \【?】 As #1 n = 8 For I = 1 To n Print #1, I + 1 Next I Close #1
'**********SPACE**********
Open App.Path & \【?】 As #1 For I = 1 To n
Input #1, a If I Mod 5 = 0 Then
'**********SPACE********** Print CInt(a) + 【?】 End If Next I Close #1 End Sub 答案：
1). Output 2). Input 3). 1
〖第4题〗『程序填空』(1分)(题号:46) '【程序填空】
''题目：从键盘输入学生分数，统计学生总人数和各分数段人数，
' 即优秀（90-100）、良好（80-89）、中等（70-79）、
' 及格（60-69）、不及格（60以下）的人数。 Private Sub Form_Click()
Dim score%, n1%, n2%, n3%, n4%, n5% msg = \请输入分数（-1结束）\msgtitile = \输入数据\
score = Val(InputBox(msg, msgtitle)) '**********SPACE********** While 【?】 total = total + 1
'**********SPACE********** Select Case 【?】 Case Is >= 90 n1 = n1 + 1 Case Is >= 80 n2 = n2 + 1 Case Is >= 70 n3 = n3 + 1 Case Is >= 60 n4 = n4 + 1 Case Else n5 = n5 + 1
'**********SPACE********** 【?】
score = Val(InputBox(msg, msgtitle)) Wend
Print n1, n2, n3, n4, n5,total
End Sub 答案：
1). score >=0 ★And★ score <= 100 或 0<=score ★And★ score <= 100 或 0<=score ★And★ 100>=score 或 score >=0 ★And★ 100>=score 2). score 3). End Select
〖第5题〗『程序填空』(1分)(题号:503) '【程序填空】
''题目：用户界面如图所示，用实现左右两个组合框中数据的左移和右移功能。
' 程序开始运行时，在左边组合框中生成10个由小到大排列的随机三位
' 正整数 (假设在设计阶段该组合框的Sorted属性值已设置为True), 现要求完成:
' （1）单击\＞＞\钮，左边组合框中的10个数全部移动到右边组合框，并由大到
' 小排列，同时使\＜＜\钮能响应，\＞＞\钮不能响应。
' （2）单击\＜＜\钮，右边组合框中的10个数全部移到左边的组合框，并由小到
' 大排列，同时使\＞＞\钮能响应，\＜＜\钮不能响应；
' （3）单击\结束\按钮，结束程序运行。 请在【】处填入正确的内容 Private Sub cmdLeft_Click() Dim i As Integer
For i = 0 To comboRight.ListCount - 1 comboLeft.AddItem comboRight.List(i) Next i
comboRight.Clear
'**********SPACE********** 【?】= False
'**********SPACE********** 【?】 = True End Sub
Private Sub cmdRight_Click() Dim i As Integer
'**********SPACE********** For i = 0 To 【?】 - 1
comboRight.AddItem comboLeft.List(i) Next i
'**********SPACE**********
【?】.Clear
cmdRight.Enabled = False cmdLeft.Enabled = True End Sub
Private Sub Command3_Click() End End Sub
Private Sub Form_Load() Dim i As Integer
Label1.Caption = \组合框1\ Label2.Caption = \组合框2\ cmdRight.Caption = \ cmdRight.Enabled = True cmdLeft.Caption = \ cmdLeft.Enabled = False cmdExit.Caption = \结束\ comboLeft.Text = \ For i = 1 To 10
comboLeft.AddItem Int(Rnd * 900) + 100 Next i
comboRight.Text = \End Sub 答案：
1). cmdLeft.Enabled 2). cmdRight.Enabled 3). comboLeft.ListCount 4). comboLeft
〖第6题〗『程序填空』(1分)(题号:511) '【程序填空】
''题目：程序输出结果为：n=3 x=42 y=9 请在【】处填入正确的内容 Private Sub Command1_Click() Dim n, x, y As Integer
'**********SPACE********** n = 0: x =【?】: y = 0 Do While x < 20
'**********SPACE********** n = n 【?】 y = x + y x = x * (x + 1)
'**********SPACE********** 【?】
Form1.Print \ Form1.Print \
Form1.Print \End Sub 答案： 1). 1 2). + 1 3). Loop
〖第7题〗『程序填空』(1分)(题号:523) '【程序填空】
'题目：下面的程序用于求三个数中最大数 '请在【】处填入正确的内容 Private Sub Command1_Click() Dim a, b, c, max, min As Integer
a = Val(InputBox(\请输入第一个数： \ b = Val(InputBox(\请输入第二个数： \ c = Val(InputBox(\请输入第三个数： \ '**********SPACE********** 【?】 = a min = a
'**********SPACE********** If b > max Then 【?】 If b < min Then min = b '**********SPACE********** If 【?】 Then max = c ' If c < min Then min = c Print \最大数为： \ Print \最小数为：\ End Sub
答案： 1). max 2). max = b
3). c > max 或 max < c
〖第8题〗『程序填空』(1分)(题号:507) '【程序填空】
'题目： 本程序实现功能：将顺序文本文件 “MYFILE.TXT” 的
' 内容一个字符一个字符地读入文本框txtTest中
请在【】处填入正确的内容 Private Sub Form_Click()
Dim InputData As String * 1 txtTest.Text = \
'**********SPACE**********
Open App.Path & \For 【?】 As #1
'**********SPACE**********
Do While 【?】 EOF(1) Input #1, InputData
'**********SPACE********** txtTest.Text = txtTest.Text + 【?】 Loop Close #1 End Sub 答案： 1). Input 2). Not 3). InputData
〖第9题〗『程序填空』(1分)(题号:50) '【程序填空】
''题目：从键盘上输入一串字符，以\结束，统计输入字符中的
' 大、小写字母和数字的个数。 Private Sub Form_Click() Dim ch$, n1%, n2%, n3% n1 = 0 n2 = 0 n3 = 0
ch = InputBox(\请输入一个字符\'**********SPACE********** While 【?】 Select Case ch Case \ n1 = n1 + 1
'**********SPACE********** Case 【?】 n2 = n2 + 1 Case \ n3 = n3 + 1 End Select
ch = InputBox(\请输入一个字符\'**********SPACE********** 【?】 Print n1, n2, n3 End Sub 答案：
1). ch ★<>★ \ 2). \ 3). Wend
〖第10题〗『程序填空』(1分)(题号:62) '【程序填空】
''题目：输入任何一个英文字母x,若x的值 为\则
' 显示x的大写字母；若x的值为\则显示x的
' 小写字母；若为其它的值,则显示xa（如输入的X的值是
' g，则显示ga）。 Private Sub Command1_Click() x = Text1.Text
'**********SPACE********** 【?】
Case \
Label1.Caption = UCase(x) '**********SPACE********** Case 【?】
Label1.Caption = LCase(x) '**********SPACE********** 【?】
Label1.Caption = Trim(x) + \ End Select End Sub 答案：
1). Select Case x 2). \ 3). Case Else
〖第11题〗『程序填空』(1分)(题号:65) '【程序填空】
'题目：根据输入的学习成绩,分别显示优秀(90分以上), 良好(75
' 分以上),及格(60分以上),不及格几个等级。 Private Sub Command1_Click() x = Val(Text1.Text) If x >= 90 Then Print \优秀\
'**********SPACE********** 【?】
Print \良好\ElseIf x >= 60 Then
'**********SPACE********** 【?】
'**********SPACE********** 【?】
Print \优秀\End If
End Sub 答案：
1). ElseIf x >= 75 Then 或 ElseIf 75 <= x Then
2). print \及格\ 3). Else
〖第12题〗『程序填空』(1分)(题号:60) '【程序填空
'题目：输入任何一个英文字母x,
' 若x的值 为\则显示x的大写字母；
' 若x的值为\则显示x的小写字母；
' 若为其它的值,则显示xa（如输入的X的值是g，则显示ga）。
Private Sub Command1_Click() x = Text1.Text
'**********SPACE********** 【?】
'**********SPACE********** Case 【?】
Label1.Caption = UCase(x) Case \
Label1.Caption = LCase(x) Case Else
'**********SPACE********** 【?【 Ejd Select End Sub 答案：
1). Select Case x