http://www.china-pub.com/computers/common/info.asp?id=6438
http://www.china-pub.com/computers/common/info.asp?id=6174
http://www.china-pub.com/computers/common/info.asp?id=6174
解决方案 »
- 请教：窗体应用程序的运行机理
- 关于用vb调用excel表的问题~~~~急 在线等
- 报表问题，急需解决
- 高分求数组操作的问题
- 不采用网页上的表单提交，而用exe程序发送http请求（xml数据），有什么好的方案？具体请进。
- 高分求解:由于您和其他用户试图同时改变同一数据，导致 Microsoft Jet 数据库引擎停止进程 ?
- 请问以最简洁的代码,将记录集(recordset)内容导出到EXCEL文件中?
- 为什么水晶报表控件(CRViewer9)刷新按钮按下后,数据被清空?????? VB60 + CR9.2 + ORACLE
- ActiveX dll组件里能不能用webbrowser这个控件?
- CreateWindowEx创建的文本框要怎么判断失去焦点呢
- 虚拟仪器
- 一个简单的问题
A.学习版、专家版和企业版 B.中文版、英文版和学习版
C.学习版、专业版和企业版 D.内部版、正式版和测试版2.用户可通过( )模拟屏幕的小图像来布置应用程序。
A.窗体设计器 B.快捷菜单 C.立即窗口 D.窗体布局窗口3.写在一行上的多条语句，应以( )为分隔符。
A.分号 B.逗号 C.冒号 D.空格4.以下常数中，( )占用存储空间最多。
A. B.－9.43E6 C.－9.34D5 D.89898985.下列选项中，为字符串常量的是( )。
A.6/12/2001 B.“6/12/2001” C.#6,12,2001# D.6,12,2001#6.下列选项中，合法的变量名是( )
A.c%aaa B.sum__3 C.Else D.5persons7.下列选项中，为十六进制数的是( )
A.123 B.&123 C.&O123 D.&H12B8.数组的下标( )。
A.只能用数值表示 B.只能用变量表示
C.用实数表示 D.大于等于0的整数变量或整数数值常量表示9.“按相同大小制作”多个控件时，( )是制作的基准。
A.被锁定的控件 B.第一个控件 C.最后一个控件 D.主控件10.每个ActiveX控件都是扩展名为( )的独立文件。
A. .ocx B. .c C. .act D. .bmp11.控件( )属性的设置，可使该控件不能通过Tab键得到焦点。
A.TabStop B.TabIndex C.GotFocus D.SetFocus12.接受焦点的控件是( )。
A.Frame B.Command C.Label D.Timer13.下面的( )控件不具备Caption属性。
A.标签框 B.文本框 C.命令按钮 D.单选按钮14.若要使用户不能修改文本框TextBox1中内容，应修改( )属性。
A.Locked B.MultiLine C.PassWordChar D.ScrollBars15.命令按钮Command1的Caption属性为“退出(x)”，要将命令按钮的快捷键设为Alt+x，应修改Caption属性为( )
A.在x前插入& B.在x后插入& C.在x前插入# D.在x后插入#16.Label控件中内容能垂直方向变化而宽度保持不变则应设置( )属性。
A.Wordwrap B.Enabled C.Locked D.AutoSize17.使用CommonDialog控件的( )方法可显示“打印”对话框。
A.ShowOpen B.ShowSave C.ShowColor D.ShowFont18.用InputBox函数可帮助生成( )。
A.消息框 B.“保存”对话框
C.简单输入框 D.“颜色”对话框19.在VB中设计程序时，能自动被检查出来的错误是( )。
A.语法错误 B.语法错误和逻辑错误
C.运行错误 D.逻辑错误20.下列选项中，哪项不是VB提供的模板窗体( )。
A.关于对话框 B.打开对话框 C.日积月累 D.浏览器三、判断题(判断下列各小题，正确的在题后括号内打“√”，错的打“╳”。每小题1分，共10分)1.Visual Basic是一种可视化的程序设计语言。( )2.好的程序设计风格包括给变量、常量命名时要见名知意。( )3.整型和长整型的区别在于前者取值范围更大。( )4.ReDim语句只能出现在过程中。( )5.一个应用程序中只能创建一个窗体。( )6.窗体标题栏的内容取决于Name属性。( )7.CommonDialog控件是ActiveX控件。( )8.菜单项的访问键在菜单的标题属性中设置。( )9.新建一个工程时，系统自动把创建的第一个窗体作为启动窗体。( )10.内部控件可根据需要插入控件箱中或从控件箱删除。( )四、名词解释(每小题2分，共10分)1.公用变量2.通用过程3.控件4.事件5.中断(break)五、简答题(每小题5分，共20分)1.说出Visual Basic中三类模块的作用。2.在窗体生命周期中，有哪四种状态?3.什么是控件数组?设计时，可通过哪两种方法创建控件数组?4.Visual Basic提供的调试工具能帮助程序员做什么?它们能自动诊断或更正错误吗?列举其中三种调试工具。六、读程序写结果(每小题5分，共15分)1.Sub swap()
Dim x as Integer
Dim y as Integer
Dim z as Integer
X=1:y=2
Print x;y;z
X=x+y
x=x*z
Print x,y,z
End Sub
打印结果：__________2.Sub selectPrint()
Dim a as Integer
Dim b as Integer
Dim c as Integer
a=3:b=3:c=2
If(a>=b)and(a>c)Then Print a
Print a,b,c
End Sub
打印结果：__________3.Sub sele()
Dim n as Integer
i=21:n=3
Do While I>n
I=I－n
Loop
Print i
End Sub
打印结果：__________七、程序填空(每空1分，共5分) 完成下面的求2到50以内奇数的积的过程
Sub mult()
Dim sum as Integer
sum=0
Dim I as __________
For I=__________ to 50
if I MOD2=__________Then _________
___________
Print sum
End Sub
1.C 2.D 3.C 4.C 5.B 6.B 7.D 8.D 9.D 10.A 11.A 12.B 13.B 14.A 15.A 16.A 17.D 18.C 19.A 20.B三、判断题(每小题1分，共10分)
1. √ 2. √ 3. ╳ 4. √ 5. ╳ 6. ╳ 7. √ 8. √ 9. √ 10. ╳四、名词解释(每小题2分，共10分)
1.在模块声明段中声明，可提供给其他模块使用的变量。公用变量的声明关键字：public。
2.用户自行建立的可供事件过程和其他通用过程调用的过程。
3.控件是用户和计算机之间的交互工具。在VB中可分成内部控件、ActiveX控件和可插入的对象等三类。
4.事件就是使某个对象进入活动状态(又称激活)的一种操作或动作。或事件就是能被对象(窗体或控件)所识别的动作。
5.程序在执行的中途被停止，称为中断。五、简答题(每小题5分，共20分)
1.窗体模块的作用：(1)窗体中各对象的事件过程。(2)窗体和窗体中各控件的属性设置和相关说明。(3)只供本窗体共享的通用过程。
标准模块的作用：可被多个窗体共享的通用过程。护展名：BAS。 类模块的作用：用于创建新的对象类的属性、方法和定义等。 2.通常，VB窗体在整个应用程序的执行中有四种状态：(1)创建状态(2)加载状态(3)可见状态(4)卸载状态 3.所谓控件数组，即具有相同名称，类型和事件过程的一组控件。在设计时创建控件数组的常用方法是：(1)复制现有的控件并将其粘贴到窗体上(2)将相同的名字赋于多个控件。 4.调试工具能帮助程序员分析过程的执行流程，以及变量和属性的改变过程；进而帮助处理逻辑错误和运行错误，并观察出错代码的状况。 设置了自动语法检查功能后，在设计阶段录入程序代码时，如果有语法错误，系统会自动检查并给出错误提示信息，用户可以根据提示信息改正错误。 系统提供了(1)单步执行方式、(2)单过程执行方式、(3)从过程中跳出、(4)绕过部分代码、(5)设置下一条要执行的代码等调试方法，还提供了(1)本地窗口(2)立即窗口(3)监视窗口等帮助调试的工具。六、读程序写结果(每小题5分，共15分)
1.打印结果：120
0 2 0 2.打印结果：3
3 3 2 3.打印结果：3七、程序填空(每空1分，共5分)
1.integer
2. 2
3. 1
4.sum=sum*I
5.next I
（1）-（35）题每题2分，共70分。
下列各题A)、B)、C)、D)四个先项中,只有一个选择是正确的,请将正确选项涂写在答题卡相应位置上,答在试卷上不得分。
(1) 下列不能打开属性窗口的操作是 。
A) 执行"视图"菜单中的"属性窗口"命令
B) 按F4键
C) 按Ctrl+T
D) 单击工具栏上的"属性窗口"按钮 。
(2) 下列可以打开立即窗口的操作是 。
A) Ctrl+D B) Ctrl+E C) Ctrl+F D) Ctrl+G
(3) inputBox函数反回值的类型为 。
A) 数值 B) 字符串
C) 变体 D) 数值或字符串（视输入的数据而定）
(4) 可以同时删除字符串前导和尾部空白的函数是 。
A) Ltrim B) Rtrim C) Trim D) Mid
(5) 表达式4+5 \ 6 * 7 / 8 Mod 9 的值是
A) 4 B) 5 C) 6 D) 7
(6) 如果在立即窗口中执行以下操作：
a=8 <CR> (<CR>是回车键，下同)
b=9 <CR>
print a>b <CR>
则输出结果是 。
A) -1 B) 0 C) False D) True
(7) 以下语句的输出结果是 。
Print Format $(32548.5,"000,000.00")
A) 32548.5 B) 32,548.5 C) 032,548.50 D) 32,548.50
(8) 执行以下程序段后，变量c$的值为
a$="Visual Basic Programing"
b$="Quick"
c$=b$ & UCase(Mid$(a$,7,6)) & Right $ (a$,11)
A) Visual BASIC Programing
B) Quick Basic Programing
C) QUICK Basic Programing
D) Quick BASIC Programing
(9) 为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是 。
A) Value B) Default C) Cancel D) Enabled
(10) 为了把焦点移到某个指定的控件，所使用的方法是
A) SetFocus B) Visible C) Refresh D) GetFocus
(11) 设a=6，则执行 x=IIf(a>5,-1,0)后，x 的值为 。
A) 5 B) 6 C) 0 D) -1
(12) 执行下面的程序段后，x 的值为 。
x=5
For i=1 To 20 Step 2
x=x+i\5
Next i
A) 21 B) 22 C) 23 D) 24
(13) 在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
For i=1 To 4
x=4
For j =1 To 3
x=3
For k=1 To 2
x=x+6
Next k
Next j
Next i
Print x
End Sub
程序运行后，单击命令按钮，输出结果是 。
A) 7 B) 15 C) 157 D) 538
(14) 在窗体上画一个命令按钮，然后编写如下事件过程：
Prevate Sub Command1_Click()
x=0
Do Until x=-1
a = InputBox("请输入A的值")
a = Val(a)
b = InputBox("请输入B的值")
b = Val(b)
x = InputBox("请输入x的值")
x = Val(x)
a = a+b+x
Loop
Print a
End Sub
程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为 。
A) 2 B) 3 C) 14 D) 15
(15) 在窗体(Name属性为Form1)上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name 属性为Command1），然后编写如下两个事件过程：
Private Sub Command1_Click()
a=Text1.Text+Text2.Text
Print a
End SubPrivate Sub Formm_Load()
Text1 Text=""
Text2 Text=""
End sub
程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出结果为 。
A) 444 B) 321123 C) 123321 D) 132231
(16) 阅读下面的程序段：
For i=1 To 3
For j=1 To i
For k=j To 3
a=a+1
Next k
Next j
Next i
执行上面的三重循环后，a 的值为 。
A) 3 B) 9 C) 14 D) 21
(17) 在窗体上画一个文本框（其中Name属性为Text1），然后编写如下事件过程：
Private Sub Form_Load()
Ttext1.Text=""
Text1.SetFocus
For i=1 To 10
Sum=Sum+i
Next i
Text1.Text=Sum
End Sub
上述程序的运行结果是 。
A) 在文本框Text1中输出55
B) 在文本框Text1中输出0
C) 出错
D) 在文本框Text1中输出不定值
(18) 在窗体上画两个文本框(其Name 属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1)，然后编写如下事件过程：
Private Sub Command1_Click()
x=0
Do While x<50
x=(x+2)*(x+3)
n=n+1
Loop
Text1.Text=Str(n)
Text2.Text=Str(x)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为
A) 1和0 B) 2和72 C) 3和50 D) 4和168
(19) 用下面语句定义的数组的元素个数是 。
Dim A (-3 To 5) As Integer
A) 6 B) 7 C) 8 D) 9
(20) 以下程序的输出结果是
Option Base 1
Private Sub Command1_Click()
Dim a(10),p(3) As Integer
k=5
For i=1 To 10
a(i)=i
Next i
For i=1 To 3
p(i)=a(i*i)
Next I
For i=1 To 3
k=k+p(i)*2
Next i
Print k
End sub
A) 33 B) 28 C) 35 D) 37
(21) 在窗体上面画一个命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Commandl_Click()
Dim a
a = Array(1,2,3,4)
j = 1
For i = 4 To Step -1
s = s + a(i)*j
j =j*10
Next i
Print s
End Sub
运行上面的程序，单击命令按钮，其输出结果是 。
A) 4321 B) 12 C) 34 D) 1234
(22) 在窗体上面一个命令按钮（其Name属性为Commandl），然后编写如下代码：
Option Base 1
Private Sub Commandl_Click( )
Dim a(4,4)
For i =1 To 4
For j =1 To 4
a(i,j) = (i-1)*3+j
Next j
Next i
For i =3 To 4
For j =3 To 4
Print a(j,i);
Next j
Print
Next i
End Sub
程序运行后，单击命令按钮，其输出结果为 。
A) 6 9 B) 7 10 C) 8 11 D) 9 12
7 10 8 11 9 12 10 13
(23) 假定有如下的Sub过程：
Sub S（x As Single,y As Single）
t = x
x =t/y
y =t Mod y
End Sub
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl_Click ( )
Dim a As Single
Dim b As Single
a =5
b =4
S a,b
Print a,b
End Sub
程序运行后，单击命令按钮，输出结果为 。
A) 5 4 B) 1 1 C) 1.25 4 D) 1.25 1
(24) 阅读程序：
Function F(a As Integer)
b = 0
Static c
b = b+1
c = c+1
f = a+b+c
End FunctionPrivate Sub Commandl_Click ()
Dim a As Integer
a =2
For i =1 To 3
Print F(a)
Next i
End Sub
运行上面的程序，单击命令按钮，输出结果为 。
A) 4 B) 4 C) 4 D) 4
4 5 6 7
4 6 8 9
Sub subP(b() As Integer)
For i =1 To 4
b(i)=2*i
Next i
End SubPrivate Sub Commandl_Click()
Dim a(1 To 4)As Integer
a (1)=5
a (2)=6
a (3)=7
a (4)=8
subP a ()
For i =1 To 4
Print a(i)
Next i
End Sub
运行上面的程序，单击命令按钮，输出结果为 。
A）2 B）5 C）10 D）出错
4 6 12
6 7 14
8 8 16
(26) 下列不能打开菜单编辑器的操作是 。
A）按Ctrl+E
B）单击工具栏中的"菜单编辑器"按钮
C）执行"工具"菜单中的"菜单编辑器"命令
D）按Shift + Alt + M
(27) 假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效（变灰），应使用的语句为 。
A) MenuItem. Enabled=False
B) MenuItem. Enabled=True
C) MenuItem. Visible=True
D) Menultem. Visible=False
(28) 在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条事件是 。
A) Move B) Change C) Scroll D) GetFocus
(29) 假定窗体上有一个标签，名为Labell，为了使该标签透明并且没有边框，则正确的属性设置为 。
A) Label1. BackStyle=0
Label1.Borderstyle=0
B) Label1.BackStyle=1
Label1.Borderstyle=1
C) Label1.BackStyle=True
Label1.BorderStyle=True
D) Label1.BackStyle=False
Label1.Borderstyle=False
(30) 在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程：
Private Sub Form_Load ()
List1.AddItem"357"
List1.AddItem"246"
List1.AddItem"123"
Listl.AddItem"456"
Text1.Text=""
End SubPrivate Sub List1_ DblClick ( )
a =List1.Text
Print a+Text1.Text
End Sub
程序运行后，在文本框中输入"789"（见图1），然后双击列表框中的"456"，则输出结果为 。
A) 1245 B) 456789 C) 789456 D) 0
(31) 为了暂时关闭计时器，应把该计时器的某个属性设置为False ，这个属性是 。
A) Visible B) Timer C) Enabled D) Interval
(32) 为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为 。
A）Get文件号，记录号，变量名
B）Get文件号，变量名，记录号
C）Put文件号，变量名，记录号
D）Put文件号，记录号，变量名
(33) 对窗体编写如下事件过程：
Private Sub Form _MouseDown(Button As Integer, _
Shift As Integer, X As Single Y As Single)
If Button =2 Then
Print "AAAAA"
End If
End SubPrivate Sub Form _ MouseUp(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
Print "BBBBB"
End Sub
程序运行后，如果单击鼠标右键，则输出结果为 。
A) AAAAA B) BBBBB C) AAAAA D) BBBBB
BBBBB AAAAA
(34) 为了在运行时能显示窗体左上角的控制框（系统菜单），必须 。
A) 把窗体的Contro1Box 属性设置为Fale,其他属性任意
B) 把窗体的ControlBox 属性设置为True,并且把Boder Style属性设置为1-5
C) 把窗体的ControlBox 属性设置为False,同时把BoderStyle属性调协为非0值
D) 把窗体的ControlBox 属性设置为True,同时把BoderStyle属性设置为0值
(35) 对窗体编写如下代码：
Option Base 1
Private Sub Form_KeyPress(KeyAscii As Integer)
a = Array(237,126,87,48,498)
m1 = a(1)
m2 = 1
If KeyAscii = 13 Then
For i =2 To 5
If a(i)>ml Then
m1 =a(j)
m2 =i
End If
Next i
End If
Print m1
Print m2
End Sub
程序运行后，按回车键，输出结果为
A) 48 B) 237 C) 498 D) 498
4 1 5 4
二、填空题（每空２分，共30分）
请将每空的正确答案写在答题卡[1]-[15]序号的横线上，答在试卷上不得分。
（1）设有如下的Visual Basic表达式：
5 * x^2 - 3 * x - 2 * Sin(a)/3
它相当于代数式【1】 。
（2）执行下面的程序段后，s的值为 【2】 。
s = 5
For i = 2.6 To 4.9 Step 0.6
s = s+1
Next i
（3）表达式Fix(-32.68)+Int(-23.02)的值为 【3】 。
（4）为了在运行时把图形文件picfile. jpg装入图片框Picture1,所使用的语句为【4】 。
（5）在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
a = InputBox("请输入一个整数")
b = InputBox("请输入一个整数")
Print a + b
End Sub
程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为 【5】 。
(6) 执行下面的程序段后，b的值为【6】 。
a=300
b=20
a=a+b
b=a-b
a=a-b
(7) 以下程序段的输出结果是【7】 。
num=0
While num<=2
num=num+1
Print num
Wend
(8) 在窗体画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a(1 To 10)
Dim p(1 To 3)
k=5
For i=1 To 10
a(i)=i
Next i
For i=1 To 3
p(i)=a(i*i)
Next i
For i=1 To 3
k=k+p(i)*2
Next i
Print k
End Sub
程序运行后，单击命令按钮，输出结果是【8】 。
(9) 下面的程序用"冒泡"法将数组a中的10个整数按升序排列，请在【9】、【10】、【11】处将程序补充完整。
Option Base 1
Private Sub Command1_Click()
Dim a
a=Array(678,45,324,528,439,387,87,875,273,823)
For i=【9】
For j=【10】
If a(i) 【11】 a(j) Then
a1=a(i)
a(i)=a(j)
a(j)=a1
End If
Next j
Next i
For i=1 To 10
Print a(i)
Next i
End Sub
(10) 在窗体画一个命令按钮，然后编写如下过程：
Function fun(ByVal num As Long)As Long
Dim k As Long
k=1
num=Abs(num)
Do While num
k=k*(num Mod 10)
num=num\10
Loop
fun=k
End FunctionPrivate Sub Command1_Click()
Dim n As Long
Dim r As Long
n=InputBox("请输入一个数")
n=CLng(n)
r=fun(n)
Print r
End Sub
程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为【12】 。
(11) 如果要将某个菜单项设计为分隔线，则该菜单项的标题应设置为【13】 。
(12) 假定建立了一个工程，该工程包括两个窗体，其名称(Name 属性)分别为Form1和Form2，启动窗体为Form1。在Form1画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请在【14】和【15】处将程序补充完整。
Private Sub Command1_Click()
【14】 Form1
Form2. 【15】
End Sub
〖完〗
二级笔试样卷Visual Basic语言程序设计答案
一、选择题
(1) C (2) D (3) B (4) C (5) B
(6) C (7) C (8) D (9) B (10) A
(11) D (12) A (13) B (14) A (15) C
(16) C (17) C (18) B (19) D (20) A
(21) D (22) D (23) D (24) B (25) A
(26) D (27) A (28) C (29) A (30) B
(31) C (32) D (33) A (34) B (35) C
二、填空题
(1) [1]
(2) [2] 9
(3) [3] 56
(4) [4] Picturel.Picture = LoadPicture("picfile.jpg")
(5) [5] 321456
(6) [6] 300
(7) [7] 1
2
3
(8) [8] 33
(9) [9] a To 9
[10] i+1 To 10
[11] >=
(10) [12] 24
(11) [13] -
(12) [14] Unload
[15] Show
请将每空的正确答案写在答题卡[1]—[15]序号的横线上，答在试卷上不得分。 （1）设有如下的Visual Basic表达式： 5 * x^2 – 3 * x – 2 * Sin(a)/3 它相当于代数式【1】 。 （2）执行下面的程序段后，s的值为 【2】 。 s = 5 For i = 2.6 To 4.9 Step 0.6 s = s+1 Next i （3）表达式Fix(-32.68)+Int(-23.02)的值为 【3】 。 （4）为了在运行时把图形文件picfile. jpg装入图片框Picture1,所使用的语句为【4】 。 （5）在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a = InputBox("请输入一个整数") b = InputBox("请输入一个整数") Print a + b End Sub 程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为 【5】 。 (6) 执行下面的程序段后，b的值为【6】 。 a=300 b=20 a=a+b b=a-b a=a-b (7) 以下程序段的输出结果是【7】 。 num=0 While num<=2 num=num+1 Print num Wend (8) 在窗体画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(1 To 10) Dim p(1 To 3) k=5 For i=1 To 10 a(i)=i Next i For i=1 To 3 p(i)=a(i*i) Next i For i=1 To 3 k=k+p(i)*2 Next i Print k End Sub 程序运行后，单击命令按钮，输出结果是【8】 。 (9) 下面的程序用“冒泡”法将数组a中的10个整数按升序排列，请在【9】、【10】、【11】处将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim a a=Array(678,45,324,528,439,387,87,875,273,823) For i=【9】 For j=【10】 If a(i) 【11】 a(j) Then a1=a(i) a(i)=a(j) a(j)=a1 End If Next j Next i For i=1 To 10 Print a(i) Next i End Sub (10) 在窗体画一个命令按钮，然后编写如下过程： Function fun(ByVal num As Long)As Long Dim k As Long k=1 num=Abs(num) Do While num k=k*(num Mod 10) num=num\10 Loop fun=k End Function Private Sub Command1_Click() Dim n As Long Dim r As Long n=InputBox("请输入一个数") n=CLng(n) r=fun(n) Print r End Sub 程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为【12】 。 (11) 如果要将某个菜单项设计为分隔线，则该菜单项的标题应设置为【13】 。 (12) 假定建立了一个工程，该工程包括两个窗体，其名称(Name 属性)分别为Form1和Form2，启动窗体为Form1。在Form1画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请在【14】和【15】处将程序补充完整。 Private Sub Command1_Click() 【14】 Form1 Form2. 【15】 End Sub
(7) C (8) D (9) B (10) A (11) D (12) A (13) B
(14) A (15) C (16) C (17) C (18) B (19) D
(20) A (21) D (22) D (23) D (24) B (25) A (26) D (27) A (28) C (29) A (30) B
(31) C (32) D (33) A (34) B (35) C
二、填空题 (1) [1] (2) [2] 9 (3) [3] 56 (4) [4] Picturel.Picture = LoadPicture("picfile.jpg") (5) [5] 321456 (6) [6] 300 (7) [7] 1 2 3 (8) [8] 33 (9) [9] a To 9 [10] i+1 To 10 [11] >= (10) [12] 24 (11) [13] - (12) [14] Unload [15] Show