(文件题型分析.docVIP

※文件题型分析 (29)要对顺序文件进行写操作，下列打开文件语句中正确的是　[29]　。 (A)Open file1.txt For Output As #1 (B)Open file1.txt For Input As #1 (C)Open file1.txt For Random As #1 (D)Open file1.txt For Binary As #1 答案：A 分析： Output——设定为顺序输出(写操作)模式。 28. 下面能够正确打开文件的一组语句是___28___。 (A)Open data1 For Output As #5 Open data1 For Input As #5 (B)Open data1 For Output As #5 Open data1 For Input As #6 (C)Open data1 For Input As #5 Open data1 For Input As #6 (D)Open data1 For Input As #5 Open data1 For Random As #6 答案：27. 下列___27___说法是不正确的。 (A)当程序正常结束时，所有没用Close语句关闭的文件都会自动关闭 (B)在关闭文件或程序结束之前，可以不用Unlock语句对已锁定的记录解锁 (C)可以用不同的文件号同时打开一个随机文件 (D)用Output模式打开一个顺序文件，即使不对它进行写操作，原来内容也被清除 答案：27. 若磁盘文件C:\Data1.dat不存在，下列打开文件语句中，会产生错误的是___27___。 (A)Open C:\Data1.dat For Output As #1 (B)Open C:\Data1.dat For Input As #2 (C)Open C:\Data1.dat For Append As #3 (D)Open C:\Data1.dat For Binary As #4 答案：28. 从存有数据的C:\test\test.txt文件添加数据，正确的文件打开命令是___28___。 (A)Open C:\test\test.txt For Append As #512 (B)Open C:\test\test.txt For Append As #511 (C)Open C:\test\test.txt For Output As #512 (D)Open C:\test\test.txt For Output As #511 答案：B 分析：文件号在1-511之间。添加用Append方法。 (10)在C盘根目录下有一数据文件(Cj.dat)，内容如下： 9901,　56,　78 9902,　97,　89 9903,　67,　75 9904,　78,　76 9905,　100,　90 第一列数据表示学号，第二列数据表示数学成绩，第三列数据表示语文成绩，要求根据学号计算学生的总分，并按总分从高到低次序在窗体上输出。现有程序如下： Dim a(5, 4)As Integer Private Sub Form_Click() 　　Dim i As Integer, j As Integer 　　Open c:\cj.dat For Input As #1 　　For i = 1 To 5 　　　　For j = 1 To 3 　　　　　　　[1]　Input #1, a(i, j) 　　　　Next j 　　　　　[2]　= a(i, 2)+ a(i, 3)a(i, 4) 　　Next i 　　Sort 　　For i = 1 To 5 　　　　For j = 1 To 4 　　　　　　Print a(i, j); 　　　　Next j 　　　　Print 　　Next i 　　Close #1 End Sub Private Sub Sort() Dim i As Integer, j As Integer, k As Integer, temp As Integer 　　For i = 1 To 4 　　　　For j = i + 1 To 5 　　　　　　If a(i, 4) a(j, 4)Then 　　　　　　　　For k = 1 To　[3]　4 　　　　　　　　　　temp = a(i, k) 　　　　　　　　　　a(i, k)= a(j, k) 　　　　　　　　　　a(j, k)= temp 　　　　　　　　Next k 　　　　　　End If 　　　　Next j 　　Next i End Sub 答案：(28)Input #1, a(i, j) 　　　(29)a(i, 4) 　　　(3