解析： 55、关于Do...Loop Until循环正确的描述是 __。
A、 如果\条件表达式\的值为真，则一次循环也不执行 B、 如果\条件表达式\的值为真，则要继续执行循环体
C、 不论\条件表达式\是否为\真\，至少要执行一次循环体 D、 如果\条件表达式\的值为假，则一次循环也不执行 正确答案： C
解析： 56、执行下列程序段输出的结果是__。 X%=2 Do While x<8 Print \ X=x+2 Loop
A、 *** B、 **** C、 * D、 **
正确答案： A
解析： 57、要使For语句for k=__ To -5 Step -2循环执行20次，循环变量的初值应是
___ ______。
A、 35 B、 33 C、 32 D、 31
正确答案： B
解析： 58、执行下面程序语句后， For i=1 to 3 i=i+1 Next i
变量i的值是_____。 A、 6
B、 4 C、 5 D、 3
正确答案： C
解析： 59、在使用动态数组前，需要对动态数组进行重新定义，使用_____ ____语句。 A、 Unload B、 Redim C、 Load D、 Dim
正确答案： B
解析： 60、设有数组说明语句：Dim c(-1 To 1,1 To 5)，则下列表示数组 c 的元素选项中
正确的是____ _____。
A、 c(1,0) B、 c(i+j) C、 c(i)(j) D、 c(i,j) 正确答案： D
解析： 61、下列所列中，错误的一维数组说明语句是___ ______。 A、 Dim b(5 To 5) AS String B、 Dim b(-5 To 0) AS Byte
C、 Dim b(-10 To -20) AS Integer D、 Dim b(100) AS Double 正确答案： C
解析： 62、语句 Dim Abc(5) 所定义的数组元素个数是___ _____。 A、 6 B、 5 C、 4 D、 10
正确答案： A
解析： 63、由 Array 函数建立的数组，其变量必须是_________类型。 A、 字符型 B、 整型 C、 变体型
D、 字符串类型 正确答案： C
解析： 64、下列叙述中,错误的说法是___________。 A、 使用Redim语句可以改变数组每维数的大小 B、 使用Redim语句可以对数组的元素初始化 C、 使用Redim语句可以改变数组的维数 D、 使用Redim语句可以改变数组的类型 正确答案： D
解析： 65、编写如下事件过程： Private Sub Form_Click() Dim x$,y$,Z$,i% x=\祝你成功\ y=\ For i=1 To 4
Z=Z+Mid(x,i,1)+Mid(y,i,1) Next i Print Z End Sub
程序运行后，单击窗体，则窗体上显示的内容是___________。 A、 祝你成功1234 B、 祝1你2成3功4 C、 祝4你4成4功4 D、 祝1你1成1功1 正确答案： B
解析： 66、在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim x As String * 1， y As String， i% x = \
For i = Asc(x) To Asc(x) + 4
y = y & Chr(i) Next i Print y End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是___________。 A、 a B、 aaaa C、 32 D、 abcde 正确答案： D
解析： 67、从子过程退出，并返回到主调过程，可使用语句_____ ______。 A、 Return B、 Stop Sub C、 Exit Sub D、 Exit 正确答案： C
解析： 68、子过程 Sub ...End Sub 的形式参数可以是_____ ______。 A、 常数、简单变量、数组变量
B、 常数、简单变量、数组变量和运算式 C、 简单变量、数组变量和运算式 D、 简单变量、数组变量 正确答案： D
解析： 69、通用过程可以通过执行\工具\菜单中的_____ ___命令来建立。 A、 通用过程 B、 添加过程 C、 添加窗体 D、 添加模块 正确答案： B
解析： 70、设已定义函数过程 f，它有三个整型数值参数，再设 a, b 和 c 为实型变量，
则调用该函数过程使用的语句为___ _____。
A、 f a+b, b+c, c+a B、 f
C、 f(a+b, b+c)
D、 f(a+b, b+c ,c+a) 正确答案： D
解析： 71、有如下程序： Private Sub Form_Click（） a=1:b=2:c=3 Call ss(a,b,c) Print a; b; c
End Sub Private Sub ss( ByVal x , ByRef y , z ) x=x+1: y=y+1: z=z+1 End Sub
程序运行后，单击窗体，则输出的结果是________。 A、 2 2 4 B、 1 2 3 C、 1 3 3 D、 1 3 4 正确答案： D
解析： 72、编写如下事件过程： Private Sub Command1_Click() a%=10 b%=5 Change a,b Print a,b
End Sub Private Sub Change(ByVal a As Integer,b As Integer) Dim Tmp As Integer Tmp=a a=b
《计算机程序设计》-考前测试(3)
