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

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

admin2012-09-07  33
问题 设在工程中有一个标准模块；并定义了如下类型：
    Type Stutype
        ino As Integer
        strname AS String*20
        strsex As String*2
        smark As Single
    End Type
    在窗体上画一个名为Commandl的命令按钮，要求当执行事件过程Commandl_Click时，在C盘根目录下的随机文件Student．dat中写入一条记录。下列能够完成该操作的是(    )。
选项 A、Sub Commandl_Click()
    Dim student As Studtype
    Dim record_no As Integer
        record_no=1
        With student
             ．ino=12:．strname=“smith”：
             ．strsex=“男”:．smark=89
        End With
        Open“c:＼Student．dat”For Input As#1 Len=Len(Student)
        Put#1．record_no．Student
        Close#1
    End Sub
B、Sub Commandl_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 Random As#1 Len=Len(Student)
        Put#1．Record_no．Student
        Close#1
    End Sub
C、Private Sub Commandl_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
    EndSub
D、Sub Commandl_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 FileNameFor Random As#文件号[Len=记录长度]，然后以Put方法写入一条记录，方法的格式为：Put[#]文件号，[记录号]，变量名。
转载请注明原文地址:https://jikaoti.com/ti/UBO0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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