首页 > 全部 > 二级VB > 国家二级VB机试(Visual Basic控制结构)模拟试卷3

国家二级VB机试(Visual Basic控制结构)模拟试卷3

本单篇文档共10385字,内容预览3600字,预览为有答案版,源文件无水印,下载后包含无答案空白卷版和有答案版,同时也有计算机类NCRE全国计算机二级整科真题模拟题,讲义课件,思维导图,易错高频题等下载。
二级VB 章节练习 1344人下载
价格: 0.80 原价:¥9.60
收藏

国家二级VB机试(Visual Basic控制结构)模拟试卷3

选择题

1.在下面语句或函数中,不能描述选择结构的是( )。(D)

A. If语句

B. IIf函数

C. Select Case语句

D. While语句

解析:While语句不能描述选择结构。

2.编写如下程序:

Private Sub Command1_Click()

Dim a As Integer,b As Integer

a=3

b=2

If a*b<10Then b=b+1Else b=b-

1

Print b-a>0

End Sub

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

A. True

B. False

C. 1

D. -1

解析:If…Else语句对b进行操作。a*b=6,<10,所以执行b=b+1=3。Print语句中,b-a=0,条件为假。选B)。

3.编写如下程序:

Private Sub Command1_Click()

Dim score As Integer

score=86

If score>85Then

r=1

ElseIf score>60Then

r=2

Else

r=0

End If

Print r

End Sub

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

A. 0

B. 1

C. 2

D. 86

解析:本题考查If…Else If…Else…End If语句。条件判断成立则执行对应分支的语句。86>85,所以r=1。选B)。

4.窗体上有1个名称为Command1的命令按钮,事件过程如下:

Private Sub Commandl_Click()

Dim Bum As Integer,x As Integer

num=Val(InputBox(\\(B)

A. 0 0 0

B. 0 0 60

C. 0 90 0

D. 100 0 60

解析:按钮事件中变量x为过程局部变量,第1次输入100时,Select语句执行Case Else分支x=x*num=0*100=0。第二次输入90时,Select语句执行Case Else分支x=x*num=0*90=0。第三次输入60时Select语句执行Case Is<90分支x=num=60。因此窗体上显示为0 0 60。

5.有如下程序:

Private Sub Form_Click()

Dim i As Integer,n As Integer

For i=1To20

i=i+4

n=n+i

If>10Then Exit For

Next

Print n

End Sub

程序运行后,单击窗体,则输出结果是( )。(D)

A. 14

B. 15

C. 29

D. 30

解析:程序中For循环中的If语句判断循环变量i值如果大于10则退出循环。各次循环变量值变化如下:

i=1时,i=i+4=1+4=5,n=n+i_O+5=5,此时i=5,i>10不成立,i加1转入下次循环。

i=6时,i=i+4=6+4=10,n=n+i=5+10=15,此时,i=10,i>10不成立,i加1转入下次循环。

i=11时,i=i+4=11+4=15,n=n+i=15+15=30,此时,i=15,i>10成立,退出循环。此时n=30。

6.窗体上有一个名称为Command1的命令按钮,编写如下事件过程:

Private Sub Command1_Click()

i=0

Do Whlie i<6

For j=1Toi

n=n+1

Next

i=i+1

Loop

Print n

End Sub

运行程序,单击命令按钮时,窗体上显示的是( )。(B)

A. 10

B. 15

C. 16

D. 21

解析:For循环中,i大于等于1时执行循环n=+1,共执行5次,即i从1累加至5,n的值从1最终累加到15。

7.在窗体上画一个文本框,其名称为Text1,然后编写如下程序:

Option Base1

Private Sub Form_Click()

Dim Arr(10)As Integer

For i=6To10

Arr(i)=i-3

Next i

Text1.Text=Str(Arr(6)+Arr(Arr(6)+Arr(10)))

End Sub

程序运行后,单击窗体,在文本框中显示的内容是( )。(D)

A. 7

B. 8

C. 9

D. 10

解析:For循环对数组Arr的第6个到第10个元素赋值。Arr(6)=3;Arr(10)=7;因此,输出结果是10。选D)。

8.阅读程序:

Option Base1

Private Sub Form_Click()

Dim Arr(3,3)As Integer

For i=1To3

For j=1To3

If j=i Or j=3-i+1Then

Arr(i,j)=1

Else

Arr(i,j)=0

End If

Next j

Next i

For i=1To3

For j=1To3

Print Arr(i,j);

Next j

Print

Next i

End Sub

程序运行后,如果单击窗体,则输出结果为( )。

(D)

A.

B.

C.

D.

解析:第一个:For循环给数组Arr赋值。第二个。For循环打印数组各元素的值。在第一个For循环中,数组的下标用变量i表示,上标用变量j表示。If…Else语句对两种情况进行判断,在i等于j的时候或者i和j满足j=3-i+1关系的时候,Arr数组元素被赋值为1,其他情况被赋值为0。可以根据循环语句的执行,代入各变量值算得各元素的值。选D)。

9.以下Visual Basic不支持的循环结构是( )。(D)

A. For…Next

B. For Each…Next

C. Do…Loop

D. Do…End Do

解析:Visual Basic支持的循环结构不包括Do…End Do。

10.在窗体上画一个组合框,其名称为Combo1,然后编写如下事件过程:

P

本文档预览:3600字符,共10385字符,源文件无水印,下载后包含无答案版和有答案版,查看完整word版点下载

剩余未完,查看全文
收藏
国家二级VB机试(Visual Basic控制结构)模拟试卷3

推荐资源

客服

扫码添加客服微信

热线

官方客服

如遇问题,请联系客服为您解决

电话客服:

客服微信:pujinet

工作时间:9:00-18:00,节假日休息

公众号

扫码关注微信公众号