VB程序设计作业二答案

发布 2022-07-02 12:10:28 阅读 8620

客观题部分:

选择题(每题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(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 sub

a) a b) b c) c d) d

3. 执行下面的程序段后,x 的值为( c )。

x=2 for i=1 to 10 step 3 x=x+i\2 next i

a) 2b) 4c) 7d) 9

4. 假定有以下循环结构:

do until 条件循环体 loop

则正确的描述是( d )。

a) 如果“条件”是一个为0的常数,则一次循环体也不执行。

b) 如果“条件”是一个为0的常数,则至少执行一次循环体。

c) 如果“条件”是一个不为0的常数,则至少执行一次循环体。

d) 不论“条件”是否为“真”,至少要执行一次循环体

5. 假定有以下程序段:

for i= 1 to 3 for j = 5 to 1 step -1 print i * j next j , i

则语句“print i * j ”的执行次数是( c )。

a)20 b)24 c)15 d)18

6. 以下程序段的输出结果为( d )。

x = 2 y = 8 do until y>8 x = x * y y = y +1 loop print x

a)2 b)9 c)10 d)16

7. 用下面的语句所定义的数组的元素个数是( d )。

dim a(-3 to 5) as integer

a)6 b)7 c)8 d)9

8. 阅读下面的程序段:

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) 3b) 4c) 5d) 6

9. 在窗体上画一个命令按钮,然后编写如下事件过程:

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 i

print x end sub

程序运行后,单击命令按钮,输出结果是( b )。

a) 11b) 19c) 57d) 63

10. 在窗体上画两个文本框text1和text2,一个命令按钮command1,然后编写如下事件过程:

private sub command1_click()

x=1 do while x<50 x=(x+1)*(x+2) n=n+1 loop end 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 x case 1 to 10 ……end select

12. 在窗体上绘制一个命令按钮command1,然后编写如下程序:

option base 1 private sub command1_clickdim a

a = array(1, 2, 3, 4, 5j = 1

for i = 5 to 1 step -1s = s + a(i) *j

j = j * 10next iprint s end sub

运行程序,单击命令按钮,输出结果为( b )。

a)54321 b)12345 c)1234 d)4321

13. 在窗体上绘制一个命令按钮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(5-i-1)=tmpnexti

b) fori=0to5 tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=tmp nexti

c) fori=0to5\2 tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=tmp nexti

d) fori=1to 5\2 b(5-i-1)=tmp tmp=b(ib(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 then y=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 = x else

if x > 0 theny = y * x elsey = 0 end if end 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

thanks !!

致力为企业和个人提供合同协议,策划案计划书,学习课件等等。

打造全网一站式需求。

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 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...