nbsp; Dim B As Books
Open "c:\person.txt" For Input As #1
B.name = InputBox("输入姓名")
B.telnum = InputBox("输入电话号码")
Write #1, B.name, B.telnum
Close #1 <
BR>End Sub
C．Private Sub Command1_Click()
Dim B As Books
Open "c:\person.txt" For Output As #1
B.name = InputBox("输入姓名")
B.telnum = InputBox("输入电话号码")
Write #1, B
Close #1
End Sub
A．Private Sub Command1_Click()
Dim B As Books
Open "c:\person.txt" For Output As #1
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( ) 二、填空题
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，输出结果为________________。
7．假定建立一个工程，该工程包括两个窗体，其名称（name属性）分别为Form1和Form2，启动窗体为Form1。在Form1中添加一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2。请将下列程序补充完整。
Private Sub Command1_Click()
___________ Form1
Form2.___________
End Sub
8．这是一个用户名校验程序，如用户名正确，即输出欢迎字样，否则，弹出警告窗体并直接退出程序。请将下列程序补充完整。
Option Explicit
Dim Name(2) As String Dim Flag As Boolean
Dim InputName As String
Private Sub Form_Load()
name(0)="AA"
name(1)="BB"
name(2)="CC"
Flag = False
InputName = InputBox("请输入名称：", "身份确认", "")
Dim i As Integer
For i = 0 To _________
If InputName = Name(i) Then
Flag = True
End If
Next i
If Flag = False Then
MsgBox "用户身份确认失败！退出应用", vbOKOnly, "警告"
______________
End If
End Sub
Private Sub Form_Paint()
picshowmsg.Print "欢迎您！" + InputName
End Sub
9．有一计算程序，该程序用户界面如图所示，由4个文本框：文本框1（Text1）、文本框2（Text2）、文本框3（Text3）、文本框4（Text4）和三个按钮：清除（Command1）、计算（Command2）、退出（Command3）组成。程序运行后，单击清除按钮，则清除文本框中显示的内容；单击计算按钮，则计算3科平均成绩并将结果存放在文本框4中；单击退出按钮则退出。请将下列程序补充完整。
Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub Command2_Click()
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then
MsgBox "成绩输入不全"
Else
Text4.Text = (_________+ Val(Text2.Text) + Val(Text3.Text)) / 3
End _______
End Sub
Private Sub Command3_Click()
Unload _________
End Sub
-----www.vb9.net---------独家提供----------
10．下面程序的作用是打开一个随机文件，读统一0个记录，并将它们打印出来，请将下列程序补充完整。
Dim A(20), B(20), C(20)
Open "ABC.DAT ;" For Random As #1 Len = 8
_____________ as D$
r& = 1
For m = 1 To 20
Get #1, A(m) = cvd(D$), r% + 1
Get #1, B(m) = cvd(D$), r% + 1
Get #1, C(m) = cvd(D$), r% + 1
Next m
__________
For m = 1 To 20
Print A(m), B(m), C(m)
Next m
End
答案：
一、选择题：
BABDD CABBB CCDDD BBADB AABBC BBBAB
二、填空题：
1、false
2、mousepointer
3、6
4、7
5、8
6、24
7、unload
8、show
9、2
10、end
11、val(text1.text)
12、if
13、me
14、field #1
15、close #1上一页 [1] [2] [3]
