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

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

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

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

选择题

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

A. If语句

B. If函数

C. Select Case语句

D. While语句

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

2.编写如下程序:

Private Sub Commandl—Click()

Dim a As Integer,b As Integer

a=3

b=2

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

l

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 Commandl—Click()

Dim score As Integer

score=86

If score>85 Then

r=1

ElseIf score>60 Then

r=2

Else

r=0

End If

Print r

EndSub

程序运行后,单击命令按钮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 Command1—Click()

Dim Hum As Integer,x As Integer

Bum=Val(InputBox(“请输入一个正整数”))

Select Case Bum

Case Is>100

x=x+num

Case Is<90

x=num

Case Else

x=x* num

End Select

Print x;

End Sub

运行程序,并在三次单击命令按钮时,分别输入正整数100、90和60,则窗体上显示的内容为( )。(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=1 T0 20

i=i+4

n=n+i

If i>10 Then 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=0+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=1 1+4=15,n=n+i=15+15=30,此时,i=15,i>10成立,退出循环。此时n=30。

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

Private Sub Commandl—Click()

i=0

Do While i<6

For j=1 To i

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 Base 1

Pfivate Sub Form_Click()

Dim Arr(10)As Integer

For i=6 To 10

An-(i)=i一3

Next i

Textl.Text=Str(Arr(6)+An-(An.(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 Base 1

Private Sub Form—Click()

Dim Arr(3,3)As Integer

For i=1 To 3

For j=1 To 3

Ⅱj=i Or j=3一i+1 Then

Arr(i,j)=1

Else

Arr(i,j)=0

End If

Next j

Next i

For i=1 To 3

For j=1 To 3

Print Arr(i,j);

Next j

Print

Next i

End Sub

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

A. 1 1 1

1 1 1

1 1 1

B. 0 0 0

0 0 0

0 0 0

C. 1 0 0

0 1 0

0 0 1

D. 1 0 1

0 1 0

1 0 1

解析:第一个For循环给数组Arr赋值。第二个For循环打印数组各元素的值。在第一个For循环中,数组的下标用变量i

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

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

推荐资源

客服

扫码添加客服微信

热线

官方客服

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

电话客服:

客服微信:pujinet

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

公众号

扫码关注微信公众号