VB模拟训练5.doc
文本预览下载声明
VB模拟训练五
11.设a=6,则执行x=IIf(a5,-1,0)后，x的值为（）。
(A)5 (B)6 (C) 0 (D)-1
12.执行下面的程序段后，x的值为（）。
x = 5
For i = 1 To 20 Step 2
x = x + i \ 5
Next i
(A) 21 (B) 22 (C)23 (D) 24
13.在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
For i = 1 To 4
x = 4
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
15.在窗体（Name属性为Form1）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下事件过程：
Private Sub Command1_Click()
a = Text1.Text + Text2.Text
Print a
End Sub
Private Sub Form_Load()
Text1.Text = “”
Text2.Text = “”
End Sub
程序运行后，在第一个文本框（Text1）和第二个文
本框（Text2）中分别输入123和321，然后单击命令
按钮，则输出结果为（）。
(A) 444 (B) 321123 (C) 123321 (D)132231
16.下列程序
Private Sub Form_Click()
Dim a(10) As Integer
For k = 1 To 10
a(k) = ip(2 * k) / ip(k)
Next k
Print a(1)
End Sub
Private Function ip(n) As Integer
m = 0
For k = 1 To n
m = m + k
Next k
ip = m
End Function
运行时输出的结果是（）
(A) 0 (B) 4 (C)3 (D)3.3
18.下列程序
Option Base 1
Private Sub Form_Click()
Dim a(5, 5)
For i = 1 To 5
For j = 1 To 5
k = k + 1
a(i, j) = k
Next j
Next i
For i = 1 To 5
s = s + a(i, i)
Next i
Print s
End Sub
运行时的输出结果是（）
(A) 15 (B)55 (C)65 (D)85
21.下列（）语句可以将变量A、B的值互换。
(A) A=B：B=A (B)A=C：C=B：A=A-B (C) A=C：C=B：B=A (D) A=(A+B)/2:B=(A-B)/2
22.要从For…Next循环中退出循环,应使用哪个语句:（）。
(A) Exit (B)Exit For (C)Continue (D)Stop Loop
23.执行以下程序段后,整型变量C的值为（）。
a = 24
b = 328
Select Case b \ 10
Case 0
c = a * 10 + b
Case 1 To 9
c = a * 100 + b
Case 10 To 99
c = a * 1000 + b
End Select
(A)537 (B) 2427 (C)24328 (D) 240328
25.下列的程序段执行后,x的值为().
x = 0
For i= 1 To 10
For j = i To 10
x = x + 1
Next j
next i
(A) 50 (B) 55 (C)100 (D) 105
28.在Do Until…Loop循环中，判断循环表达式与结束循环的关系是（）。
(A) 先判断循环表达式，当表达式值为假时结束循环 (B) 先判断循环表达式，当表达式值为真时结束循环
(C) 先执行循环体，后判断循环表达式，当表达式值为假时结束循环 (D) 先执行循环体，后判断循环表达式，当表达式值为真时结束循环
31.在窗体上添加一命令按钮，名为command
显示全部