文件
1、若磁盘文件c:\\data1.dat不存在，则下列打开文件语句中会出现错误的是__________。 A、Open \B、Open \C、Open \D、Open \
2、Visual Basic中三种文件访问的类型是__________。 A、顺序、随机、文本 B、顺序、随机、二进制 C、数据库、表格、文本 D、文本、随机、二进制
3、下列有关文件的说法中不正确的是__________。
A、当程序正常结束时，所有没用Close语句关闭的文件都会自动关闭
B、在关闭文件或程序结束之前，可以不用Unlock语句对已锁定的记录解锁 C、可以用不同的文件号同时打开一个随机文件
D、用Output模式打开一个顺序文件，即使不对它进行写操作，原来内容也被清除 4、以下关于文件的叙述中，错误的是___________。
A、使用Append方式打开文件时，文件指针被定位于文件尾
B、当以输入方式 (Input）打开文件时，如果文件不存在，则建立一个新文件 C、顺序文件各记录的长度可以不同
D、随机文件打开后，既可以进行读操作，也可以进行写操作
5、设有语句Open “d:\\Test.txt” For Output As #1,以下叙述中错误的是___________。 A、若d盘根目录下无Test.txt文件，则该语句创建此文件 B、用该语句建立的文件的文件号为1
C、该语句打开d盘根目录下一个已存在的文件Test.txt，之后就可以从文件中读取信息 D、执行该语句后，就可以通过语句Print #向文件Test.txt写入信息
6、在Visual Basic中按文件的访问方式不同，可以将文件分为___________。 A、顺序文件、随机文件和二进制文件 B、文本文件和数据文件 C、数据文件和可执行文件 D、ASCII文件和二进制文件
7、要在C盘根目录下建立一个名为1.Dat的顺序文件，应使用___________语句。 A、Open \ B、Open \ C、Open \ D、Open \
8、执行语句Open \后，系统___________。 A、将C盘根目录下名为1.dat的文件内容读入内存 B、在C盘根目录下建立名为1.dat的顺序文件
C、将内存中数据存放在C盘根目录下名为1.dat的文件中
D、将某个磁盘文件的内容写入C盘根目录下名为1.dat的文件中
27
根据题目要求完善程序
1、下面的程序用于求三个数中的最大数和最小数，请完善程序。 Option Explicit
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer Dim max As Integer, min As Integer a = Val(InputBox(\请输入第一个数\b = Val(InputBox(\请输入第二个数\c = Val(InputBox(\请输入第三个数\max = a
If b >___________ Then max = b If ___________ Then max = c min = a
If b <___________ Then min = b If ___________Then min = c Print \最大数为\Print \最小数为\End Sub
2、下列程序的功能是：运行程序首先出现如左图所示（Form1）的界面，要求用户输入口令，输入完毕后单击“确定”按钮，若输入口令正确，则显示Form2，否则出现如右图所示的信息框；若单击“取消”按钮，则结束程序。要求完善程序。
Private Sub Command1_Click() '确定 Dim password As String
If password = \ ___________ Form2.Show Else
MsgBox End If End Sub
Private Sub Command2_Click() '取消 ___________ End Sub
28
3、如下程序的功能是求N!。完善程序代码。 Private Sub Form_Click()
Dim i As Integer, F As Long Dim N As Integer
N = InputBox(\请输入N\ ___________ For i = 1 To N
F = ___________ Next i
Print N; \ End Sub
4、下列程序的功能是：用100元买100只鸡，公鸡每只5元，母鸡每只3元，小鸡一元3只。要求完善程序。 Private Sub form_Click()
Dim x As Integer, y As Integer, z As Integer For x = 0 To 20
For y = 0 To ___________ For z = 0 To 100 Step 3
If ___________ And ___________ Then Print x; y; z Next z, y, x End Sub
5、下列程序的功能是：求一维数组的最大值及其下标。要求完善程序。 Option Base 1
Private Sub form_Click()
Dim t(10) As Integer, max As Integer, max_i As Integer For i = 1 To 10
t(i) = Int(Rnd * 100) Next i
max = t(1): max_i = ___________ For i = 2 To 10
If t(i) ___________Then max =___________ max_i = i End If Next i
Print max, max_i End Sub
6、如下程序的功能是：随机产生12个两位整数，存放在数组Com中，并从中找出一个最大值和一个最小值，完善程序。 Option Explicit Option Base 1
29
Private Sub Form_Click()
Dim Com(12) As Integer, I As Integer
Dim Max As Integer, ___________As Integer Randomize
For I = 1 To ___________
Com(I) = Int(___________* Rnd) + 10 Print Com(I); Next I Print
Max = Com(1): Min =___________ For I =___________ to 12 If Com(I) > Max Then ___________
ElseIf Com(I) < Min Then Min = Com(I) End If Next I
Print \最小数是：\ Print \最大数是：\End Sub
7、如下程序的功能是：用选择法对数组按升序排序，排序前将原始数据显示在Text1内，排序后的结果显示在Text2内，完善程序。 Option Explicit Option Base 1
Private Sub Command1_Click()
Dim Sort(10) As Integer, Temp As Integer Dim I As Integer, J As Integer Randomize
Text1 = \ For I = 1 To 10
Sort(I) = Int(99 * Rnd) + 1 Text1 = ___________ Next I
For I = 1 To ___________ For J =___________to 10 If ___________Then Temp = Sort(I) Sort(I) = Sort(J) Sort(J) = Temp End If Next J
Text2 = Text2 & Str(Sort(I)) Next I
30