VB程序设计复习题

Visual Basic语言程序设计复习题

一、 选择题（2分/题，共30分）

1、C 是由Visual Basic提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部函数或过程。

a) 文件 b) 属性 c) 方法 d) 窗体

2、 刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是___C__。 a) 单选按钮 b) 图片框 c) 通用对话框 d) 文本框

3、 下列各项不是Visual Basic的基本数据类型的是__A___。 a) Char b) String c) Integer d) Double

4、下列可作为Visual Basic中所允许的形式的数是 。B A、±25.74 B、3.457E-100 C、368 D、1.87E+50 5、下面的数写成普通的十进制数是 。B 8.6787E+8

A、86787000 B、867870000 C、8678700 D、8678700000 6、下列程序运行后，输出的结果为___A___。 b=1

Do while (b<40) b=b*(b+1) Loop Print b A、42 B、39 C、6 D、1 7、 ___D___对象不能响应Click事件。 a) 列表框 b) 图片框 c) 窗体

d) 计时器

8、 17 mod 3的运算结果是__D___。 a) 0.5 b) 1 c) 1.5 d) 2

9、变量X=32769，则变量声明时不能将其声明为___A__。 a) Intrger b) Variant c) Long

d) Single

10、 表达式2*3^2+2*8/4+3^2的值为___B__。 a) 64 b) 31 c) 49

d) 22

11、设执行以下程序段时依次输入1、3、5，执行结果为___A__。 Dim a(4) As Integer Dim b(4) As Integer For K =0 To 2

a(K+1) =Val(InputBox(“请输入数据：\ b(3-K) =a(K+1) Next K Print b(K) A、1 B、3 C、5 D、0 12、下列程序执行后，变量s的值为___B___。 Dim s As long ,x As Integer s=0:x=1

Do While (x<10) s=s+x x=x+2 Loop Print s A、10 B、25 C、50 D、100

13、若整型变量a的值为2、b的值为3，则下列程序段执行后整型变量c的值为____A__。 If a>5 then

if b<4 then c=a-b else

c=b-a End if

elseif b>3 then c=a*b else

c=a mod b End if

A、2 B、-1 C、1 D、6 14、设有如下语句：

str1=inputbox(\输入\练习\

从键盘上输入字符串“示例”后，str1的值是_D__。 A、“输入” B、“” C、“练习” D、“示例” 15、编写如下事件过程：

Private Sub Form_MouseDown(Button As Integer ,Shift As Integer,X As Single,Y As Single)

If Shift=6 And Button=2 Then

Print \End If End Sub

程序运行后，为了在窗体上输出\，应在窗体上执行以下___D____操作。 A、同时按下 Shift 键和鼠标左键 B、同时按下 Shift 键和鼠标右键 C、同时按下Ctrl、Alt 键和鼠标左键

D、同时按下 Ctrl、Alt 键和鼠标右键

16、当变量x=2,y=5时，以下程序的输出结果为__C__。 Do until y>5 x=x*y y=y+1 loop print x

A、2 B、5 C、10 D、20

17、当执行以下程序时，在名为lblResult的标签框内将显示___A__。 Private Sub cmdlt_click() Dim I,R R=0

For I=1 To 5 Step 1 R=R+I Next I

lblResult.Caption=Str（R） End Sub

A、字符串15 B、整数15 C、字符串5 D、整数5 18、如下有一段不完整的程序段，如果要求该程序执行3次循环，则应在程序中的括号里输入___A___。 X=1 do

x=x+3 print x

loop until(___)

A、x>=8 B、x<=8 C、x>=7 D、x<=7 19、使窗体自动向下移动的语句是Move___A__。 a) Left, Top+100 b) Top+100 c) Top+100

d) Top=Top+100

20、 RGB函数通过红、绿、蓝三基色混合产生某种颜色，其语法为RGB（红、绿、蓝），括号中红、绿、蓝三基色的成分使用0-255之间的整数。若使用3个滚动条分别输入3种基色，为保证输入数值有效，则应设置__A___属性。 a) Max和Min

b) SmallChange和LargeChange c) Scroll和Change

d) Value

21、我们在一个窗体上建立两个文本框，名称分别为Text1和Text2，事件过程如下，

Private Sub Text1_change( ) Text2.text=ucase(Text1.text) End Sub

则在Text1文本框输入“visual basic”，Text2将___B___。 A、Text2中无内容显示。 B、Text2显示\。

C、Text2显示\ D、Text1显示\22、 下列运算结果中，值最大的是 ___D___。 a) 3\\4 b) 3/4

c) 4 mod 3

d) 3 mod 4

23、 以下不属控件的一项是__D___。 a) 文本框 b) 标签框 c) 列表框

d) 消息框

24、 用InputBox函数可帮助生成___C____。 a) 消息框

b) “保存”对话框 c) 简单输入框

d) “颜色”对话框

25、 复选对象是否被选中，是由其__B___属性决定的。 a) Checked b) Value c) Enabled

d) Selected

26、 没有Caption属性的控件是__D___。 a) Label

b) OptionButton c) Frame d) LisBox

27、 下列符号是Visual Basic中合法变量名的是__D___。 a) IF b) 7AB c) A[B]7 d) AB_7

28、___C__控件可以使用SetFocus()方法。 a) Frame b) Label c) TextBox d) Timer

29、 滚动条单击边上的箭头按钮移动的大小由__B___设定。 a) Change

b) SmallChange c) Scroll d) Tabstop

30、 下列程序段的执行结果为___C___。 N=0:J=1

Do Until N>2 N=N+1

J=J+N*(N+1) Loop

Print N;J a) 0 1 b) 3 7 c) 3 21

d) 3 13

31、 下列程序段的执行结果为___C___。 X=6

For K=1 To 10 Step -2 X=X+K Next K Print K;X a) -1 6 b) -1 16 c) 1 6

d) 11 31

32、下列程序段的执行结果为___C___。 K=0

For J=1 to 2

For I = 1 to 3 K =I+1 Next I

For I = 1 to 7 K = K+1 Next I Next J Print K a) 10 b) 6 c) 11

d) 16

33、 下列程序段的执行结果为____B___。 M=0

For I=1 To 3

本文来源：https://www.bwwdw.com/article/9l2f.html