vb测试题

一、选择题（每题1分，共15分）

1.在Visual Basic 中称对象的数据为__________。

A)属性B)方法C)事件D)封装

2. 一个VB工程可以包括多种类型文件，__________不是VB文件的扩展名。

A).WMF B).VBP C).FRX D).FRM

3.按变量名的定义规则，__________是错误定义的变量名。

A)Mark_2 B)M-d C)TempVal D)Cmd

4.在VB中，下面四个数作为字符串常量，正确的是__________。

A)＂ASDFG＂B) "ASDFG" C) ASDFG D) 'ASDFG'

5.下面哪一种不属于键盘事件：__________。

A)KeyPress B)KeyCode C)KeyUp D)KeyDown

6.在过程定义中，形参有传值、传地址两种方式，默认为传地址方式，也可在形参前加__________关键字表示传地址方式。

A)Var B)ByDef C)ByVal D)Value

7.从字符串变量Cstr的第4个字符开始，获取3个字符，应使用__________函数。

A)Mid(Cstr，4，3) B)Instr(Cstr，3，4)

C)Mid(Cstr，3，4) D)Rtrim(Cstr，3，4)

8.假设Text1文本框中输入了学生的成绩，以A、B、C、D、E字符表示不同的等级，下列语句中__________可用于判断输入数据是否正确。

A)If "A"<= Text1 <= "E" Then MsgBox "输入正确" Else MsgBox "输入错误"

B)If "A" <= Text1 Or Text1 <= "E" Then MsgBox "输入正确" Else MsgBox "输入错误"

C)If A <= Text1 And Text1 <= E Then MsgBox "输入正确" Else MsgBox "输入错误"

D)If "A"<= Text1 And Text1 <= "E" Then MsgBox "输入正确" Else MsgBox "输入错误"

9.__________控件是不可设置焦点的控件。

A)文本框B)命令按钮C)组合框D)框架

10.__________组语句可实现将变量x、y值的互换。

A)x = y : y = x B)t = y : x = y : y = t

C)x = t : t = y : y = x D)t = x : x = y : y = t

11.在Visual Basic中要在一行中书写多条语句，各语句之间使用__________符号来分隔。

A)"：" B)"*" C)"-" D) "@"

12.下面__________项不是VB的菜单编辑器的功能。

A)在已有的菜单上增加新菜单项B)修改和删除已有的菜单和菜单项

C)为应用程序创建新的菜单和菜单项D)对已有的菜单文字进行格式化

13.关于结构化程序设计的描述，下述的说法中正确的是__________。

A)面向对象、顺序执行B)面向过程、事件驱动

C)面向过程、顺序驱动D)面向对象、事件驱动

14.以下关于Visual Basic 的叙述中不正确的是__________。

A)当数值类型的数转换为Boolean 值时，0 会转成False，而其他的值则转换成True

B)Visual Basic 中，过程包括子过程Sub 和函数过程Function

C)数组下标的下界在缺省情况下从0开始

D)Variant 变量未初始化的值为NULL

15.假定窗体上有一个文本框Text1，若有以下事件过程则该文本框只能接受__________。

A)"A"或"Z"的字母字符B)"A"~"Z"的字母字符C)65~90 D)65或90

二、填空题（每题2分，共20分）

1.为保证文本框的ScrollBar属性能够准确工作，文本框控件中的_______属性必须设置为True。

2.若在程序中使用Dim a, b as String * 4声明a、b两个变量，则变量a 的类型是___________，变量b的类型是_____________。

3.对于ComboBox 控件，ListIndex属性表示当前选择项目的索引。如果当前没有选择项目，则该属性值为_____________。

4.已知窗体Form1 的CurrentX = 100，执行了命令Line Step(200, 200) - (500, 400)后，CurrentX 的值为__________ 。

5.___________文件的每条记录的长度都是相同的。

6.要返回或设置水平滚动条最左位置值，需要通过_____________属性来实现。

7.要对Shape 控件所画的封闭图形设置填充的图案，由_____________属性实现。

8.当PictureBox(图形框)大于所设置的图片时，______________属性的值为True，图形框所发生的作用与Image(图像框)当Stretch属性值为False时相同。

9.在一个窗体中有6个CheckBox 控件，则运行时，可以同时选择________个CheckBox 控件。

10.若T estMe 的值为1500，则函数IIf(TestMe > 1000, "Large", "Small") 返回__________。

三、程序填空（每空3分，共30分）

1.

2.下面的程序按每行10个数打印出30个界于-300到300之间无重复的随机数，并显示其中的最小值。数组b（30）用于存放所产生无重复的随机整数，运行结果如图所示

Private Sub Command1_Click()

Dim b (30), k, j , y , min as Integer, x as Single

For j=1 To 30

ab ：

x= Rnd

If x> 0.5 Then y=1 Else y= -1 ‘控制正负数

b ( j ) = y * __________________________ (1)

k= 1

Do While ______________________(2)

If b ( j) = b (k) Then_______________________(3) ‘控制无重复

k= k+1

Loop

Print b(j );

If j Mod ________________(4) Then Print

Next j

min =b(1)

For j =1 To 30

If b (j) < min Then _______________________(5)

Next j

Print min

End Sub

四、编程题（35分）

编写一个完整的程序，要求如下：