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）无数据输出 122． 有如下函数：

Function Facn ( x As Integer ) As Long Dim p As Long , i As Integer p = 1

For i = 1 To x p = p * i Next i Facn = p End Function

调用它的事件过程如下：

Private Sub Command1_Click ( ) i = Val ( InputBox ( “请输入数据”))

a = Facn (( i ) ) ?实参i用圆括号括起，则强制为值传递 Print a End Sub

若输入数据6，则程序运行结果为（ 【73】 ）

（A）60 （B）120 （C）600 （D）720

123． 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim a As Integer, s As Integer a = 8 s = 1 Do

s = s + a a = a－1

Loop While a <= 0 Print s; a End Sub

程序运行后，单击命令按钮，则窗体上显示的内容是

（A） 7 9 （B） 34 0 （C） 9 7 （D）死循环 124． 下列程序的执行结果为（ 【74】 ） Dim IntSum As Integer , i As Integer IntSum = 0

For i = 30.2 To 1 Step -5.3 IntSum = IntSum + i Next i

Print IntSum

（A）106 （B）105 （C）102 （D）101

125． 在窗体上画一个命令按钮，然后编写如下事件过程，该过程执行结果为（《计算机程序设计A》期末复习题（答案） 第 17 页 共 35 页

75】 ） 【

Option Base 1

Private Sub Command1_Click ( ) Dim a As Variant , s As Integer a = Array ( 2 , 4 , 6 , 8 ) j = 1

For i = 1 To 4 Step 1 s = s + a ( i ) * j j = j *10 Next i Print s End Sub

（A）0 （B）1110 （C）2468 （D）8642 设有如下通用过程：

Public Function f(x As Integer) Dim y As Integer x = 20 y = 2 f = x * y End Function

126． 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Static x As Integer x = 10 y=5 y = f(x) Print x; y End Sub

程序运行后，如果单击命令按钮，则在窗体上显示的内容是

（A）10 5 （B）20 5 （C）20 40 （D）10 40 127． 对窗体编写如下代码： Option Base 1

Private Sub Form_KeyPress( KeyAscii As Integer) a = Array (123 , 86 , 57 , 248 , 32) m1 = a ( 1 ) m2 = 1

If KeyAscii = 13 Then For i=2 To 5

If a ( i ) > m1 Then m1 = a ( i ) m2 = i End If Next i End If

Print m1 , m2 End Sub

程序运行后，按回车键，输出结果为（ 【76】 ）

《计算机程序设计A》期末复习题（答案） 第 18 页 共 35 页

（A）32 5 （B）248 4 （C）32 1 （D）248 5 设有如下通用过程：

Public Sub Fun(a(), ByVal x As Integer) For i = 1 To 5 x = x + a(i) Next End Sub

128． 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如

下的事件过程：

Private Sub Command1_Click() Dim arr(5) As Variant For i = 1 To 5 arr(i) = i Next n = 10

Call Fun(arr(), n) Text1.Text = n End Sub

程序运行后，单击命令按钮，则在文本框中显示的内容是

（A）10 （B）15 （C）25 （D）24 129． 阅读程序：

Function Func ( a As Integer ) b = 1

Static c As Integer b = b +1 c = c +1

Func = a + b + c End Function

Private Sub Command1_Click( ) Dim a As Integer a = 3

For i =1 to 3 Print Func( a ) Next i End Sub

运行上面的程序，单击命令按钮后，输出结果为（ 【77】 ） （A）6 （B）6 （C）6 （D）6 7 6 8 13 8 6 10 21

130． 在窗体上画一个名称为Command1的命令按钮，然后编写如下代码：

Option Base 1

Private Sub Command1_Click() d = 0 c = 10

x = Array(10, 12, 21, 32, 24) For i = 1 To 5

《计算机程序设计A》期末复习题（答案） 第 19 页 共 35 页

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 131． 有如下一个函数过程：

Function Func (ByVal Num As Long ) Dim k As Long k=1

Num = Abs (Num) Do While ( Num)

k = k * (Num Mod 10) Num = Num \\ 10 Loop Func = k End Function

以下是一个调用该函数的事件过程，在运行该过程后，在输入对话框中输入“2345”，则该过程的运行结果是（ 【78】 ）

Private Sub Command1_Click( ) Dim n As Long , r As Long

n = InputBox ( “请输入数据：” )

n = CLng ( n ) ?CLng函数的返回值是一个长整型数值 r = Func ( n ) Print r End Sub

（A）0 （B）24 （C）60 （D）120

132． 在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，

然后编写如下事件过程：

Private Sub Command1_Click() n = Val(Text1.Text) Select Case n Case 1 To 20 x = 10 Case 2, 4, 6 x= 20 Case Is < 10 x = 30 Case 10 x = 40 End Select

《计算机程序设计A》期末复习题（答案） 第 20 页 共 35 页