试题一
一、填空题（15%，每空1分）
1．建立热键的方法是在菜单标题的某个字符前加一个 符号，在菜单中这一字符会自动加上下划线，表示该字符是一个热键。
2．在VB中，重定义坐标系的方法是 。
3．表示x，y之一小于z的表达式是__ ____________________。 4．表达式10+”10” & 10的值是______________。
5.VB中，用Option Base 0说明后，Dim A（3，5）定义的数组有__________个元素。 6.VB中的方法与函数、过程的区别就是方法与__________ 联系到一起。
7.假定在C：盘根目录下有一个名为bird.gif的图形文件，要在运行期间把该文件装入一个图形框(picture1)中，应执行的语句为 。 8.赋值语句：a=123+MID(“123456”,3,2)执行后，a变量中的值是_____________。
9.VB集成开发环境窗口，它包括了数个独立的窗口。除必须的\主窗口\外，常用的还有 窗口、 窗口、 窗口、工具箱窗口、对象浏览窗口、工程资源管理等窗口。 10.一个控件在窗体上的位置由 和 属性决定
11、Visual Basic提供的标准数据类型中，整型的关键字是 ；其类型符是 。
二、选择题（50%，每题2分）
1．表达式5\\2*3的值是 B
A）7.5 B） 0 C）1 D） 2 2．以下声明语句中错误的是_________。
A）Const var1=123 B）Dim var2 = 'ABC' C）Dim var3% D）Static var3 As Integer 3.为了清除窗体上的一个控件，下列正确的操作是 A）按回车键?? B）按Esc键??
C）选择（单击）要清除的控件，然后按Del键 D）选择（单击）要清除的控件，然后按回车键
4.参数传递的方法有传址和传值，它们的区分标志是______ 。
A） 传值的形参前加ByVal B） 传址的形参前加ByVal
C） 两者的形参前加ByVal D） 两者的形参前不加ByVal 5.滚动条可以响应的事件是（ ）
A）Load B）Scroll C） Click D）MouseDown 6.窗体具有自己的属性、方法和事件。下列（ ）不属于窗体的方法。 A） Print B） Move C） Show D） Load
7.文件操作的一般顺序是
A）打开文件->操作 B）打开文件->关闭文件->操作 C）打开文件->操作 ->关闭文件 D）操作 ->关闭文件
8.通过ADODC控件的（ ）属性可以建立该控件到数据源的连接信息。 A）RecordSource B）RecordSet C）ConnectionString D）DtatBase
9．用于获得字符串变量S最左边4个字符的表达式是：（ ）。
A) Left(S,4)
B) Left(4, S)
C) Leftstr(S) D)Leftstr(S,4)
10．在过程中定义的变量，若希望在离开该过程后，还能保存过程中局部变量的值，则使用（ ）关键字在过程中定义局部变量。
A）Dim B）Private C）Public D）Static 11．字符数据应该在数据的( )括起来。
A) 前后各用一个双引号
B) 前后各用一个单引号
C) 前后各用一个圆括号 D) 前后各用一个“#”号
12．若要使用户不能修改文本框TextBox1中内容，应修改（ ）属性。 A) Locked B) MultiLine C) PassWordChar D) Text 13．当使用Line方法画线后，当前坐标在 （ ）。
A）(0, 0） B）直线起点 C）直线终点 D）容器的中心 14.以下( )属性不能在运行时设置。 A) Caption
B) Name C) Backcolor
D) Fontsize
15．程序的基本控制结构是（ ）。
A) 顺序结构、多分支结构和单分支结构。
B) For??Next结构、Do??Loop结构和Select??Case结构。 C) 顺序结构、选择结构和循环结构。 D) 单行结构和多行结构。
16. Timer控件可用于后台进程中，可在Timer事件内编程，要停止触发Timer事件，需要设置的属性是（ ）。
A）Visible=False 或Enabled=False B）Interval=0或Visible=False C）Interval=0或Enabled=False D）Interval=0且Enabled=False 17.在VB中，要使标签控件(Label)中的文本居中对齐，应将( )属性的值设置为2。
A) Autosize B) Alignment
C) Borderstyle D) Caption
18.设置命令按钮的标题文字时，应改变的属性是（ ）。
A) text a = 1 b = 2
Print IIf(a >= b, a, b) End Sub
单击窗体时，输出结果为：
A）0 B）1 C） 2 D）3 20.如果执行一个语句后弹出如图所示的窗口，则这个语句是
B) Name C) Caption D) (名称)
19.Private Sub Command1_Click()
A）InputBox(\请输入VB数据\输入框\ B）i = InputBox(\请输入VB数据\输入框\ C） i = InputBox(\输入框\请输入VB数据\ D）InputBox(\输入框\请输入VB数据\21.有下列程序：
Private Sub Command1_Click() a = InputBox(\请输入\b = InputBox(\请输入\Print a + b End Sub
运行时输入1和2，输出的结果是
A）3 B）12 C）1+2 D）出错 22.有以下程序：
Private Sub Form_click()
b = 1: a = 2 Do While b < 10 b = 2 * a + b Loop Print b End Sub
运行后输出的结果是（ ）。
A）13 B）17 C） 21 D）33
23.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim array1(10, 10) As Integer
Dim i As Integer, j As Integer, k As Integer k = 1
For i = 1 To 4 For j = 1 To 4 array1(i, j) = k k = k + 1 Next j Next i
Text1.Text = array1(2, 2) + array1(2, 3) End Sub??
程序运行后，单击命令按钮，在文本框中显示的值是 ?? A）11 B）12 C）13 D）14 24.下列程序的输入值为15时，其运行结果为( )。
Dim a as integer
A = InputBox(\请输入a的值\Select case A Case 1 to 4 Print \ Case 5 to 10 Print \ Case is=15 Print \ Case else Print \End select
A） \ B）\ C） \ D）\ 25. 设有如下程序段： x = 0
For i = 1 To 10 Step 3 x = x + i Next Print x
运行以上程序后，x的值是（ ）。 A) 12 B) 22 C) 25 D) 32
三、程序填空题（16%，每空2分）
1.窗体上有一个名称为Combo1的组合框，其初始内容为空，有一个名称为Command1、标题为“添加项目”的命令按钮。程序运行后，如果单击命令按钮，会将给定数组中的项目添加到组合框中，程序运行结果如图所示。请填空。
Option Base 1
Private Sub Command1_Click() Dim city As Variant
city = ___( 1 )_____(\北京\上海\天津\重庆\西宁\For i = ____( 2 )____ To UBound(city) Combo1.AddItem ____( 3 )_____ Next i End Sub
2.窗体上有一个名称为Text1的文本框和一个名称为Command1、标题为“计算”的命令按钮，如图所示。函数Fun及命令按钮的单击事件过程如下，请填空。
Private Sub Command1_Click() Dim x As Integer
x = Val(InputBox(\输入数据\Text1 = fun(x) + fun(x) End Sub
Function fun(ByRef n As Integer) As Integer If n Mod 3 <> 0 Then n = n + 1