设在工程中有一个标准模块,并定义了如下类型: Type Stutype ino AS Integer strname As String*20 strsex AS String*2 smark As Single

admin2019-06-11  50

问题 设在工程中有一个标准模块,并定义了如下类型:
    Type Stutype
    ino AS Integer
    strname As String*20
    strsex AS String*2
    smark As Single
    End Type
    在窗体上画一个名为Command1的命令按钮,要求当执行事件过程Command1 Click时,在C盘根目录下的随机文件Student.dat中写入一条记录。下列能够完成该操作的是(    )。

选项 A、Sub Command1_Click( )
    Dim student As Studtype
    Dimrecord_no As Integer
    record_no=1
    With student
    .ino=12:.stmame="smith":
    .strsex="男":.smark=89
    End With
    Open"c:\Studont.dat"For Input As #1 Len
    =Len(Student)
    Put #1,record_no Student
    Close#1
    End Sub
B、Sub Command 1_Click( )
    Dim Student As Stutype
    Dim Record_no As Integer
    Record no=1
    With Student
    .ino=12:.strname="smith"
    .strsex="男":.smark=89
    End With
    Open"c:\student.dat"For Random As#1
    Len=Len(Student)
    Put#1,Record_no,Student
    Close #1
    End Sub
C、Private Sub Command 1_Click( )
    Dim Student As Stutype
    Dim Record_no As Integer
    Record no=1
    With Student
    .ino=12:.stmame="smith"
    .strsex="男":.smark=89
    End With
    Open"c:\student.dat"For Random As 1
    Len=Len(Student)
    Write#1,Record_no,Student
    Close#1
    End Sub
D、Sub Command1_Click( )
    Dim Student As Stutype
    Dim Record_no As Integer
    Record_no=1
    With Student
    .ino=12:.stmame="smith"
    .strsex="男":.smark=89
    EndWith
    Open"c:\student.dat"For Output As#1
    Len=Len(Student)
    Put#1,Record_no,Student
    Close #1
    End Sub

答案B

解析 本题考查文件操作。题目中要求以随机的方式(Random)打开一个文件,打开文件的方法格式为:Open FileName For Random As#文件号[Len=记录长度],然后以Put方法写入一条记录,方法的格式为:Put[#]文件号,[记录号],变量名。
转载请注明原文地址:https://jikaoti.com/ti/2lN0FFFM
0

最新回复(0)