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