发布时间 : 星期三 文章《计算机程序设计A》复习试题(答案)更新完毕开始阅读
For j = 1 To 3 x = 3 For k = 1 To 2 x = x + 6 Next k Next j Next i Print x End Sub
程序运行后，单击命令按钮，输出结果是（ ） （A）7 （B）15 （C）157 （D）538 186． 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command_Click( ) x = 0 Do Until x = -1 a = InputBox(“请输入A的值：”) a = Val(a) b = InputBox(“请输入B的值：”) b = Val(b) x = InputBox(“请输入x的值：”) x = Val(x) a = a + b + x Loop Print a End Sub
程序运行后，单击命令，依次在输入对话框中输入5、4、3、2、1、-1，则输出的结果为（ ） （A）2 （B）3 （C）14 （D）15
187． 在窗体上画一个名称为Command1的命令按钮和一个名称为Label1的标签，然后编写如
下事件过程：
Private Sub Command1_Click( ) s = 0
For i =1 To 15
x = 2 * i -1
If x Mod 3 =0 Then s = s + 1
Next i Label1.Caption = s End Sub
程序运行后，单击命令按钮，则标签中显示的内容是（ ） （A）1 （B）5 （C）27 （D）45
188． 在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，
然后编写如下事件过程：
Private Sub Command1_Click( ) a = Text1.Text Select Case n Case 1 To 20
x = 10
《计算机程序设计A》期末复习题（答案） 第 29 页 共 35 页
Case 2,4,6 x = 20 Case Is < 10 x = 30 Case 10 x = 40 End Select Text2.Text = x
End Sub
程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是（ ） （A）10 （B）20 （C）30 （D）40 189． 有如下程序： a = 10 b = 4 For j = 1 To 20 Step -2 a = a + 5 b = b + 4 Next j Print a;b
运行后，输出的结果是（ ） （A）10 4 （B）60 24 （C）110 44 （D）55 40 190． 设有如下程序： Private Sub Command1_Click( ) Dim sum As Double, x As Double sum = 0 n = 0 For i = 1 To 5 x = n / i n = n + 1 sum = sum + x Next End Sub
该程序通过For循环计算一个表达式的值，这个表达式是（ ） （A）1 + 1 /2 + 3/ 4 + 4 / 5 （B）1 + 1 /2 + 2 / 3 + 3 / 4 （C）1 / 2 + 2 / 3 + 3 / 4 + 4 / 5 （D）1 + 1 / 2 + 1 / 3 + 1 / 4 + 1 / 5
191． Command1_Click( )事件程序的功能是：按顺序读入10名学生4门课程的成绩，计算出每
位学生的平均分并输出，程序如下： Dim n As Integer, k As Integer
Dim score As Single, sum As Single, ave As Single sum = 0#
For n = 1 To 10 For k =1 To 4
score = InputBox(“请输入第” & n & “名学生第” & k & “门课的成绩：”) sum = sum + score
Next k
《计算机程序设计A》期末复习题（答案） 第 30 页 共 35 页
ave = sum / 4
Print “第” & n & “个学生的平均成绩为：” & ave Next n
上述程序运行后结果不正确，调试中发现有一条语句出现在程序中的位置不对。这条语句是（ ）
（A）sum = 0# （B）sum = sum + score （C）ave = sum / 4 （D）Print “第” & n & “个学生的平均成绩为：” & ave 192． 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) Dim num As Integer num = 1 Do Until num > 6 Print num; num = num + 2.4 Loop End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是（ ） （A）1 3.4 5.8 （B）1 3 5 （C）1 4 7 （D）无数据输出 193． 以下程序的输出结果是（ ） Dim i As Integer, a As Integer Do While i < 20 Do While True If i Mod 10 = 0 Then Exit Do Else i = i -1 End If Loop i = i + 11 : a = a + i Loop Print a （A）21 （B）32 （C）33 （D）11
194． 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如
下程序：
Private Sub Command1_Click( ) Dim array1(10,10) As Integer Dim i, j As Integer For i = 1 To 3 For j = 2 To 4 array1(i,j) = i + j Next j Next i Text1.Text = array1(2,3) + array1(3,4) End Sub
程序运行后，单击命令按钮，在文本框中显示的值是（ ）
《计算机程序设计A》期末复习题（答案） 第 31 页 共 35 页
（A）12 （B）13 （C）14 （D）15 195． 设有如下程序：
Option Base 0
Private Sub Form_Click( ) Dim a
Dim i As Integer
a = Array(1,2,3,4,5,6,7,8,9) For i = 0 To 3 Print a(5 – i); Next End Sub
程序运行后，单击窗体，则在窗体相显示的内容是（ ） （A）4 3 2 1 （B）5 4 3 2 （C）6 5 4 3 （D）7 6196． 在窗体上画一个名称为Command1的命令按钮，然后编写如下代码：
Option Base 1
Private Sub Command1_Click( ) d = 0 c = 10
x = Array(10, 12, 21, 32, 24) For i = 1 To 5
If x(i) > c Then d = d + x(i) c = x(i) Else
d = d – c End If
Next i Print d End Sub
程序运行后，单击命令按钮，则在窗体上输出的内容是（ ） （A）89 （B）99 （C）23 （D）77 197． 假定有以下函数过程：
Function Fun(S As String) As String Dim s1 As String For i = 1 To Len(S)
s1 = Ucase(Mid(S, i, 1)) + s1
Next i Fun = s1 End Function
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Comman1_Click( ) Dim Str1 As String, Str2 As String Str1 = InputBox(“请输入一个字符串：”) Str2 = Fun(Str1) Print Str2 End Sub
《计算机程序设计A》期末复习题（答案） 第 32 页 共 35 页
5 4