2. 计算机
  3. 设在工程中有一个标准模块，其中定义了如下记录类型：Type Books Name As String *10 TelNum As String*20 End Type 在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Com

设在工程中有一个标准模块，其中定义了如下记录类型：Type Books Name As String *10 TelNum As String*20 End Type 在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Com

admin2013-01-23  29
问题 设在工程中有一个标准模块，其中定义了如下记录类型：Type Books    Name As String *10    TelNum As String*20 End Type    在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_ Click时，在顺序文件 Person.txt中写入一条记录。下列能够完成该操作的事件过程是______。
选项 A、Private Sub Command1_ Click()       Dim x As Books       Open "C：\Person. txt" for Output As #1       x. Name=InputBox(“输入姓名”)       x. TelNum=InPutBox(“输入电话号码”)       Write #1，x.Name，x.TelNum       Close #1 End Sub
B、Private Sub Command1_ Click()       Dim x As Books       Open "c：\Person. txt" for Input As #1       x.Name=InputBox(“输入姓名”)       x. TelNum=InputBox(“输入电话号码”)       Print #1，x. Name，x. TelNum       Close #1End Sub
C、Private Sub Command1_ Click()       Dim x As Books       Open "c：\Person. txt" for Output As #1       x. Name=InputBox(“输入姓名”)       x. TelNum= InputBox(“输入电话号码”)       Write #1，x       Close #1End Sub
D、Private Sub Command1_ Click()       Dim x As Books       Open "c：\Person. txt" for Input As #1       x. Name= InputBox(“输入姓名”)       x.TelNum=InputBox(“输入电话号码”)       Print #1，Name，TeINum       Close #1End Sub
答案A
解析 本题的难点是顺序文件写数据的方式和自定义类型的使用。顺序文件写数据的格式为：“Open文件名for Output AS [#]文件号”，在执行写操作时，文件c:\ Person. txt中原来内容可能被覆盖。获取自定义类型的成员要用“.”符号进行操作，例如x.Name和x.TelNum。
转载请注明原文地址:https://kaotiyun.com/show/o8hp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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