x = x + I \\ 5 Next I Print x
(A) 21 (B) 22 (C) 23 (D) 24 窗体中有一个命令按钮，编写如下程序： Private Sub test(p,m,n) p=p+1: m=m+1: n=n+1 Print “Sub:”; p; m; n End Sub
Private Sub Command1_Click() a1=1: b1=2: c1=3 Call test(a1,b1+3,(c1)) Print “Main:”; a1; b1; c1 End Sub
程序运行后，输出结果为___(29)___。 (A) Sub: 2 6 4
Main: 2 6 4 (B) Sub: 2 6 4 Main: 1 6 4 Main: 2 2 3
(C) Sub: 2 6 4
Main: 1 2 3 (D) Sub: 2 6 4
设置文本框的___(30)___，可以使文本框中输入密码时只显示#号。 (A) Text属性值为# (B) Caption属性值为#
(C) Passwordchar属性值为# (D) Passwordchar属性值为True
二、填空题（50分，每空2分）
Visual Basic中有三种类型的模块文件，即类模块、标准模块和___[1]___模块。 语句 Dim a, b As Date 定义的变量a的类型为___[2]___，b的类型为___[3]___。 执行如下程序段，在输入对话框中分别输入421和356，显示的结果是___[4] ___。 a = InputBox(\请输入一个整数\ '输入421 b = InputBox(\请输入一个整数\ '输入356 Print a + b
单击命令按钮Command1执行下列程序段，则文本框Text1中显示___[5] ___，Text2中显示___[6] ___。 Private Sub Command1_Click() Text1.Text = \ Text2.Text = Text1.Text Text1.Text = \End Sub
21
代数式 对应的VB表达式为___[7]___。
执行下列语句序列，显示的结果是___[8]___。 a = 2: b = 3: c = 4: d = 5
Print 3 > 2 * b Or a = c And b <> c Or c > d
下面两个语句连续执行时显示的结果是___[9]___。 a$ = \
Print Val(Mid(a, 2, 3) + Right(a, 3))
运行下列程序，单击命令按钮，则文本框Text1中显示___[10]___，Text2中显示__[11]___。Private Sub Command1_Click() Dim a As Integer, n As Integer a = 1: n = 0 Do While a < 20 a = a * 3 n = n + 1 Loop Text1.Text = a Text2.Text = n End Sub
运行下列程序，单击命令按钮，则Text1中显示__[12]_，窗体中显示__[13]__。 Private Sub Command1_Click() Dim i As Integer, j As Integer For i = 1 To 10 Step 3 j = i Next i Text1.Text = j Print i End Sub
运行下列程序，单击命令按钮，则Text1中显示___[14]___，窗体中显示___[15]___。 Private Sub Command1_Click()
Dim i As Integer, j As Integer, a(5, 4) As Integer For i = 2 To 3 For j = 2 To 4
22
a(i, j) = i + j Next j Next i
Text1.Text = a(3, 2) Print a(3, 1) End Sub
下面这段程序用于产生一个8位整数x，统计其中数字0~9分别出现了多少次。 例如：产生随机数 54280395，则显示如图的结果。 填空完成程序：
Dim x As ___[16]___, a(___[17]__) As Integer Dim s As String, i As Integer, n As Integer x = Int(Rnd * ___[18]___ ) + 10000000 Print x s = Trim(x) For i = 1 To 8 n = Val(Mid(s, i, 1)) a(n) = a(n) + 1 Next For i = 0 To 9
Print i; ; \Next i
运行下面这段程序，在文本框Text1和Text2中分别输入一串字符，单击命令按钮时，在Text1中删除掉Text2中的内容。例如Text1中输入“ABCDEFG”，Text2中输入“CD”，则单击Command1时，Text1中显示“ABEFG”。 填空完成程序。
Sub DeleStr(S1$, S2$) Dim n% Do
n = InStr(S1, S2) If n = 0 Then __[20]____ S1 = Left(S1, n - 1) + __[21]__ Loop End Sub
Private Sub Command1_Click() Dim x$, y$ x = Text1.Text
23
y = Text2.Text Call __[22]___ Text1.Text = x End Sub
设当前文件夹已有文件t1.txt和t2.txt，其中各有若干文字。现要将t2.txt的内容合并到t1.txt 中。例如t1.txt原来内容为\原来内容为\，合并后t1.txt的内容将成为“ABCD1234” Private Sub Command1_Click() Dim s$
Open \ Open \ Do While Not EOF(2) Line Input #2, s ____[24]____ Loop ____[25]____ End Sub
三、编程题（20分，每题10分）
1．在窗体中有一行文字，运行该窗体时每0.1秒自动向右移动40twips。单击窗体则停止移动。 请写下完成该窗体功能所需要的控件、主要的属性设置和主要事件过程代码。 2．编程求组合数 。
要求用户输入两个正整数n > m，计算并显示结果。当输入的数据不符合要求时给出错误提示。界面形式不限。
试题四
一、单选题（30分，每题1分）
1． 计算机中采用二进制，是因为______。
(A)可降低硬件成本 (B)两个状态的系统具有稳定性 (C)二进制的运算法则简单 (D)上述三个原因 2．我们通常说的U盘属于计算机部件中的______。
(A) 输出设备 (B) 输入设备 (C) 存储设备 (D) 打印设备 3. 下列表示存储容量的数据中，________是最小的。
(A)20480 KB (B) 1.44 MB (C) 1 GB (D)4865723 Byte 4. 一个完整计算机系统应包括_______。
(A) 主机和显示器 (B)硬件系统和软件系统 (C)系统软件和应用软件 (D) 内存和外存 5. 下列执行速度最快的程序语言是_______。
(A)数据库语言 (B)高级语言 (C)机器语言 (D)汇编语言 6. 一只白色的足球被踢进球门，则白色、足球、踢、进球门是______。
24
(A) 属性、对象、方法、事件 (B) 属性、对象、事件、方法 (C) 对象、属性、方法、事件 (D) 对象、属性、事件、方法 7. 以下叙述中正确的是________。
(A)窗体的Name属性指定窗体的名称，用来标识一个窗体 (B)窗体的Name属性的值是显示在窗体标题栏中的文本 (C)可以在运行期间改变对象的Name属性的值 (D)对象的Name属性值可以为空
8. 在VB中，保存一个工程至少应保存两个文件，这两个文件分别是______。 (A)文本文件和工程文件 (B)窗体文件和工程文件 (C)窗体文件和标准模块文件 (D)类模块文件和工程文件 9. 在下列说法中，正确的是______
(A) 通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上 (B) 在列表框中不能进行多项选择
(C) VB系统不能在列表框中自动实现将项目按字母顺序从大到小排列 (D)复选框的Value属性值为布尔型
10.当一个复选框被选中时，它的Value属性的值是______ (A) 3 ( B) 2 (C) 1 (D) 0 11.计算结果为0的表达式是_______
(A)Int(2.4)+Int(-2.8) (B)Cint(2.4)+Cint(-2.8) (C)Fix(2.4)+Int(-2.8) (D)Fix(2.4)+Fix(-2.8)
12.可以惟一标识控件数组中的每一个控件属性的是_______ (A)Name (B)Caption (C)Index (D)Enabled 13. 下列变量名中，合法的变量名是_______。 (A)m24 (B)mn-k (C)24m (D)m+n
14. 若有语句”Dim Flag As Boolean”，则下面赋值语句正确的是________。 (A) Flag =\ (B) Flag='True' (C)Flag=Ture (D)Flag=True 15. 下列叙述不正确的是________。
(A)InputBox函数返回值为字符型 (B)MsgBox函数返回值为所单击按钮的键值 (C) MsgBox语句没有返回值 (D) MsgBox语句返回值为所单击按钮的键值
16. 若要在Text1的光标(焦点)移动到其它控件时进行合法性判断，则可使用____事件来实现。(A) Refresh (B) SetFocus (C) LostFocus (D) GotFocus 17.一般情况下，控件的大小是由______属性确定的
(A) Width和Height (B) Top和Left (C) Width和Left (D) Top和Width 18．以下能判断是否到达文件尾的函数是______ (A)BOF (B) LOC (C)LOF (D)EOF 19．下列过程语句说明合法的是________。
(A)Sub f1(ByVal n() As Integer) (B)Sub f1(n() As Integer)As Integer (C)Function f1(f1 As Integer) As Integer (D)Finction f1(ByVal n As Integer)
25