客观题部分：
选择题（每题1分，共15题）
1. 当vb执行下面语句后，a的值为（ a ）。
a=1if a>0 then a=a+1if a>1 then a=0
a）0 b）1 c）2 d）3
2. 当vb执行下面语句后，输出的结果是（b ）。
private sub form_click（）
score = int(rnd * 10) +30select case scorecase is < 10a$ =f"case 10 to 19a$ =d"
case 20 to 29a$ =c"case 30 to 39a$ =b"case elsea$ =a"end selectprint a$end sub
a） ab） b c） c d） d
3. 执行下面的程序段后，x 的值为( c )。
x=2for i=1 to 10step 3x=x+i\2next i
a) 2b) 4c) 7d) 9
4. 假定有以下循环结构：
do until 条件循环体loop
则正确的描述是（ d ）。
a) 如果“条件”是一个为0的常数，则一次循环体也不执行。
b) 如果“条件”是一个为0的常数，则至少执行一次循环体。
c) 如果“条件”是一个不为0的常数，则至少执行一次循环体。
d) 不论“条件”是否为“真”，至少要执行一次循环体
5. 假定有以下程序段：
for i= 1 to 3for j= 5 to 1 step -1print i *jnextj , i
则语句“print i *j”的执行次数是（ c ）。
a）20b）24 c）15 d）18
6. 以下程序段的输出结果为（ d ）。
x = 2y = 8do until y>8x = x * yy = y +1loopprint x
a）2b）9 c）10 d）16
7. 用下面的语句所定义的数组的元素个数是（ d ）。
dim a（-3 to 5） as integer
a）6 b）7c）8d）9
8. 阅读下面的程序段：
for i=1 to 2for j=1 to ifor k=j to 2x=x+1next knext jnext i
执行上面的三重循环后，x的值为( c )。
a) 3b) 4c) 5d) 6
9.在窗体上画一个命令按钮，然后编写如下事件过程：
private sub command1_click()
for i=1 to 3x=2for j =1 to 2x=4for k=1 to 3x=x+5next knext jnext i
print xend sub
程序运行后，单击命令按钮，输出结果是( b )。
a) 11b) 19c) 57d) 63
10. 在窗体上画两个文本框text1和text2，一个命令按钮command1，然后编写如下事件过程：
private sub command1_click()
x=1do while x<50x=(x+1)*(x+2)n=n+ sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为（ b ）。
a) 1和0b) 2和56 c) 3和 70d) 4和168
11. 以下正确的叙述是（ c ）。
a） select case语句中的测试表达式可以是任何形式的表达式。
b） select case语句中的测试表达式只能是数值表达式或字符串表达式。
c） 在执行select case语句时，所有case子句均按出现的次序被顺序执行。
d） 如下select case语句中的case表达式是错误的：
select case xcase 1 to 10…… end select
12. 在窗体上绘制一个命令按钮command1，然后编写如下程序：
option base 1private sub command1_click()dim a
a = array(1, 2, 3, 4, 5j = 1
for i = 5 to 1 step -1s = s + a(i) *j
j = j * 10next iprint send sub
运行程序，单击命令按钮，输出结果为（ b ）。
a）54321 b)12345 c)1234 d)4321
13. 在窗体上绘制一个命令按钮commandl，编写以下事件过程：
privatesubcommandl_c1ick()dimbb＝array(1,2,3,4,5)……endsub
此过程的功能是把数组b中的5个数逆序存放。为了实现此功能，省略号处的程序段应该是（ c ）。
a) fori＝0to5-1\2tmp＝b(i)b(i)＝b(5-i-1)b(5-i-1)＝tmpnexti
b) fori＝0to5tmp=b(i)b(i)＝b(5-i-1)b(5-i-1)=tmpnexti
c) fori＝0to5\2tmp＝b(i)b(i)＝b(5-i-1)b(5-i-1)=tmpnexti
d) fori＝1to 5\2b(5-i-1)＝tmptmp=b(i) b(i)＝b(5-i-1)nexti
14. 在窗体上绘制一个命令按钮commandl，编写以下事件过程：
option base 1
private sub command1_click()
dim a(3, 3) as integer
for i = 1 to 3 for j = 1 to 3a(i, j) =2 * i + j next j next i
for i = 2 to 3 for j = 2 to 3 print a(j, i) next j next iend sub
程序运行后，单击命令按钮，输出的结果是（ c ）。
a） 5b）6c) 6d）5
15. 设有函数y＝，下面不能正确求得函数值的程序段是（ d ）。
a） select case x
case is < 0 y=x
case 0 y=0
case is > 0 y=x*x
end select
b） if x>0 theny=x*x end if
if x=0 then y=0 end if
if x<0 then y=x end if
c） if x < 0 theny = xelse
if x > 0 theny = y * x elsey = 0 end ifend if
d） if x<=0 theny=x end if
if x>0 then y=x*x else y=0 end if
主观题部分：
编程题（每题15分，共1题）
编程实现一个窗体form的click事件，单击该窗体后从键盘接收变量n的数值然后计算并打印1+2+..n的值，如果和已经大于1000则停止计算。
private sub command1_click()
dim i as integer
dim n as integer
dim s as integer
i = 0s = 0
n = inputbox("请输入整数n")
do while (s <=1000)
i = i + 1
s = s + i
loop until i >=n
print "1+2+3+..n=" s
end sub
VB程序设计作业 二 答案
精品文档。客观题部分 选择题 每题1分，共15题 1.当vb执行下面语句后，a的值为 a a 1 if a 0 then a a 1 if a 1 then a 0a 0 b 1c 2 d 32.当vb执行下面语句后，输出的结果是 b private sub form click score int...
VB程序设计作业 二 答案
客观题部分 选择题 每题1分，共15题 1.当vb执行下面语句后，a的值为 a a 1 if a 0 then a a 1 if a 1 then a 0 a 0 b 1 c 2 d 3 2.当vb执行下面语句后，输出的结果是 b private sub form click score int r...
VB程序设计作业二答案
客观题部分 选择题 每题1分，共15题 1.当vb执行下面语句后，a的值为 a a 1 if a 0 then a a 1 if a 1 then a 0 a 0 b 1 c 2 d 3 2.当vb执行下面语句后，输出的结果是 b private sub form click score int r...