2. 计算机
  3. 设在工程中有一个标准模块，并定义了如下类型： Type Stutype ino AS Integer strname As String*20 strsex AS String*2 smark As Single

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

admin2019-06-11  80
问题 设在工程中有一个标准模块，并定义了如下类型：
    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://kaotiyun.com/show/gyUp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)