Private sub p12（n） n=1＋2*n End Sub
Private Sub Form_cliCk（） For j＝ 5 To 3 Step－l P12 j m＝m＋n Next j Print m； n End Sub
运行后输出的是 B 。
A）12 6 B）11 7 C） 6 6 D） 15 9 2下列程序
Private Sub p13（x，y） X＝ 2* x ＋ y： y＝ 3*y Print “x=”;x;”,y=”;y End Sub
Private Sub Form_click（） a＝ l： b=l
Print”A＝” ； a；”，B=”； b Call p13((a)， b）
Print “A＝”；a；”，B＝”； b End Sub
运行后输出的是 B 。
A） A＝l，B＝1 B） A＝1，B＝l X=2，Y＝3 X=3， Y＝3 A＝l，B＝l A＝l， B＝3 C） A＝l， B＝1 D） A＝l， B＝1 X＝2，Y＝3 X＝3， Y＝3 A＝2, B＝3 A＝3， B＝3 3．下列程序
Private Sub Form_ click（）
title＝ val（InputBOx（”请输入一个数”）） fee＝Countl（title） Print fee
26
End Sub
Function Countl（title） If title<40 then Pay= title/ 2 Else
Pay＝ 2* title End if ’ Countl= pay End Function
运行时从键盘输入20，输出结果是＿A 。 A） 10 B） 20
C）30 D）显示出错信息 二、填空题”
1．程序是打印N行标辉三角形，运行的结果为 1 1 1 1 2 1 1 3 3 1 1 4 6 4 1 1 5 10 10 5 1 1 6 15 20 15 6 1 请在画线处填上适当的内容使程序完整。 Private Sub Form_click（） Dim a（）
n= Val（InputBox（”请输入一个整数”）） ReDim a（n， n）
Call p15（a（）， n ） End Sub
Private Sub p15（a（）， n） For i=1 to n For j＝1 to i
If j=1 or i=j then a(i,j)=1 else a(i,j)=a(i-1,j-1)+a(i-1,j) Print Tab（（j-1）*6＋l）；a（i，j）； Next j
Print Next i
27
End Sub
2程序运行的结果为 1 11 12 21 22 23 31 32 33 34 请在画线处境上适当的内容使程序完整。 Private Sub Form_click（） Call p16() End Sub
Privat Sub pl6（） For i=1 TO 4 For j= 1 to i a＝ (i-1)*10+j Print Tab（（J－ l）＊ 5＋ NeXt j Print Next i End Sub
3程序运行的结果为 ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊
请在画线处填上适当的内容使程序完整。 Private Sub Form_Click（） Call pl7 End Sub
Private Sub pl7（）
Print Tab（ 5）； “＊”
28
）； a； 1
For i＝ 1 TO 4
Print tab(5-i);”*”;tab(5+i);”*” Next i
For i＝ 4 TO 1 Step- 1
Print tab(5-i);”*”;tab(5+i);”*” Next i
Print tab（ 5）；”*” End Sub
4．已知按升序排好的10个数存放在数组A中，最后一个数据0是结束标志，由键盘输入一个数，插入到一个适当的位置，使该数组仍为有序，然后打印出数组中的数据。
Option Base 1
Private Sub Form_Click（）
a=Array（8，13，36 ,59，73，99，123，231，342，456，0） n＝Val（InputBox（””））： call p18(a(),n) End Sub
Private Sub pl8（a， n）
For J= 11 To 2 step -1
If n＞ a（J- l） Then exit for a（J）＝a（J-l） Next J
A(J)=n
For i＝1 TO 11：Print a（i）；：Next I ：END SUB
12.8 练习题
1. VB6.0规定窗体模块文件扩展名是 A A） .frm B) .frx C) .vbp D) .bas 2. 按文件中数据的编码方式可分为 B A）顺序文件和随机文件 B) ASII码文件和二进制文件 C) 程序文件和数据文件 D) 源程序和可执行文件 3. 文件是 C 构成数据集合
A） 字段 B) 字符 C) 记录 D) 汉字 4. 以下控件中具有pattern属性的是 A
A）文件列表框 B) 驱动器列表框 C) 目录列表框 D) 列表框
29
5. 以下关于VB6.0中打开文件的叙述错误的是 D
A） VB6.0在引用文件之前必须将其打开
B) 用open语句可以打开随机文件、二进制文件等 C) open语句的文件号是1~500之间整数 D) 使用for append参数不能建立新的文件
6. 以下四条命令选项中可以实现文件的移动功能的是 A A）name命令 B) kill命令 C) filecopy命令 D) open命令
7. 以下列四个控件选项中可以列出计算机中的所有驱动器的是 B
A） 文件列表框 B) 驱动器列表框 C) 目录列表框 D) 列表框
30