VB程序题

VB程序设计结构：顺序结构、分支结构、循环结构。 二、分支结构：

一、顺序结构题： 1、以下程序段的执行结果是?

A=1

b=5

c=4

a=b

b=c

c=a

Print a;b;c 3、下面程序段的划线部分应是? A=356 b=214 t=a a=b print a;b 运行结果 214356

5、经过几下几条语句，A和B的 值分别为多少？ A=6 B=7 C=A A=B B=C

2、该程序段运行后， 变量b的值为 ? a=7 b=8 a=a+b b=a-b 4、该程序段运行后，变量a的值为 ? a=8 b=7 z=a a=b b=z 6、Text1和Text2中分别输入5，6，求Labe7l中值？ Dim X AS Single, Y AS Single, Z AS Single X=Val（Text1.text） Y=Val（Text2.text） Z=X*Y／10 Label7.caption=Z

IF <条件> Then 当条件满足时，执行语句组1 <语句组1> 当条件不满足时，执行语句组2 Else 执行完语句组1或语句组2后执行 <语句组2> Endif下面的语句。 Endif

IF <条件> Then 当条件满足时，执行语句组，接着执行Endif下面的语句。 <语句组> 当条件不满足时，执行Endif下面的语句。 Endif

1 、以下程序段的执行结果为？ 2．下列程序运行后，变量Value的值是? A=5 x=12 B=6 If x>=10 Then If A

答案：1、a=6 b=5 2、Value=60 3、a=9

4、a=9:b=7 5、a=7 b=9

Select case 表达式 - 1 -

case 表达式列表1 <语句组1> case 表达式列表2

当表达式的值为表达式列表达1时，执行语句组1；

当表达式的值为表达式列表达2时，执行语句组2； ……

当表达式的值为表达式列表达n-1时，执行语句组n-1；

当表达式的值不是上述值时，执行语句组n；

n = Text1.Text cj =VAL( Text1.Text ) Select Case n Select Case cj Case 1 To 20 Case 0 To 59 x = 10

dj = “ E ” Case 2, 4, 6 Case 60 To 69 x = 20

dj = “ D ” Case Is < 10 Case 70 To 79 x = 30 dj = “ C ” Case 10 Case 80 To 89 x = 40 dj = “ B ” End Select Case 90 To 100 Text2.Text = x dj = “ A ” End Sub

Case Else

程序运行后，如果在文本框Label1.Caption=“你输入的成绩有问题！” Text1中输入10，然后单击命End Select

令按钮，则在Text2中显示的Label1.Caption=“你的成绩等级为：”+dj 内容是 End Sub

答案：10 程序运行后，如果在文本框Text1中输入87，然 后单击命令按钮，则在Label1中显示的内容是

答案：你的成绩等级为：B

三、循环结构

For

循环变量=初值 To 终值 [Step步长值] 在执行For语句时，把初值赋给循环变量，并

且记录终值和步长。如果步长为1，Step语句

可省略。

[

循环体] 执行循环体

Next 循环变量 当执行Next语句时，要做两件事：第一是改变循环变量的值，循环变量 （当前的值）+步长；第二是检查循环变量的新值是否已超过初值和终值 的范围，如果没有超过，就返回执行循环体；若超过终值，就退出循环， 执行Next的后续语句。

n=0 用以下程序段求100以内的偶数和，划线部分的 For i=0 To 11 语句应为？ i = i+3 S=0 n = n+1 for i=0 to 100 step 2 Next i _________ Textl.Text=Str(n) Next 程序运行后，在文本框中显示的值是 ？ 以下程序段的执行结果为？ 以下程序段的执行结果是？ a=5 S = 1 For k=15 To 0 step -3 For I = 0 to 4 a=a + k S=S*I Next k Next I Print k;a print s 答案：1、3 2、s=s+i

3、k=-3 a=50 4、s=0

四、选择题

1、流程图如右图所示，其输出结果是( )

- 2 -

A . 4 B . 3 C . 10 D . 5 答案=A 2、

该程序段运行后，变量 y 的值是( ) A . 25 B . 20 C . 15 D . 0 答案= B

3、把二进制数10转换为十进制数，其值为( ) A . 6 B . 4 C . 2 D . 8 答案= C

4、下列属于Visual Basic合法变量名的是( )

A . 8ab B . a?2 C . if D . cengji 答案= D

5、流程图如右图所示，若输入x、y的值为1和-4，则输出结果是(

)

A . -5 B . -3 C . 3 D . 5 答案= D 6、

要使循环体t=t*k执行 5次，循环变量的初值应该是( A . 2 B . 1 C . 0 D . 10 答案= B 7、

2πa 在Visual Basic中的表达式是( )

A . 2?3.1416?a B . 2*?a C . 2πa 答案= D 8、

该程序段运行后，循环体执行的次数是( )

A . 2 B . 1 C . 0 D . 出错 答案= C 9、

- 3 -

) D . 2*3.1416*a

该程序段运行后，变量 a，b的值是( )

A . 3，2 B . 2，1 C . 2，3 D . 5，2 答案= A 10、

“x 小于30 且 y 大于20”的逻辑表达式是( )

A . x<30 Not y>20 B . x<30 Or y>20 C . x<30 And y>20 答案= C

11、表达式 Int(3.141*100)/100的值是 ( )

A . 314.1 B . 314 C . 3.14 D . 3 答案= C 12、

该程序段运行后，变量s的值为( ) A . 80 B . 60 C . 15 D . 3 答案= C 13、

该程序段运行后，变量s的值为( ) A . 10 B . 50 C . 1 D . 5 答案= B

14、下面程序段的循环步长是( ) For i=1 To 1000 s=s+i Next i

A . 不确定 B . 1000 C . 1 D . 0 答案=C

15、以下程序段的执行结果为( )

D . x<30:y>20

A=2:B=3 If A

A . 33 B . 22 C . 32 D . 23 答案=C

16、王浩同学用VB设计了一个加法器，左图是它的主界面，右图是实现加法运算的关键代码。右图中的代码应该写在（ ）按钮的“Click”事件中。

A . “清除” B . “计算” C . “窗体” D . “退出” 答案=B

17、在VB程序中，能表示Ｘ或Ｙ小于Ｚ的表达式是( ) A . X

18、如图，在这个用VB制作的“加法器中”，圈内部分需要使用右图中哪个控件？

A . ③ B . ② C . ① D . ④ 答案=D

19、用以下程序段求100以内的偶数和，划线部分的语句应为( )

- 4 -

S=0

for i=0 to 100 step 2 _________ Next

A . S=i B . S=S+2 C . S=S+I D . i=i+2 答案=C 20、

如图，这个VB窗体中有（ ）个标签框和（ ）命令按钮。 A . 3、2 B . 2、2 C . 3、3 D . 2、3 答案=A

24、在VB程序中，用以表示10

A . x>10 and x<15 B . 1015 答案=A

25、李刚要用Visual Basic设计一个程序，首先要做的是（ ）。

A . 分析问题 B . 编写代码 C . 设计界面 D . 调试与运行程序 答案=A

26、执行“A=5:A=A+5”语句后，变量A的值为（ ） A . 10 B . 5 C . 0 D . 不一定 答案=A

27、用VB设计一个程序，可以查询当前日期和时间并退出，运行界面如图所示，该窗体中用到了：

在VB中插入一个命令按钮，图中是这个命令按钮的属性窗口，那么这个命令按钮上显示的文字是： A . False B . start C. Command1 D . True 答案=B

21、以下程序段的执行结果为( ) a=5

For k=1 To 0 a=a + k Next k Print k;a

A . -16 B . 1121 C . 15 D . -116 答案=C

22、图中是一个按钮的“click”事件代码，这说明该按钮的作用是（ ）

A . 改变字体颜色 B . 进行一个加法计算 C . 取当前的系统时间 D . 添加命令按钮 答案=B

23、

- 5 -

A . 两个标签框和两个命令按钮 B . 一个标签框和四个命令按钮 C . 五个标签框 D . 三个标签框和两个命令按钮 答案=D

28、以下程序段的执行结果是 （ ）