发布时间 : 星期三 文章銆婅绠楁満绋嬪簭璁捐A銆嬪涔犺瘯棰?绛旀) - 鐧惧害鏂囧簱更新完毕开始阅读
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 页