一、单选题（30分，每小题1分）u 下列软件中属于系统软件的是 (1) A) Windows2000 (B) Excel (C) 杀毒软件 (D) Wordu 显示器属于计算机部件中的 (2) A) 输出设备 (B) 输入设备 (C) 存储设备 (D) 打印设备u 下列表示存储容量的数据中， (3) 是最大的A)20480 KB (B) 1.44 MB (C) 1 GB (D)4865723 Byteu 下列名称中只有 (4) 可以在 WINDOWS 中作为文件名使用A) TV??.EXE (B) Windows:Program.Files.TXT (C) Word.TXT (D) 1234*.COMu 二进制数 1011 等于十六进制数 (5) A) 10 (B) 11 (C) A (D) Bu 以下关于 VB 的说法错误的是 (6) A) 标准模块附属于窗体(B) 标准模块用来声明全局变量和定义一些通用的过程(C) 相对于传统的编程语言，VB 最突出的特点是可视化编程(D) VB 的窗体设计窗口主要是用来建立用户界面u 编写一个 VB 工程需要使用或保存多种类型的文件以下名称中 (7) 不是 VB 编程中会用到的文件扩展名。
A) BAS (B) DOC (C) OCX (D) FRMu 下列控件中 (8) 不可设置焦点A) 文本框 (B) 列表框 (C) 命令按钮 (D) 标签u 设置文本框 Text1 可以有光标但不能编辑，应使用 (9) 语句A) Text1.Locked = True (B) Text1.Locked = False(C) Text1.Enabled = False (D) Text1.Visible = Falseu 在一个窗体中有一个命令按钮和若干个文本框当用户在文本框中输入数据时，只要按下回车就相当于单击了命令按钮要完成这一功能，应将命令按钮的 (10) 属性设置为 TrueA) Value (B) Default (C) Visible (D) Enabledu 执行语句 Print String(5, "AB") ，显示的结果是 (11) A) ABABABABAB (B) AAAAA (C) aaaaa (D) ababababu VB 语句中使用 (12) 字符表示注释部分A) ' (B) : (C) \ (D) _要使 TextBox 控件中显示多行文本，应设置其 (13) 属性值为 True。
A) ScrollBars (B) MaxLength (C) MultiLine (D) Lockedu 关于 Name 属性，以下叙述中 (14) 是正确的A) 窗体的 Name 属性指定窗体的名称，用于标识一个窗体B) 窗体的 Name 属性用于设置显示在窗体标题栏的文本C) 可以通过代码在程序运行中改变某个对象的 Name 属性值D) 对象的 Name 属性值可以设置为空u 下列名称中 (15) 可以作为 VB 的变量名A) mod (B) m-d (C) tempVal (D) leftu 关于全局变量，正确的描述是 (16) A) 全局变量只能在标准模块中声明(B) 全局变量可以标准模块或窗体的“通用”部分(C) 没有显式声明过的变量，系统将默认为全局变量(D) 由于全局变量可以在各个模块中的访问，所以程序中应尽可能地使用全局变量u 要求出变量x 和y 中较大的一个并保存在变量Max 中，下面的程序段中 (17) 是不正确的A) Max = IIf(x >(B)If x > yThen(C)Max = x(D)If y > x Theny, x, y) Max= x ElseMax =If y >=x ThenMax= yyMax= yMax = xu 设 x 和 y 都是数值型变量，使用 (18) 组语句可将 x 和 y 的值互换。
A) x = y: y = x (B) x = x + y: y = x - y: x = x - y(C) x = x + y: x = x - y: y = x – y (D) x = (x + y) / 2: y = (x - y) / 2u 对于语句 If x = 10 Then y = 100 的语法分析， (19) 是正确的A) x=10 和 y=100 都是赋值语句 (B) x=10 是关系表达式，y=100 是赋值语句(C) x=10 和 y=100 都是关系表达式 (D) x=10 是赋值语句，y=100 是关系表达式u 运行下列程序段，单击两次命令按钮，则第二次单击时窗体中显示的结果是 (20) Private Sub Command1_Click() Dim a As IntegerStatic b As Integer a = a + 5b = b + 5 Print a, bEndSub(A) 510(B) 55(C) 1010(D) 00u 在系统默认的情况下，Dim a(3,4,2To 5) 定义的数组共有 (21) 个元素A) 36 (B) 48 (C)60(D) 80u 下面的子过程定义语句中没有语法和逻辑错误的是 (22) 。
A) Sub S1(ByVal n%())(B) Sub S1(n As Integer) As Integer(C) Function S1(ByVal n As Integer)(D) Function S1%(ByVal S1 As Integer)u 引用列表框 List 中最后一项的文本应使用 (23) .(A) List1.List(List1.ListCount)(B) List1.List(List1.ListCount-1)(C) List1.List(ListCount)(D) List1.ListListCount-1u 如果需要在单击滚动条两端的箭头时滚动条的值改变量为 10，则应设置其 (24) 属性值为10 (A) Value (B) SmallChange (C) LargeChange (D) Maxu 下列关于 VB 中编辑菜单的叙述，错误的是 (25) A) 同一窗体中不允许出现标题相同的菜单项(B) 在定义菜单时使用符号“&”加字母表示菜单项的热键(C) 程序运行中，可以重新设置菜单的 Enabled 属性(D) 弹出式菜单也在菜单编辑器中定义u VB 中默认的坐标原点在窗体的 (26) 。
A) 左上角 (B) 左下角 (C) 中心 (D) 底部中点u 以下关于文件的叙述中正确的是 (27) A) 一个记录中所包含的各元素的数据类型都是相同的(B) 随机文件中每个记录的长度是固定的(C) Open 命令的作用是打开一个已经存在的文件(D) 使用 Input # 语句可以从随机文件中读取数据u 执行下面的程序段后，显示 x 的值为 (28) x = 5For I = 1 To 20 Step 2 x = x + I \ 5Next I Print x(A) 21 (B) 22 (C) 23 (D) 24窗体中有一个命令按钮，编写如下程序：Private Sub test(p,m,n) Private Sub Command1_Click()p=p+1: m=m+1: n=n+1 a1=1: b1=2: c1=3Print “Sub:”; p; m; n Call test(a1,b1+3,(c1))End Sub Print “Main:”; a1; b1; c1End Sub程序运行后，输出结果为 (29) A) Sub: 2 6 4 (B) Sub: 2 6 4 (C) Sub: 2 6 4 (D) Sub: 2 6 4Main: 2 6 4 Main: 1 6 4 Main: 1 2 3 Main: 2 2 3u 设置文本框的 (30) ，可以使文本框中输入密码时只显示#号。
A) Text 属性值为# (B) Caption 属性值为#(C) Passwordchar 属性值为# (D) Passwordchar 属性值为 True二、填空题（50分，每空2分）u Visual Basic 中有三种类型的模块文件，即类模块、标准模块和 [1] 模块u 语句 Dim a, b As Date 定义的变量 a 的类型为 [2] ，b 的类型为 [3] u 执行如下程序段，在输入对话框中分别输入 421 和 356，显示的结果是 [4] a = InputBox("请输入一个整数") '输入 421 b = InputBox("请输入一个整数") '输入 356 Print a + bu 单击命令按钮 Command1 执行下列程序段，则文本框 Text1 中显示 [5] ，Text2 中显示 [6] Private Sub Command1_Click()Text1.Text = "VB Programming" Text2.Text = Text1.Text Text1.Text = "How are you!"End Subu 代数式 对应的 VB 表达式为 [7] 。
u 执行下列语句序列，显示的结果是 [8] a = 2: b = 3: c = 4: d = 5Print 3 > 2 * b Or a = c And b <> c Or c > du 下面两个语句连续执行时显示的结果是 [9] a$ = "4567132"Print Val(Mid(a, 2, 3) + Right(a, 3))u 运行下列程序，单击命令按钮，则文本框Text1 中显示 [10] ，Text2 中显示 [11] Private Sub Command1_Click()Dim a As Integer, n As Integer a = 1: n = 0Do While a < 20 a = a * 3n = n + 1 Loop Text1.Text = a Text2.Text = nEnd Subu 运行下列程序，单击命令按钮，则 Text1 中显示 [12] ，窗体中显示 [13] Private Sub Command1_Click()Dim i As Integer, j As Integer For i = 1 To 10 Step 3j = i Next iText1.Text = j Print iEnd Subu 运行下列程序，单击命令按钮，则 Text1 中显示 [14] ，窗体中显示 [15] 。
Private Sub Command1_Click()Dim i As Integer, j As Integer, a(5, 4) As Integer For i = 2 To 3For j = 2 To 4 a(i, j) = i + jNext j Next iText1.Text = a(3, 2) Print a(3, 1)End Subu 下。