选择题(每题2分，计60分)
(1)下列可自动设置滚动条的控件是( )
A) 复选框 B) 框架 C) 文本框 D) 标签框
(2) 计时器控件的( )属性用于设置Timer事件发生的时间间隔。
A) Stretch B) Interval C) Value D) Length
(3) 表达式(73+1)*(185-1)的值是( )
A) 6 B) 7.8 C) 8.76 D) 6.67
(4) 函数InStr(“VB程序设计教程”,”程序”)的值为( )
A)1 B)2 C)3 D)4
(5) 有程序代码如下：
ion=”程序设计”
则label1、caption、”程序设计”分别代表()。
A) 对象、属性、值 B)对象、值、属性
C) 对象、方法、属性 D)属性、方法、值
(6) Inputbox函数返回值的类型是()。
A) 整型数值 B) 字符串 C)变体 D)数值或字符串
(7) 设a=6，则执行 x=IIf(a>5,-1,0)后，x 的值为() 。
A) 5 B) 6 C) 0 D) -1
(8) 产生[60，100]之间的随机整数的Visual Basic表达式是()。
A) Int(Rnd*40)+60 B) Int(Rnd*40)+61
C) Int(Rnd*41)+60 D) Int(Rnd*41)+61
(9) 执行语句s=Len(Mid("VisualBasic",1,6))后，s的值是
A) Visual B) Basic C) 6 D) 11
(10) 下面()是合法的变量名。
A) dim B) m-1 C) _123 D) X_t6
(11) 下面正确的赋值语句是()。
A)x=y+3 B)x=y=3
C)x+y=3 D)3x=y
(12)VB提供了结构化程序设计的三种基本结构，三种基本结构是()。
A)递归结构、选择结构、循环结构
B)选择结构、过程结构、顺序结构
C)过程结构、输入、输出结构、转向结构
D)选择结构、循环结构、顺序结构
(13) 确定一个控件在窗体上的位置的属性是()。
A) Width和Height B) Width或Height
C) Top和Left D) Top或Left
(14) 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程
Private Sub Command1_Click()
= "Visual"
Text1 = "Basic"
Text1 = "Program"
End Sub
程序运行后，如果单击命令按钮，则在文本框中显示的是
A) 出错 B) Visual C) Basic D) Program
(15) 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim array1(10, 10) As Integer
Dim i As Integer, j As Integer
For i = 1 To 3
For j = 2 To 4
array1(i, j) = i + j
Next j
Next i
= array1(2, 3) + array1(3, 4)
End Sub
程序运行后，单击命令按钮，在文本框中显示的.值是
A) 15 B) 14 C) 13 D) 12
(16) 设菜单中有一个菜单项为"Open"。若要为该菜单命令设计访问键，即按下Alt及字母O时，能够执行"Open"命令，则在菜单编辑器中设置“Open"命令的方式是
A) 把Caption属性设置为&Open B) 把Caption属性设置为O&pen
C) 把Name属性设置为&Open D) 把Name属性设置为O&pen
(17) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
x=InputBox("Input")
Select Case x
Case 1,3
Print "分支 1"
Case 2,4
Print "分支 2"
Case Else
Print "Else 分支 "
End Select
End Sub
程序运行后，如果在输入对话框中输入2，则窗体上显示的是()。
A) 分支1 B) 分支2 C) Else分支 D) 程序出错
(18) for k=13 to -5 step -2循环次数为：()。
A) 7 B) 8 C) 9 D) 10
(19)用下面语句定义的数组的元素个数是( )
Dim a(3,1 To 5) As Integer
A)8 B)15 C)20 D)21
(20) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
a$="Program"
Print String(3,a$)
End Sub
程序运行后，单击命令按钮，在窗体上显示的内容是
A)Pro B) ram C) gra D) PPP
(21) 保存一个工程至少应保存两个文件，这两个文件分别是()
A)文本文件和工程文件 B)窗体文件和工程文件
C)窗体文件和标准模块文件 D)类模块文件和工程文件
(22) 下列表达式的值为2123的是( )
A) Val("123asd") & 2000 B) Val("123") + 2000
C) Str(123) & "2000" D)Str(123)+"2000"
(23) 表示滚动条控件取值范围最大值的属性是()。
A)Max B)LargeChange C)Value D)Max-Min
(24) 当使用Line方法时，参数B与F可组合使用，下列组合中()不允许。
A)BF B)B C)省略不用 D)F
(25)可以RGB(x,y,z)函数获取颜色，下面的数字对应了x,y,z三个参数，其中不合法的是()。
A)0，0，0 B) 200，255，129 C) 100，256，200 D)255，255，0
(26) 在用菜单编辑器设计菜单时，必须输入的项有()。
A)快捷键 B)索引 C)热键 D)名称
(27) 在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：
Option Base 0
Private Sub Command1_Click()
Dim city As Variant
city = Array("北京", "上海", "天津", "重庆")
Print city(1)
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是
A)空白 B)错误提示 C)北京 D)上海
(28) 假定有以下函数过程：
Function Fun(S As String) As String
Dim s1 As String
For i = 1 To Len(S)
s1 = UCase(Mid(S, i, 1)) + s1
Next i
Fun = s1
End Function
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim Str1 As String, Str2 As String
Str1 = InputBox("请输入一个字符串")
Str2 = Fun(Str1)
Print Str2
End Sub
程序运行后，单击命令按钮，如果在输入对话框中输入字符串"abcdefg"，则 单击"确定"按钮后在窗体上的输出结果为
A)gfedcba B)ABCDEFG C)GFEDCBA D)abcdefg
(29) Circle(500,600)，500， ， ， ,3将绘制( )。
A)圆弧 B)扇形 C)圆 D)椭圆
(30) 在窗体上画一个命令按钮，名称为Command1，然后编写如下程序：
Private Sub Command1_Click()
int t1
Static t2
t1=t1+1
t2=t2+1
End Sub
三次单击命令按钮后，t1,t2的值分别为()：
A) 1 1 B) 3 3 C) 1 3 D) 3 1
cbaca bdccd adcdd abdcd bbadc ddcdc
学识谷
