题目
设在工程中有一个标准模块,其中定义了如下记录类型: 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=InputBox("姓名") B. TelNum=InputBox("电话号码") Write #1,B. Name,B. TelNum Close #1 EndSub
B.Private Sub Commandl_Click() Dim B As Books Open" d:\Pl.txt" For Input As B. Name=InputBox ("姓名") B. TelNum=InputBox ("电话号码") Print #1,B. Name,B. TelNum Close #1 EndSub
C.Private Sub Commandl_Click() Dim B As Books Open"d:\P1. txt"For Output As B. Name=InputBox("姓名") B. TelNum=InputBox ("电话号码") Write #1,B Close #1 EndSub
D.Private Sub Commandl Cliek() Open"d:\P1.txt" For Input As Name=InputBox("姓名") TelNum=InputBox ("电话号码") Print #1,Name,TelNum Close #1 EndSub
第1题
设在工程中有一个标准模块,其中定义了如下记录类型: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 Output As #1 B.Name=InputBox("输入姓名") B.Te1Num=InputBox("输入学号") Write#1,B.Name,B.Te1Num Close #1End Sub
第2题
设在工程中有一个标准模块,其中定义了如下记录类型 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 #1 B.Name = InputBox("输入姓名") B.TelNum = InputBox("输入电话号码") Write #1, B.Name, B.TelNum
B.Private Sub Command1_Click() Dim B As Books Open "c:\Person.txt, For Input As # 1 B.Name = lnputBox("输入姓名") B.TelNum = InputBox("输入电话号码") Print #1, B.Name, B.TelNttm
C.Private Sub Command1_Click() Dim B As Books Open "c:\Person.txt" For Output As #1 B.Name = InputBox("输入姓名") B.TelNum = InputBox("输入电话号码") Write # 1, B Close #
D.Private Sub Command1_Click() Dim B As Books Open"c:\Person.txt" For Input As #1 Name=InputBox("输入姓名") TelNum=InputBox("输入电话号码") Print #1,Name,TelNum Close #1 End Sub
第3题
设在工程中有一个标准模块,其中定义了如下记录类型 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 #1 B.Name=InputBox("输入姓名") B.TelNum=InputBox("输入电话号码") Write #1,B.Name,B.TelNum Close #1 End Sub
B.Private Sub Command1_Click() Dim B As Books Open"c:\Person.txt" For Input As #1 B.Name=InputBox("输入姓名") B.TelNum=InputBox("输入电话号码") Print #1,B.Name,B.TelNum Close #1 End Sub
C.Private Sub Command1_Click() Dim B As Books Open"c:\Person.txt"For Output As #1 B.Name=InputBox("输入姓名") B.TelNum=InputBox("输入电话号码") Write#1,B Close #1 End Sub
D.Private Sub Command1_Click() Dim B As Books Open"c:\Person.txt"For Input As #1 Name=InputBox("输入姓名") TelNum=InputBox("输入电话号码") Print#1,Name,TelNum Close #1 End Sub
第4题
设在工程中有一个标准模块,其中定义了如下记录类型 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 #1 B.Name=InputBox(“输入姓名”) B.TelNum=InputBox(“输入电话号码”) Write#1,B. Name,B.TelNum Close #1 End Sub
B.Private Sub Command1_Click() Dim B As Books Open"c:\Person.txt"For lnput As #1 B.Name=InputBox(“输入姓名”) B.TelNum=InputBox(“输入电话号码”) Print#1,B.Name,B.TeINum Close #1 End Sub
C.Private Sub Command1_Click() Dim B As Books Open"c:\Person.txt"For Output As #1 B.Name=InputBox(“输入姓名”) B.TelNum=InputBox(“输入电话号码”) Write #1,B Close #1 End Sub
D.Private Sub Command1_Click() Dim B As Books Open"c:\Person.txt"For Input As #1 Name=InputBox(“输入姓名”) TelNum=InputBox(“输入电话号码”) Print #1,Name,TelNum Close #1 End Sub
第5题
设在工程中有一个标准模块,其中定义了如下记录类型: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
第6题
设在工程中有一个标准模块,其中定义了如下记录类型: 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,Position Open"d:\F1.dat"For Random As#1 Len=Len(My RecorD)Position=4 Get#1,Position,Myrecord Close #1 End Sub
B.Private Sub Command1_Click() Dim MyRecord As Record,Position Open"d:\F1.dat"For Random As #1 Len=Len(MyRecorD)Position=4 Put #1,Position,MyRecord Close#1 End Sub
C.Private Sub Command1_Click() Dim MyRecord As Record,Position Open"d:\F1.dar"For OutPut As #1 Len=Len(My RecorD0Position=4 Get #1,Position,MyRecord Close#1 End Sub
D.Private Sub Command1_Click() Dim MyRecord As record,Position Open"d:\F1.dat"For lnput As #1 Len=Len(MyRecorD)Position=4 Get #1,Position,MyRecord Close#1 End Sub
第7题
设在工程中有一个标准模块,其中定义了如下记录类型 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 #1 B.Name=InputBox("输入姓名") B.TelNum=InputBox("输入电话号码") Write #1,B.Name,B.TelNum Close #1 End Sub
B.Private Sub Command1_Click() Dim B As Books Open"c:\Person.txt" For Input As #1 B. Name=InputBox("输入姓名") B. TelNum=InputBox("输入电话号码") Print #1. B. Name. B. TelNum Close #1 End Sub
C.Private Sub Command1_Click() Dim B As Books Open" c:\Person. txt" For Output As #1 B. Name=InputBox("输入姓名") B. TelNum=InputBox("输入电话号码") Write #1, B Close #1 End Sub
D.Private Sub Command1_Click() Dim B As Books Open" c:\Person. txt" For Input As #1 Name=InputBox("输入姓名") TelNum=InputBox("输入电话号码") Print #1, Name, TelNum Close #1 End Sub
第8题
设在工程中有一个标准模块,其中定义了如下记录类型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 Output As #1 B.Name=InpuBox(“输入姓名”) B.TelNum=InputBox(“输入电话号码”) Write #1,B.Name,B.TelNum Close #1End Sub
B.Private Sub Command1_ Click() Dim B As Books Open "c:\Person.txt" For Input As #1 B.Name=InputBox(“输入姓名”) B.teLNum=InputBox(“输入电话号码”) Ptint #1,B.Name,B.TelNum Close #1End Sub
C.Private Sub Command1_ Click() Dim B As Books Open "c:\Person.txt" For Output As #1 B.Name=InputBox(“输入姓名”) B.TelNum=InputBox(“输入电话号码”) Write #1,B Close #1End Sub
D.Private Sub Command1_ Click() Dim B As Books Open "c:\Person.txT" For Input As #1 Name=InputBox(“输入姓名”) TelNum=InputBox(“输入电话号码”) Print #1 Name. TelNum Close #1End Sub
为了保护您的账号安全,请在“赏学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!