Private Sub Command1_Click() Dim arr1%, Max%
arr1 = Array(12, 435, 76, 24, 78, 54, 866, 43) 【7】 For i = 1 To 8
If arr1(i) > Max Then 【8】 【9】 Print \最大值是: \End Sub
5、设在窗体上有一个文本框Text1，一个标签数组Label1,共有10个标签，以下程序代码实现在单击任一个标签时将标签的内容添加到文本框现有内容之后。 Private Sub Labell_Click(Index As Integer)
Text1.Text= 【10】 End Sub
6、下列程序的功能是：当x<47时，y=10 x；当47≤x≤100时，y=0.7x；当x>100时，没有意义。请填空。 Private Sub Command1_Click() Dim x As Single
x=InputBox(\请输入x的值！\ 【11】 Case Is < 47 【12】 Case 47 To 100 y=0.7 * x Case Else
Print \输入的数据出界！\End Select Print x, y End Sub
8、表达式Fix(-32.68)+Int(-23.02)的值为 【13】
9、下面的程序用“冒泡”法将数组a中的数组元素按升序排列，请将程序补充完整。 Option Base 1
Private Sub Command1_Click() Dim a
a=Array(67, 45, 24, 52, 49, 37, 87, 58, 23, 82) For i=【14】 For j=【15】 If a(j) 【16】 t=a(j)
16
【17】 a(j＋1)=t End If Next j Next i
For i= 【18】 Print a(i); Next i End Sub
11、下列程序运行时，当单击窗体后，从键盘分别在文本框Text1、Text2输入整数m、n，求解m、n的最大公约数，并将结果显示在窗体上。请将程序补充完整 Private Sub Form_click()
m = 【19】 n = Val(Text2.text)
Print m ; \和\的最大公约数是：\【20】 End Sub
Private Function gys(n, m) p = n Mod m If p=0 Then 【21】 Else
【22】 End If End Function
12、在窗体模块中编写以下Sub过程和窗体Click事件过程： Private Sub suba(x As Integer,y As Integer) Dim t As Integer t =x: x=y : y=t End Sub
Private Sub Form_Click() Dim a As Integer,b As Integer a =10: b =20 Call suba(a,b) Print a ;b; Call suba(b,a) Print a ;b End Sub
当程序运行时，在窗体中单击鼠标左键，则程序的输出结果是 【23】 。
17
13、以下程序的功能是：把当前目录下的顺序文件smtext1.txt的内容读入内存，并在文本框Text1中显示出来。请填空。
Private Sub Command1_Click() Dim Data As String Text1.Text = \
Open \【24】 Do While 【25】 Data = Input(1，#1)
Text1.Text = Text1.Text & Data Loop Close #1 End Sub
三、编程题（20分，每小题10分）
1、 编写程序，分别统计出文本框Text1中输入的字符串中所包含的字母、数字和其它字符的个数，并将结果显示在窗体上。
2、 编写一个函数，求任意正整数k的阶乘k! = 1 * 2 *? * k。再编写一段事件过程，用户输入两个整数n和m（n≥m），求组合数。
试题三
一、单选题（30分，每小题1分）
下列软件中属于系统软件的是___(1)____。
(A) Windows2000 (B) Excel (C) 杀毒软件 (D) Word 显示器属于计算机部件中的___(2)___。
(A) 输出设备 (B) 输入设备 (C) 存储设备 (D) 打印设备 下列表示存储容量的数据中，____(3)____是最大的。
(A)20480 KB (B) 1.44 MB (C) 1 GB (D)4865723 Byte 下列名称中只有____(4)____可以在WINDOWS中作为文件名使用。 (A) TV??.EXE (B) Windows:Program.Files.TXT (C) Word.TXT (D) 1234*.COM 二进制数1011等于十六进制数____(5)____。 (A) 10 (B) 11 (C) A (D) B 以下关于VB的说法错误的是___(6)___。 (A) 标准模块附属于窗体
(B) 标准模块用来声明全局变量和定义一些通用的过程 (C) 相对于传统的编程语言，VB最突出的特点是可视化编程 (D) VB的窗体设计窗口主要是用来建立用户界面
编写一个VB工程需要使用或保存多种类型的文件。以下名称中___(7)___不是VB编程中会用到的文件扩展
18
名。
(A) BAS (B) DOC (C) OCX (D) FRM 下列控件中___(8)___不可设置焦点。
(A) 文本框 (B) 列表框 (C) 命令按钮 (D) 标签
设置文本框Text1可以有光标但不能编辑，应使用___(9)___语句。 (A) Text1.Locked = True (B) Text1.Locked = False (C) Text1.Enabled = False (D) Text1.Visible = False
在一个窗体中有一个命令按钮和若干个文本框。当用户在文本框中输入数据时，只要按下回车就相当于单击了命令按钮。要完成这一功能，应将命令按钮的___(10)___属性设置为True。 (A) Value (B) Default (C) Visible (D) Enabled
执行语句 Print String(5, \，显示的结果是___(11)___。 (A) ABABABABAB (B) AAAAA (C) aaaaa (D) abababab VB语句中使用___(12)___字符表示注释部分。 (A) ' (B) : (C) \\ (D) _
要使TextBox控件中显示多行文本，应设置其___(13)___属性值为True。 (A) ScrollBars (B) MaxLength (C) MultiLine (D) Locked 关于Name属性，以下叙述中___(14)___是正确的。 (A) 窗体的Name属性指定窗体的名称，用于标识一个窗体。 (B) 窗体的Name属性用于设置显示在窗体标题栏的文本。 (C) 可以通过代码在程序运行中改变某个对象的Name属性值。 (D) 对象的Name属性值可以设置为空。
下列名称中___(15)___可以作为VB的变量名。 (A) mod (B) m-d (C) tempVal (D) left 关于全局变量，正确的描述是___(16)___。 (A) 全局变量只能在标准模块中声明
(B) 全局变量可以标准模块或窗体的“通用”部分 (C) 没有显式声明过的变量，系统将默认为全局变量
(D) 由于全局变量可以在各个模块中的访问，所以程序中应尽可能地使用全局变量
要求出变量x和y中较大的一个并保存在变量Max中，下面的程序段中___(17)___是不正确的。(A) Max = IIf(x > y, x, y) (B) If x > y Then Max = x Else Max = y (C) Max = x
If y >= x Then Max = y (D) If y > x Then Max = y
Max = x
设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) / 2
对于语句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是关系表达式
19
运行下列程序段，单击两次命令按钮，则第二次单击时窗体中显示的结果是__(20)__。 Private Sub Command1_Click() Dim a As Integer Static b As Integer a = a + 5 b = b + 5 Print a, b End Sub
(A) 5 10 (B) 5 5 (C) 10 10 (D) 0 0 在系统默认的情况下，Dim a(3, 4, 2 To 5) 定义的数组共有___(21)___个元素。 (A) 36 (B) 48 (C) 60 (D) 80
下面的子过程定义语句中没有语法和逻辑错误的是___(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)
引用列表框List中最后一项的文本应使用___(23)___. (A) List1.List(List1.ListCount) (B) List1.List(List1.ListCount-1) (C) List1.List(ListCount) (D) List1.ListListCount-1
如果需要在单击滚动条两端的箭头时滚动条的值改变量为10，则应设置其__(24)__属性值为10。(A) Value (B) SmallChange (C) LargeChange (D) Max 下列关于VB中编辑菜单的叙述，错误的是__(25)__。 (A) 同一窗体中不允许出现标题相同的菜单项
(B) 在定义菜单时使用符号“&”加字母表示菜单项的热键 (C) 程序运行中，可以重新设置菜单的Enabled属性 (D) 弹出式菜单也在菜单编辑器中定义 VB中默认的坐标原点在窗体的__(26)__。
(A) 左上角 (B) 左下角 (C) 中心 (D) 底部中点 以下关于文件的叙述中正确的是__(27)__。 (A) 一个记录中所包含的各元素的数据类型都是相同的 (B) 随机文件中每个记录的长度是固定的 (C) Open命令的作用是打开一个已经存在的文件 (D) 使用Input # 语句可以从随机文件中读取数据 执行下面的程序段后，显示 x 的值为___(28)___。 x = 5
For I = 1 To 20 Step 2
20