精品文档。
客观题部分：
选择题（每题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(rnd * 10) +30 select case score case is < 10 a$ =f" case 10 to 19 a$ =d"case 20 to 29 a$ =c" case 30 to 39 a$ =b" case else a$ =a" end select print a$ end suba）a
b）bc）c
d）d3.执行下面的程序段后，x的值为( c )。
x=2 for i=1 to 10 step 3 x=x+i\2 next i
a) 2b) 4c) 7
d) 94.假定有以下循环结构：
do until条件循环体loop则正确的描述是（d）。
a)如果“条件”是一个为0的常数，则一次循环体也不执行b)如果“条件”是一个为0的常数，则至少执行一次循环体c)如果“条件”是一个不为0的常数，则至少执行一次循环体d)不论“条件”是否为“真”，至少要执行一次循环体5.假定有以下程序段：
for i= 1 to 3 for ja）20
b）24 5 to 1 step -1 print i * j next j , ic）15
d）18则语句“print i * j”的执行次数是（c）。6.以下程序段的输出结果为（d）。
x = 2 y = 8 do until y>8 x = x * y y = y +1 loop print xa）2
b）9c）10
d）167.用下面的语句所定义的数组的元素个数是（d）。
dim a（-3 to 5）as integera）6
b）7c）8
d）98.阅读下面的程序段：
for i=1 to 2 for j=1 to i for k=j to 2 x=x+1 next k next j next i
执行上面的三重循环后，x的值为( c )。a) 3
b) 4c) 5
d) 69.在窗体上画一个命令按钮，然后编写如下事件过程：
private sub command1_click()
for i=1 to 3 x=2 for j =1 to 2 x=4 for k=1 to 3 x=x+5 next k next j next
iprint x end sub
程序运行后，单击命令按钮，输出结果是( b )。a) 11
b) 19c) 57d) 63
10.在窗体上画两个文本框text1和text2，一个命令按钮command1，然后编写如下事件过程：
1欢迎**。
精品文档。private sub command1_click()
x=1dowhilex<50x=(x+1)*(x+2)n=n+
程序运行后，单击命令按钮，在两个文本框中显示的值分别为（b）。a) 1和0b) 2和5611.以下正确的叙述是（c）。
a）select case语句中的测试表达式可以是任何形式的表达式b）select case语句中的测试表达式只能是数值表达式或字符串表达式c）在执行select case语句时，所有case子句均按出现的次序被顺序执行d）如下select case语句中的case表达式是错误的：
select case x
case 1 to 10……end select
dim a12.在窗体上绘制一个命令按钮command1，然后编写如下程序：
option base 1 private sub command1_click()
a = array(1, 2, 3, 4, 5j = 1
for i = 5 to 1 step -1s = s + a(i) *jj = j * 10next iprint s end sub
运行程序，单击命令按钮，输出结果为（b）。a）54321 b)12345 c)1234 d)432113.在窗体上绘制一个命令按钮commandl，编写以下事件过程：
privatesubcommandl_c1ick()dimb b＝array(1,2,3,4,5)……endsub
此过程的功能是把数组b中的5个数逆序存放。为了实现此功能，省略号处的程序段应该是（c）。
a)fori＝0to5-1\2tmp＝b(i)b(i)＝b(5-i-1)
b)fori＝0to5c)fori＝0to5\2d)fori＝1to 5\2
nexti14.在窗体上绘制一个命令按钮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 nextj next i
for i = 2 to 3 for j = 2 to 3 print a(j, i) next j next
iend sub
程序运行后，单击命令按钮，输出的结果是（c）。a）5
b）6c) 6d）578
tmp=b(i)tmp＝b(i)
b(5-i-1)＝tmpnexti
b(5-i-1)=tmpnextib(5-i-1)=tmpnextib(i)
b(5-i-1)
b(i)＝b(5-i-1)b(i)＝b(5-i-1)
tmp=b(i)
c) 3和70
d) 4和168
b(5-i-1)＝tmp
x*x15.设有函数y＝0
xa）select case x
case is < 0y=x
x0)x0)，下面不能正确求得函数值的程序段是（d）。(x0)
2欢迎**。
精品文档。case 0 y=0case is > 0y=x*x
end select
b）if x>0 then y=x*xif x=0 thenif x<0 then
c）end ify=0end ify=xend if
if x < 0 theny = x else
if x > 0 theny = y * x elsey = 0 end if end ifd）if x<=0 theny=xend ifif x>0 then主观题部分：
编程题（每题15分，共1题）
编程实现一个窗体form的click事件，单击该窗体后从键盘接收变量n的数值然后计算并打印1+2+..n的值，如果和已经大于1000则停止计算。private sub command1_click()dim i as integerdim n as integerdim s as integeri = 0s = 0
n = inputbox("请输入整数n")do while (s <=1000)i = i + 1s = s + iloop until i >=nprint "1+2+3+..n=" send sub
y=x*xelse
y=0end if
3欢迎**。
致力为企业和个人提供合同协议，策划案计划书，学习资料等等。
打造全网一站式需求。
4欢迎**。
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...
VB程序设计作业 二 答案
客观题部分 选择题 每题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...