1、二级 VISUAL+BASIC 笔试 307 及答案解析(总分：85.00，做题时间：90 分钟)一、B选择题/B(总题数：25，分数：73.00)1.当 Form_Click;事件发生时,窗体上显示的第三行是 _。 Private Sub Form_Click() Dim i As Integer, j As Integer, k As Integer Dim x(5, 5) As Integer For i = 1 To 5 k = 1 For j = 1 To 5 If i = j Then x(i, j) = k + 1 k=k+2 Else x(i, j) = k + 1 End I
2、f Next j Next i For i = 1 To 5 For j = 1 To 5 Print x(i, j) Next j Print Next i End Sub（分数：1.00）A.22135B.21357C.22213D.135792.程序段： x=0 For a=1 to 5 step 2 x=x+a2 Next a Print a 语句 x=x+a2 执行的次数和最后 a 的值分别为 _。（分数：3.00）A.3 7B.2 5C.3 5D.2 73.Visual Bask 中工程文件的扩展名是 _。（分数：3.00）A.resB.frmC.vbpD.cls4.下列不能作为
3、Visual Basic 变量名的是 _。（分数：3.00）A.IQB.I_love_UC.本命年D._UN5.设 x 为整型变量，以下不能正确表达数学关系式 2x5 的 Visual Basic 表达式为 _。（分数：3.00）A.x=3 Or x=4B.2x5C.x5 And x2D.Not(x=2) And Not(x=5)6.由如下程序： Type Student Num As Integer Name As String * 13 End Type Dim stu(30)As Student 该程序段定义了两个程序成分，它们分别是 _。（分数：3.00）A.记录类型和记录数组B.记录
4、类型和记录变量C.显示类型和记录数组D.记录变量和记录数组7.已知窗体上一个名称为 Pic1 的图片框，现在要把图片文件 peach.bmp 装载到该图片框中，使用的语句是 _。（分数：3.00）A.Pic1= “peacbmp“B.Pic1=LoadPicture(“peacbmp“)C.Pic1.Picture=“peacbmp“D.Pic1.Picture=LoadPicture(“peacbmp“)8.以下所列的过程中，正确的是 _。（分数：3.00）A.void play(var a: Integer, var b: IntegeB.Sub play(int a,C.void pla
5、y(int a, intD.Sub play(a As Integer, b As Intege9.如下图所示的四个 Check Box 中，可以选择的个数最多为 _。 （分数：3.00）A.1B.2C.3D.410.当 Form_Click 事件发生时，程序输出的结果是 _。 Private Sub Form Click() Dim a As Integer，b As Integer，c As Integer a=1: b=1 Print a; b Do c=a+b Print c a=b:b=c Loop Until c=5 End Sub（分数：3.00）A.1 1 1B.2 3 5C.
6、2 5 7D.2 3 411.在窗体上画一个按钮，然后编写如下事件代码。单击按钮，输出为 _。 Private Function fun3(x As Integer) Static t As Integer t = t + 3 t = t + x fun3 = t End Function Private Sub Commandl Click() Dim a As Integer, b As Integer, c As Integer a = 2 : b = 1 c = fun3 (a) c = fun3 (b) Print c End Sub（分数：3.00）A.6B.8C.9D.1212.
7、下列语句： X=5 If X0 Then Y5 Y=10 运行程序后，下列叙述中正确的是 _。（分数：3.00）A.变量 Y 的值是 5B.变量 Y 的值是 10C.变量 X 的值是 10D.变量 Y 的值无法确定13.当文本框的 Text 属性发生变化时，将发生 _ 事件。（分数：3.00）A.KerPressB.LOStFOCUSC.ChangeD.SetFocus14.能被对象所识别的动作与对象可执行的动作分别称作对象的 _。（分数：3.00）A.事件方法B.过程方法C.过程属性D.事件属性15.已知字符串 A 的值为“AdvancedEducation”，现要将它全部转化为大写字母并存
8、放在 A 中，可以使用语句 _。（分数：3.00）A.A=Ucase$(B.A=ToUpper$(C.A=ToLower$(D.A=Lcase$(16.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序 _。 Dim k As Integer Private Sub Form_Load() k=5 End Sub Private Sub Command Click() Static b As Integer b b + k k=k+1 Print k，b End Sub 程序运行时，两次单击命令按钮 Command1 后，在窗体上显示的第二行是 _。（分数：3.00）A.7
9、11B.5 11C.76D.2 117.当 Command1_Click 事件发生时，窗体上显示的内容是 _。 Private Sub Command1_Click() Dim a As Integer，b As Integer，c As Integer If a = 0 Then x = x-1 Else If b 0 Then x = 7 Else x=x+8 End If If c 0 Then x = x-3 Else x = 4 End If Print x End Sub（分数：3.00）A.7B.8C.4D.318.要把名称为 List1 的列表框中当前选中的一项删除，应执行以下
10、语句中的 _。（分数：3.00）A.List1.CIearB.List1.Delete List1. ListIndexC.List1.ClearList1.ListIndexD.List1.List1.Remove ListIndex19.要使 Form1 的标题栏显示“雀巢咖啡”，可在执行时使用语句 _。（分数：3.00）A.Form1.Caption=“雀巢咖啡“B.ForCaption=“雀巢咖啡“C.Form1.Value=“雀巢咖啡“D.ForValue=“雀巢咖啡“20.在窗体有一个水平滚动条名为 Hscrolll，其属性设置如下： LargeCh8nge=15, SmallCh
11、ange=3, Max=100，Min=20，Value=45 现单击该滚动条向右的箭头，Value 的值将变为 _。（分数：3.00）A.45B.60C.48D.10021.用下面的语句定义的数组元素的个数是 _。 Dim Arrl(-2 To 6)As Integer（分数：3.00）A.6B.7C.8D.922.在窗体上画一个命令按钮，名称为 Command1。 Private Sub Command1 Click() Dim x As Integer，y As Integer x=10:y:0 Do x=x+2:y=y+x Print “x=“, x; “y=“,y If y20 Th
12、en Exit Do Loop Until x=18 End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是 _。（分数：3.00）A.x=12y=12 x = 14 y = 16 x=16 y=18B.x=12 y=12 x= 16 y =28 x= 18 y=24C.x=12 y=12 x= 14 y=44D.x= 12 y=12 x= 14 y=2623.Double 双精度数占 _ 个字节（分数：3.00）A.2B.4C.8D.1024.一个文本框，要使它显示多行文件，应使它的 _ 值的设置为 Ture。（分数：3.00）A.WordWrapB.MultilineC.SC
13、rollBarsD.Locked25.A、B、C 均为整型，执行下列语句后，窗口上将显示 _。 A=7: B=2：C=11 Print A*C2/B-A*C2/B（分数：3.00）A.0.5B.-1.0C.1.0D.0.5二、B填空题/B(总题数：6，分数：12.00)26.下列程序段用于实现以下功能：随机产生一个 100 以内的整数，从键盘上输入一个数，计算机提示输入的数是否与随机整数一样。请填空。 Private Sub Command1_Click() RANDOMIZE a =U 【1】 /U Do Input “请输入一个数字:“, n If n = a Then Print “Go
14、od!“ U【2】 /U ElseIf na Then Print “大了“ Else Print “小了“ End If Loop End Sub（分数：2.00）填空项 1:_27.以下程序段的作用是计算数据的和，数据的个数是可变的。请填空。 Private Sub Command1_Click() Dim a As Integer a=0 Sum a, 1, 5, 2 Print “sum of 3 = “; a a = 0 Call Sum(a, 1, 3, 5, 7, 9) Print “sum of 5 = “; a End Sub Private Sub Sum(x As int
15、eger,U 【3】 /U Dim y As Variant ForU 【4】 /U x = x + y Next y End Sub（分数：2.00）填空项 1:_28.下列程序段用于计算 1 到 20 之间奇数之和与偶数之和。请填空。 x = 0:z = 0 For i = 0 To 20 Step 2 x = x + i y = i + 1 z = y + z Next i U【5】 /U Print “偶数和=“; x Print “奇数和=“; z（分数：2.00）填空项 1:_29.以下程序段的功能为，输入 8 个数给数组 a,然后采用插入排序算法，将数组 a 中的数按照升序排列存
16、入数组 b 中。请填空。 Private Sub Command1_Click () Dim a(1 To 8), b(1 To 8) For i = 1 To 8 a(i) = InputBox(“请输入“) Print a(i) Next i Print For i = 1 To 8 s = 1 For j = 1 To 8 IfU 【6】 /UThen s = s + 1 End If Next j U【7】 /U Next i End Sub（分数：2.00）填空项 1:_30.下面程序段的作用：在窗体上一个命令按钮。单击命令按钮后，将程序中字符串 “Welcome Home“中的字符
17、全部大写输出，其后字符“Wel Back“全部小写输出。请填空。 Private Sub Command1_Click() a = “Welcome Home“; b = “Wel Back“ c = U【8】 /U+ LCase(b) Print c End Sub（分数：2.00）填空项 1:_31.以下程序需要实现的功能是：在 C 盘根目录下建立一个名为 Students.txt 的顺序文件。单击命令按钮后，输入 4 个学生的个人信息，包括 name、sex 和 age，将这些信息写入文件中。请填空。 Private Sub Form_Click() OpenU 【9】 /UFor Ou
18、tput As #1 For i=1 To 4 name=InputBox(“姓名“) age=InputBox(“年龄“) sex=InputBox(“性别“) WriteU 【10】 /U Next i Close #1 End Sub（分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试 307 答案解析(总分：85.00，做题时间：90 分钟)一、B选择题/B(总题数：25，分数：73.00)1.当 Form_Click;事件发生时,窗体上显示的第三行是 _。 Private Sub Form_Click() Dim i As Integer, j As Integer,
19、 k As Integer Dim x(5, 5) As Integer For i = 1 To 5 k = 1 For j = 1 To 5 If i = j Then x(i, j) = k + 1 k=k+2 Else x(i, j) = k + 1 End If Next j Next i For i = 1 To 5 For j = 1 To 5 Print x(i, j) Next j Print Next i End Sub（分数：1.00）A.22135 B.21357C.22213D.13579解析：解析 程序首先通过一个双重循环二维数组 x 的各个元素赋值，通过计算不难得
20、出二维数组各行的值： 第一行：1 3 5 7 9 第二行：2 1 3 5 7 第三行：2 2 1 3 5 第四行：2 2 2 1 3 第五行：2 2 2 2 1 第三行的值为 2 2 1 3 5，因此本题选 A。2.程序段： x=0 For a=1 to 5 step 2 x=x+a2 Next a Print a 语句 x=x+a2 执行的次数和最后 a 的值分别为 _。（分数：3.00）A.3 7B.2 5C.3 5 D.2 7解析：解析 当循环变量的值在变化方向上超过终值时程序跳出 For 循环体。本题循环变量 a 初值为1，终值为 5，步长为 2，因此在 a=1、3、5 时分别执行一次
21、循环。当 a=7 时超过了终值 5，循环结束，因此答案为 C。3.Visual Bask 中工程文件的扩展名是 _。（分数：3.00）A.resB.frmC.vbp D.cls解析：解析 在 Visual Basic 中，类模块文件的扩展名是.cls，窗体文件的扩展名是.frm，工程文件的扩展名是.vbp，资源文件的扩展名是.res。4.下列不能作为 Visual Basic 变量名的是 _。（分数：3.00）A.IQB.I_love_UC.本命年D._UN 解析：解析 在 Visual Basic 中变量取名的规则是：首字母必须为字母或汉字；变量名长度不超过255，在作用域内唯一；变量名中不
22、能包括点号和用于类型说明的字符%， b Do c=a+b Print c a=b:b=c Loop Until c=5 End Sub（分数：3.00）A.1 1 1B.2 3 5 C.2 5 7D.2 3 4解析：解析 当发生窗体单击事件时，首先给变量 a 和 b 赋值 1，然后输出为 1 1，并换行，执行循环，c 值为 2，输出 2 后不换行，进行赋值后 a 为 1，b 为 2，判断“c5”为 False，继续执行下一循环。第二次循环输出 c 值为 3，循环终止条件仍为 False。第三次执行后，c 值为 5，循环终止条件为 True，循环退出。因此输出的第二行为“2 3 5”。11.在窗
23、体上画一个按钮，然后编写如下事件代码。单击按钮，输出为 _。 Private Function fun3(x As Integer) Static t As Integer t = t + 3 t = t + x fun3 = t End Function Private Sub Commandl Click() Dim a As Integer, b As Integer, c As Integer a = 2 : b = 1 c = fun3 (a) c = fun3 (b) Print c End Sub（分数：3.00）A.6B.8C.9 D.12解析：解析 当单击按钮时，首先调用 f
24、un3 函数过程，把 a 的值按地址传递给形参 x，在 fun3 函数中首先定义了一个静态变量 t，通过两条赋值语句使 t 的值变为 5，5 作为函数的返回值并赋值给 c；再一次调用 fun3 函数，此时需注意，静态变量依旧保持上次退出时的 5，所以执行下面的两条语句后，a 的值是9，把 9 作为函数的返回值并赋值给 c，因此 c 的输出值为 9。12.下列语句： X=5 If X0 Then Y5 Y=10 运行程序后，下列叙述中正确的是 _。（分数：3.00）A.变量 Y 的值是 5B.变量 Y 的值是 10 C.变量 X 的值是 10D.变量 Y 的值无法确定解析：解析 程序运行后，系统
25、会从上至下执行这三条语句。当执行到第二条语句时，因满足 If 语句中的条件 X0，故 Y 被赋值 5，当执行到第三条语句时，又赋值 10，取代原来的 5，故最后 Y 的值是10。13.当文本框的 Text 属性发生变化时，将发生 _ 事件。（分数：3.00）A.KerPressB.LOStFOCUSC.Change D.SetFocus解析：解析 在文本框中按下一个键时触发文本框的 KeyPress 事件，当文本框的内容发生变化时触发Change 事件，LoslFocus 事件在文本框失去焦点时触发，SetFocus 不是事件，而是方法，其作用是设置一个焦点给文本框。14.能被对象所识别的动作
26、与对象可执行的动作分别称作对象的 _。（分数：3.00）A.事件方法 B.过程方法C.过程属性D.事件属性解析：解析 所有的对象都具有自己的特征，称为属性：外界对对象的刺激能引起对象的响应，这种刺激称为事件：各种对象具有特定的功能，称为方法。15.已知字符串 A 的值为“AdvancedEducation”，现要将它全部转化为大写字母并存放在 A 中，可以使用语句 _。（分数：3.00）A.A=Ucase$( B.A=ToUpper$(C.A=ToLower$(D.A=Lcase$(解析：解析 在 Visual Basic 中没有 ToUpper 和 ToLower 这两种函数。Ucase 函
27、数的作用是将字符串中的小写字母转换成大写字母，Lcase 函数的作用是将字符串中的大写字母转换成小写字母。16.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序 _。 Dim k As Integer Private Sub Form_Load() k=5 End Sub Private Sub Command Click() Static b As Integer b b + k k=k+1 Print k，b End Sub 程序运行时，两次单击命令按钮 Command1 后，在窗体上显示的第二行是 _。（分数：3.00）A.7 11 B.5 11C.76D.2 1解析
28、：解析 本题首先定义一个窗体级变量 k，该窗体的所有过程都可以使用该变量。在窗体加载时的Load 事件中给变量 k 赋值 5。第一次单击命令按钮，定义静态变量 b，执行以后两条语句后 b 的值为 5，窗体级变量 k 的值为 6，所以输出为 6 5；再次单击命令按钮，此时静态变量 b 是上次退出时的值 5，而不是 0，执行以后两条语句后，b 的值变为 11，变量 k 的值为 7，所以输出 7 11。17.当 Command1_Click 事件发生时，窗体上显示的内容是 _。 Private Sub Command1_Click() Dim a As Integer，b As Integer，c
29、As Integer If a = 0 Then x = x-1 Else If b 0 Then x = 7 Else x=x+8 End If If c 0 Then x = x-3 Else x = 4 End If Print x End Sub（分数：3.00）A.7B.8C.4 D.3解析：解析 本题先定义了三个变量，其默认值都为 0。执行 If 语句，其条件“a=0”为True，“b0”为 False，“c0”为 False.依次执行结构体中的语句后，x 的值为 4。18.要把名称为 List1 的列表框中当前选中的一项删除，应执行以下语句中的 _。（分数：3.00）A.List
30、1.CIearB.List1.Delete List1. ListIndexC.List1.ClearList1.ListIndexD.List1.List1.Remove ListIndex 解析：解析 列表框的 Clear 属性可把列表框中所有选项清除，而 Clear 的方法没有参数。列表框没有Delete 方法，而是使用列表框的 Remove 方法从中移去某一项，当前选中项的编号保存在列表框的ListIndex 属性中，因此选择答案 D。19.要使 Form1 的标题栏显示“雀巢咖啡”，可在执行时使用语句 _。（分数：3.00）A.Form1.Caption=“雀巢咖啡“B.ForCap
31、tion=“雀巢咖啡“ C.Form1.Value=“雀巢咖啡“D.ForValue=“雀巢咖啡“解析：解析 窗体有 Caption 属性，用来设置其显示标题，但没有 Value 属性。窗体属性的设置方法为Form.属性名二属性值，并且这里的 Form 不能写成 Form1。20.在窗体有一个水平滚动条名为 Hscrolll，其属性设置如下： LargeCh8nge=15, SmallChange=3, Max=100，Min=20，Value=45 现单击该滚动条向右的箭头，Value 的值将变为 _。（分数：3.00）A.45B.60C.48 D.100解析：解析 ListCount 的值
32、表示列表框中项目的数量。ListCount-1 表示列表中最后一项的序号。21.用下面的语句定义的数组元素的个数是 _。 Dim Arrl(-2 To 6)As Integer（分数：3.00）A.6B.7C.8D.9 解析：解析 定义一维数组时可以定义下标上界(Up)和下界(Down)，数组元素的个数为 Up-Down+1。所以其元素个数为 9。22.在窗体上画一个命令按钮，名称为 Command1。 Private Sub Command1 Click() Dim x As Integer，y As Integer x=10:y:0 Do x=x+2:y=y+x Print “x=“, x
33、; “y=“,y If y20 Then Exit Do Loop Until x=18 End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是 _。（分数：3.00）A.x=12y=12 x = 14 y = 16 x=16 y=18B.x=12 y=12 x= 16 y =28 x= 18 y=24C.x=12 y=12 x= 14 y=44D.x= 12 y=12 x= 14 y=26 解析：解析 给变量 x 和 y 赋值后，执行 Do.Loop 循环。第一个循环后，x 的值为 12，y 的值为 12，输出：x=12 y=12。执行“语句，因为条件表达式“y20”为 Fal
34、se，所以不执行后面的 Do Exit，判断循环结束条件“x14”为 False，接着执行循环。第二次循环后，x 的值为 14，y 的值为 26，输出结果为 x=14 y=26，判断 If 语句的条件“y20”为 Ture，执行 DoExit 语句，退出循环。23.Double 双精度数占 _ 个字节（分数：3.00）A.2B.4C.8 D.10解析：解析 在 Visual Basic 中不同的数据类型占用不同的字节数。如 Integer 型数据占用两个字节，Single 型数据占用 4 个字节，Double 型数据占用 8 个字节。24.一个文本框，要使它显示多行文件，应使它的 _ 值的设置
35、为 Ture。（分数：3.00）A.WordWrapB.Multiline C.SCrollBarsD.Locked解析：解析 Visual Basic 中文本框没有 WordWrap 属性，该属性是标签控件的一个属性。文本框里的Multiline 属性决定文本框是否可以显示多行文本，当其值为 True 时可以显示多行文本。 ScrollBars 属性用来控制文本框是否显示滚动条，其值为 0 不显示滚动条，为 1 时只显示水平滚动条，为 2 时只显示垂直滚动条，为 3 时两种滚动条都显示。Locked 属性用来决定文本框控件是否可编辑，为 False 时可编辑，为 Ture 时不可编辑，此时文
36、本框的功能相当于标签控件。25.A、B、C 均为整型，执行下列语句后，窗口上将显示 _。 A=7: B=2：C=11 Print A*C2/B-A*C2/B（分数：3.00）A.0.5B.-1.0C.1.0D.0.5 解析：解析 本题主要考查表达式的计算。Print 后面的表达式中，首先计算乘方，再按顺序计算乘除法，最后计算加减法。不难得出最后表达式的结果为-0.5。二、B填空题/B(总题数：6，分数：12.00)26.下列程序段用于实现以下功能：随机产生一个 100 以内的整数，从键盘上输入一个数，计算机提示输入的数是否与随机整数一样。请填空。 Private Sub Command1_Cl
37、ick() RANDOMIZE a =U 【1】 /U Do Input “请输入一个数字:“, n If n = a Then Print “Good!“ U【2】 /U ElseIf na Then Print “大了“ Else Print “小了“ End If Loop End Sub（分数：2.00）填空项 1:_ （正确答案：Int(100*Rnd) Exit Do）解析：解析 【1】处语句的作用为产生一个 100 以内的随机整数；【2】处的语句作用为输入数与随机整数一样时跳出循环体。27.以下程序段的作用是计算数据的和，数据的个数是可变的。请填空。 Private Sub Co
38、mmand1_Click() Dim a As Integer a=0 Sum a, 1, 5, 2 Print “sum of 3 = “; a a = 0 Call Sum(a, 1, 3, 5, 7, 9) Print “sum of 5 = “; a End Sub Private Sub Sum(x As integer,U 【3】 /U Dim y As Variant ForU 【4】 /U x = x + y Next y End Sub（分数：2.00）填空项 1:_ （正确答案：ParamArray Num() Each y In Num）解析：解析 过程参数表中，通常使用
39、 ParamArray 声明不定数量的参数，其格式为 ParamArmy 形式参数名()，即将不定数量的参数放在一个不定长的数组中。在过程中通常使用 For Each.Next 循环引用形式参数数组中的每一个元素。28.下列程序段用于计算 1 到 20 之间奇数之和与偶数之和。请填空。 x = 0:z = 0 For i = 0 To 20 Step 2 x = x + i y = i + 1 z = y + z Next i U【5】 /U Print “偶数和=“; x Print “奇数和=“; z（分数：2.00）填空项 1:_ （正确答案：z=z-y）解析：解析 程序段中，通过一个步
40、长为 2 的 For 循环语句得到 120 的偶数 i，x 为偶数之和， y 为i 值加 1，即当前奇数值，2 为奇数累加值。当 i=20 时，当前奇数 y 值为 21，因此奇数和 c 要减掉当前奇数值。29.以下程序段的功能为，输入 8 个数给数组 a,然后采用插入排序算法，将数组 a 中的数按照升序排列存入数组 b 中。请填空。 Private Sub Command1_Click () Dim a(1 To 8), b(1 To 8) For i = 1 To 8 a(i) = InputBox(“请输入“) Print a(i) Next i Print For i = 1 To 8
41、s = 1 For j = 1 To 8 IfU 【6】 /UThen s = s + 1 End If Next j U【7】 /U Next i End Sub（分数：2.00）填空项 1:_ （正确答案：a(i)a(j) b(s)=a(i)）解析：解析 首先通过 InputBox 语句输入 8 个数给数组 a。将数组 a 中的每个元素按顺序与其余 9 个元素比较。例如对元素 a(1)，如果有 n 个元素小于该元素，则该元素赋值给数组 b 中的 b(n +1)。30.下面程序段的作用：在窗体上一个命令按钮。单击命令按钮后，将程序中字符串 “Welcome Home“中的字符全部大写输出，其
42、后字符“Wel Back“全部小写输出。请填空。 Private Sub Command1_Click() a = “Welcome Home“; b = “Wel Back“ c = U【8】 /U+ LCase(b) Print c End Sub（分数：2.00）填空项 1:_ （正确答案：UCase）解析：解析 字符串转换函数 UCase 的作用是字符串中所有小写字母改成大写。字符串转换函数 LCase的作用是字符串中所有大写字母改成小写。31.以下程序需要实现的功能是：在 C 盘根目录下建立一个名为 Students.txt 的顺序文件。单击命令按钮后，输入 4 个学生的个人信息，包
43、括 name、sex 和 age，将这些信息写入文件中。请填空。 Private Sub Form_Click() OpenU 【9】 /UFor Output As #1 For i=1 To 4 name=InputBox(“姓名“) age=InputBox(“年龄“) sex=InputBox(“性别“) WriteU 【10】 /U Next i Close #1 End Sub（分数：2.00）填空项 1:_ （正确答案：“C:/Students.txt“ #1，name，age，sex）解析：解析 Open 语句的格式为：Open 文件名For 文件模式Access 存取方式锁定As#文件号Len=记录长度)。因此第一个空填文件的路径与文件名。使用 Write 将数据写入文件内，其格式为Write#1，A，B,.，即把变量 A、B 等的值写入文件号为 1 的文件内。
