在窗体上画一个名称为Command1的命令按钮,编写如卜程序代码 Private Type Student sn As String*10 class As String*20 score As Double End

admin2020-06-30  18

问题 在窗体上画一个名称为Command1的命令按钮,编写如卜程序代码
    Private Type Student
    sn As String*10
    class As String*20
    score As Double
    End Type
    Private Sub Command1_Click()
    Dim s As Student
    Dim s1 As Student
    Open"C:\Scorelist.dat"For Random As #1 Len=Len(s)
    s.sn="张一帆"
    s.class="计2014—1班"
    s.score=90
    Put #1,s
    Close #1
    End Sub
    以下叙述中正确的是(    )。

选项 A、若文件C:\Scorelist.dat已存在并且有记录,单击命令按钮,可以修改文件中的一条记录
B、若文件C:\Scorelist.dat不存在,则Open语句执行中出现“文件未找到”的错误
C、文件C:\Scorelist.dat中的每条记录长度可以不同,但记录最长为Len(s)
D、定义记录类型Student的Type语句可以移到事件过程Command1_Click中

答案A

解析 在Open语句中指定文件的访问方式为输出(0utput)、附加(Append)或随机(Random),若打开的文件不存在,则建立相应的文件。本题中指定的访问方式为Random,所以B选项叙述错误;对于用随机访问方式打开的文件,其每个记录的长度必须是相同的,C选项叙述错误;记录类型的定义必须放在模块(包括标准模块和窗体模块)的声明部分,D选项叙述错误,本题A选项叙述正确。本题选择A选项。
转载请注明原文地址:https://kaotiyun.com/show/knHp777K
0

最新回复(0)