Type Books
Name As String * 10
TelNum As String * 20
E.nd Type
在窗体上画一个名为 Command1 的命令按钮,要求当执行事件过程 Command1_Click 时,在顺序文件Person.txt 中写入一条 Books 类型的记录。下列能够完成该操作的事件过程是
A. ) Private Sub Command1_Click()
D.im B As Books
Open “ Person.txt ” For Output As #`1
B.Name=InputBox( “ 输入姓名 ” )
B.TelNum=InputBox( “ 输入电话号码 ” )
Write #1,B.Name,B.TelNum
C.lose #1
E.nd Sub
B. ) Private Sub Command1_Click()
D.im B As Books
Open “ Person.txt ” For input As #`1
B.Name=InputBox( “ 输入姓名 ” )
B.TelNum=InputBox( “ 输入电话号码 ” )
Print #1,B.Name,B.TelNum
C.lose #1
E.nd Sub
C. ) Private Sub Command1_Click()
D.im B As Books
Open “ Person.txt ” For Output As #`1
B.Name=InputBox( “ 输入姓名 ” )
B.TelNum=InputBox( “ 输入电话号码 ” )
Write #1,B
C.lose #1
E.nd Sub
D. ) Private Sub Command1_Click()
Open “ Person.txt ” For input As #`1
Name=InputBox( “ 输入姓名 ” )
TelNum=InputBox( “ 输入电话号码 ” )
Print #1, Name, TelNum
C.lose #1
E.nd Sub
[单选题]设在工程文件中有—个标准模块,其中定义了如下记录类型:Type Books Name As String *10 TelNum As String*20End Type在窗体上画—个名为Command1的命令按钮,要求当执行事件过程Command1_Click时,在顺序文件Petson.txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是 ______。A.Private Sub Command1_ Click() Dim B As Books Open "Person.txt
[单选题]设在工程中有一个标准模块,其中定义了如下记录类型______。 Type Books Name As String*10 TelNum As String*20 End Type 在窗体上画一个名为Commandl的命令按钮,要求当执行事件过程Commandl_click时,在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是______。A.Ptivate Sub Commandl Click() Dim B As Books Open"C:/Person.txt"
[单选题]设在工程中有一个标准模块,其中定义了如下记录类型: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"
[单选题]设在工程中有一个标准模块,其中定义了如下记录类型: Type Books Name As String * 10 TelNum As String * 20 EndType 在窗体中添加一个名为Commandl的命令按钮,要求单击命令按钮时,在顺序文件 Ptxt中写入一条记录。下列能够完成该操作的程序段是 ( )A.Private Sub Commandl_Click() Dim B As Books Open"d:/P1.txt"For Output As #1 B. Name=Input
[单选题]设在工程中有一个标准模块,其中定义了如下记录类型 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
[单选题]设在工程中有一个标准模块,其中定义了如下记录类型Type Books Name As String *10 TelNum As String *20End Type在窗体上画一个名为Command1的命令按钮,要求当执行事件过程Command1_ Click时,在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是______。A.Private Sub Command1_Click() Dim B As Books Open "c:/Person.txt" For O
[单选题]设在工程中有一个标准模块,其中定义了如下记录类型:Type Books Name As String *10 Te1Num As String *20End Type 在窗体上画一个名为Command1的命令按钮,要求当执行事件过程Command1_Click时,在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是。A.Private Sub Command1_Click() Dim B As Books Open"c":/Person.txt"For Output
[单选题]设在工程中有一个标准模块,其中定义了如下记录类型:Type Books Name As String ( 10 Te1Num As String * 20End Type在窗体上添加一个名为Command1的命名按钮。要求当执行事件过程Command1_Click时,在顺序文件Person.txt中写入一条记录。请在横线中填入适当的内容,将程序补充完整。Private Sub Command1_Click() Dim B As____ Open "c:/person.txt"For Outp
[单选题]设在工程中有一个标准模块,其中定义了如下记录类型 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
[单选题]设在工程中有一个标准模块,其中定义了如下记录类型: TyPe Record ID A3 Integer Name As String*20 End TyPe 在窗体中添加一个名为Command1的命令按钮,假设d:/F1.dat文件中含有5个用户自定义类型的记录。要求当执行事件过程Command1_Click时,随机访问该文件,并把文件中的第4条记录读出。下列能够完成该操作的程序段是A.Private Sub Command1_Click( ) Dim MyRecord As Record,Po