【单选题】某人编写了向随机文件中写一条记录的程序,代码如下: Type RType Name As String * 10 Tel As String * 20 End Type Private Sub Command1_Click() Dim p As RType p.Name = InputBox(" 姓名 ") p.Tel = InputBox(" 电话号 ") Open "Books.dat" F...
【单选题】某人编写了向随机文件中写一条记录的程序,代码如下: Type RType Name As String * 10 Tel As String * 20 End Type Private Sub Command1_Click() Dim p As RType p.Name = InputBox(" 姓名 ") p.Tel = InputBox(" 电话号 ") Open "Books.dat" F...