2. 计算机
  3. 在窗体Form1上画一个名称为Command1的命令按钮，编写如下程序代码： Private Type stu sn As String * 20 class As String * 20 End Type Private Sub Command1

在窗体Form1上画一个名称为Command1的命令按钮，编写如下程序代码： Private Type stu sn As String * 20 class As String * 20 End Type Private Sub Command1

admin2015-06-30  16
问题 在窗体Form1上画一个名称为Command1的命令按钮，编写如下程序代码：
Private Type stu
  sn As String * 20
  class As String * 20
End Type
Private Sub Command1_Click()
  Dim s As stu
  Open "c:\allstu.dat" For Random As #1 Len = Len(s)
  s.sn = "John"
  s.class = "Computer 2013"
  Put #1, , s
  Close #1
End Sub
则以下叙述中正确的是
选项 A、定义记录类型stu的Type语句可以移到事件过程Command1_Click中
B、如果文件c:\allstu.dat不存在，则Open语句执行中出现"文件未找到"的错误
C、文件c:\allstu.dat中的每条记录是等长的
D、语句"Put #1, , s"中没有指明记录号，因此系统总是把记录写到文件的头部
答案C
解析 用户定义数据类型可以用Type语句来定义，格式是：Type 数据类型名 数据类型元素名 AS 类型名 数据类型元素名 AS 类型名....End Type。用户定义的数据类型必须先定义后使用，而且只能在模块（窗体模块或标准模块）的声明部分定义，故选项A错误。文件的打开格式：Open文件说明[For方式][Access存取类型][锁定]As #文件号[Len=记录长度]。如果以输出（Output）、附加（Append）或随机（Random）访问方式打开的文件不存在，则会建立相应的文件，故选项B错误。随机文件写操作格式：Put #文件号，[记录号]，变量，功能是把"变量"的内容写入由"文件"号所指定的磁盘文件中。当记录号没有指明时，系统默认，则数据将被写到下一个记录位置，即最近执行Get或Put语句后的记录，或由最近的Seek函数指定的记录，故选项D错误。本题正确答案为C。
转载请注明原文地址:https://kaotiyun.com/show/a8Qp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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