有如下过程: Private Sub Command1_Click() Dim Name As String * 20 Open "file1.dat" For Random As #1 Len = 20 k = 1 Do

admin2020-07-22  19

问题 有如下过程:
Private Sub Command1_Click()
    Dim Name As String * 20
    Open "file1.dat" For Random As #1 Len = 20
    k = 1
    Do While Not EOF(1)
        Get #1, k, Name
        Print Name
        k = k + 2
    Loop
    Close #1
End Sub
这一过程的功能是

选项 A、读入文件file1.dat中所有记录号为偶数的记录并显示在窗体上
B、读入文件file1.dat中所有记录号为奇数的记录并显示在窗体上
C、读入文件file1.dat中记录号为1的记录并显示在窗体上
D、把Name中的数据写进文件file1.dat中

答案B

解析 Open语句兼有打开文件和建立文件两种功能。Open "file1.dat" For Random As #1 Len = 20以随机方式打开file1.dat,记录的长度为20个字节。EOF函数用来返回测试文件的结束状态,对于顺序文件来说,如果已达到文件尾,则函数返回值为True,否则返回值为False。利用EOF函数,可以避免在文件输入时出现"输入超出文件尾"的错误。EOF(n)的含义是已到达文件尾,Not EOF(n)的含义是没有到达n所对应文件的末尾。 Do While Not EOF(1)保证循环执行,直到已到达文件号为1的文件尾。Get#文件号,【记录号】,变量这一语句实现的功能是将一个打开的磁盘文件的一条记录读到一个变量中。Get #1, k, Name,打开文件号1文件,将记录号为k的记录读到变量Name。Print Name将Name显示在窗体上。k的初始值为1,在循环中k=k+2,保证了循环中操作的记录号为奇数,即将读入文件file1.dat中所有记录号为奇数的记录显示在窗体上。故选项B正确,A项和C项表述错误。程序中并没有把Name中的数据写进文件file1.dat中的语句,故D项错误。故选择B项。
转载请注明原文地址:https://kaotiyun.com/show/FxHp777K
0

最新回复(0)