设在工程中有一个标准模块,其中定义了如下记录类型 Type Books Name As String*10 TelNum As String*20 End Type 在窗体上画一个名为Comm

admin2009-01-15  42

问题 设在工程中有一个标准模块,其中定义了如下记录类型        Type Books          Name As String*10          TelNum As String*20     End Type    在窗体上画一个名为Command1的命令按钮,要求当执行事件过程Command1_Click时,在顺序文件    Person.txt中写入一条记录。下列能够完成该操作的事件过程是

选项 A、Private Sub Command1_Click( )    Dim B As Books    Open”c:\PerSon.txt"For Output As #1B.Name=InpuB。x(“输入姓名”)B.TelNuln=InputBox(“输入电话号码”)    Wdte#1.B.Name,B.TelNum    Close#1    End Sub
B、PIivate Sub Command1_C1ick()    Dim B As BOOks    OPen”c:\Person.txt"FOr lnput As #1 B.Name:InputBox(“输人姓名”) B.TelNum=InputBox(“输入电话号码”)    Print#1,B.Name,B.TelNum    C1ose#1    End Sub
C、Private Sub Command1_Chck(   )    Dim B As Books    Open”c:\Person.ht”For Output As#1 B.Name=InputBox(“输入姓名”) B.TelNum=InputBox(“输入电话号码”)    Write#1,B    Close#1    End Sub
D、Pnvate Sub Command1_Click(    )     Open”c:\Person.txt"For lnput As #1     Name=InputBox(“输入姓名”)     TalNum=InputBox(“输入电话号码”)     Print,Name,TelNum     Close#1     End Sub

答案1

解析 由于要写入,故顺序文件的打开方式应为Output,所以B、D项错误。同时用"Write#"语句写入时,要指明写入的变量名,对于记录类型的变量,要分别写出元素,所以C项也是错误的,正确答案为A。
转载请注明原文地址:https://jikaoti.com/ti/yQ80FFFM
0

最新回复(0)