Else
MsgBox \请输入1-2的数\End If End Sub
程序运行后，单击命令按钮，在输入对话框内输入2，窗体将显示（ ） A．请输入1-2的数 B．Windows的计算器
C．调用C:\\vbp\\vbexam.exe程序并运行 D．出错
29．设在工程中有一个标准模块，其中定义了如下记录类型： Type Books
name As String * 10 telnum As String * 20 End Type
在窗体中添加一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的程序段是（ ） A．Private Sub Command1_Click() Dim B As Books
Open \B.name = InputBox(\输入姓名\
B.telnum = InputBox(\输入电话号码\Write #1, B.name, B.telnum Close #1 End Sub
B．Private Sub Command1_Click() Dim B As Books
Open \B.name = InputBox(\输入姓名\
B.telnum = InputBox(\输入电话号码\Write #1, B.name, B.telnum Close #1 End Sub
C．Private Sub Command1_Click() Dim B As Books
Open \B.name = InputBox(\输入姓名\
B.telnum = InputBox(\输入电话号码\Write #1, B Close #1 End Sub
A．Private Sub Command1_Click() Dim B As Books
Open \name = InputBox(\输入姓名\
telnum = InputBox(\输入电话号码\Write #1, name, telnum
Close #1 End Sub
30．一个工程中包含两个名称分别为Form1、Form2的窗体，一个名称为Func的标准模块。假定在Form1和Func中分别建立了自定义过程，其定义格式为： Form1中定义的过程： Private Sub Fun1() ?? End Sub
Func中定义的过程： Private Sub Fun2() ?? End Sub
若要在窗体Form2调用Form1和Func中分别建立的自定义过程，则调用格式正确的是（ ） A．Call Form1.Fun1( ) B．Call Form1.Fun1( ) Func.Fun1( ) Call Fun1( )
c． Form1.Fun1( ) d．Fun1( ) Func.Fun1( ) Fun1( )
二、填空题
1． 设A=5，B=6，C=7，D=8，计算表达式3>2*B OR A=C AND B<>C OR C>D的值是______。 2． 鼠标的光标在不同的窗口内，其形状是不一样的，光标的形状通过_________属性来设置。
3． 下面程序运行时，内层循环的循环总次数是_______________。 For m = 1 To 3 For n = 0 To m - 1 Next n Next m
4． 定义语句Dim A (-3 to 3) as Integer，定义数组的元素个数是___________ 5． 执行下面的程序段后，X的值为_____________。 X=5
For I=1 to 10 Step 2 X=X+I\\5 Next I
6．在窗体中添加一个命令按钮，然后编写如下过程： 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，输出结果为________________。