假定在工程文件中有一个标准模块，其中定义了如下记录类型 Type Books Name As String*10 TelNum As String*20 End Type 要求当执行事件过程Commandl_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是：A． Prirate Sub Commandl Click() Dim B As Books Open"C:\Person.txt"For Output As #1B．Name=InputBox("输入姓名")B．TelNum=InputBox("输入电话号码") Write #1,B．Name,B．TelNum Close #1 End SubB．Pdrate Sub Commandl Cliok() Dim B As Books Open"c:\Person.txt"For Input As #1B．Name=InputBox("输入姓名")B．TeINum=InputBox("输入电话号码") Print #1,B．Name,B．TelNum Close #1 End SubC．Private Sub Commandl Click() Dim B As Books Open"c:\Person.txt"For Output As #1 Name=InputBox("输入姓名") TelNunl=InputBox("输入电话号码") Write #1,B Close #1 End SubD．Private Sub Commandl Click() Dim B As Books Open"c:\Person.txt"For Input As #1 Name=InputBox("输入姓名") Temum=InputBox("输入电话号码") Write #1,B．Name,B．TelNuin Close #1 End Sub

假定在工程文件中有一个标准模块，其中定义了如下记录类型 Type Books Name As String*10 TelNum As String*20 End Type 要求当执行事件过程Commandl_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是：

A． Prirate Sub Commandl Click() Dim B As Books Open"C:\Person.txt"For Output As #1B．Name=InputBox("输入姓名")B．TelNum=InputBox("输入电话号码") Write #1,B．Name,B．TelNum Close #1 End Sub

B．Pdrate Sub Commandl Cliok() Dim B As Books Open"c:\Person.txt"For Input As #1B．Name=InputBox("输入姓名")B．TeINum=InputBox("输入电话号码") Print #1,B．Name,B．TelNum Close #1 End Sub

C．Private Sub Commandl Click() Dim B As Books Open"c:\Person.txt"For Output As #1 Name=InputBox("输入姓名") TelNunl=InputBox("输入电话号码") Write #1,B Close #1 End Sub

D．Private Sub Commandl Click() Dim B As Books Open"c:\Person.txt"For Input As #1 Name=InputBox("输入姓名") Temum=InputBox("输入电话号码") Write #1,B．Name,B．TelNuin Close #1 End Sub

相关考题：

假定在工程文件中有一个标准模块，其中定义了如下记录类型：Type BooksName As String*10TelNuin As String*20End Type要求在执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。将以下程序补充完整。Private Sub Command1_Clickk()DimB As Booksopen"c:\person.txt"For output As 1B.Name=InputBox("请输入姓名")B.TelNum=InputBox("请输入电话号码")write 1，______close 1End Sub
查看答案
假定在工程文件中有一个标准模块，其中定义了如下记录类型 Type Books NalTle As String*10 TelNum As String*20 End Type 要求当执行事件过程ComlBandl_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是( )。A．Ptivate Sub Commandl_Click() DimB As Books Open"c:\Person.txt"For Output As#1B．Name=InputBox(“输入姓名”)C．Private Sub Conullandl_CHCk() DimBAs Books Open"c:\Person.txt"For Ouputut As#1 Name=hputBox(“输入姓名”) Temum=InputBox(“输入电话号码”) Whte#1，B Close#1 End Sub D.Privam Sub Commnandl_Click() DimBAsBook Open"C:\Person.tx
查看答案
在窗体上有一个名称为Command1的命令按钮，并编写有如下事件过程：记录类型定义如下：下列叙述中正确的是（ ）。A. 记录类型animal不能在Form1中定义，必须在标准模块中定义B. 如果文件c：\vbTest．dat不存在，则Open命令执行失败C. 由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾D. 语句“Put#1,,rec”将animal类型的两个数据元素写到文件中
查看答案
假定在窗体(名称为Form1)的代码窗口中定义如下记录类型： Private Type animal animalName As String*20 aColor As String*10 End Type 在窗体上面一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim rec As animal Open "c:\vbTest. dat" For Random As #1 Len=Len(rec)rec. animalName="Cat" rec. aColor="White" Put #1, , rec End Sub 则以下叙述中正确的是______。A．记录类型animal不能在Form1中定义，必须在标准模块中定义B．如果文件"c:\vbTest. dat"不存在，则Open命令执行失败C．由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾D．语句“Put #1, , rec”将animal类型的两个数据元素写到文件中
查看答案
假定在窗体（名称为Form1）的代码窗口中定义如下记录类型： Private Type animal animalName As String*20 aColor As String*10 End Type 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程: Private Sub Command1_Click() Dim rec As animal Open "c:\vbTest.dat" For Random As #1 Len = Len(reCreC.animalName = "Cat" reC．aColor = "White" Put #1, , rec Close #1 End Sub 则以下叙述中正确的是A． 记录类型animal不能在Form1中定义，必须在标准模块中定义B．如果文件c:\vbTest.dat不存在，则Open命令执行失败C．由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾D．语句“Put #1, , rec”将animal类型的两个数据元素写到文件中
查看答案
假定已经定义了一个名为arr_type的PL／SQL表类型,那么怎样实例化一个arr_type类型的变量() A.v_arr arr_type;B.v_arr is arr_type;C.v_arr of arr_type;D.v_arr arr_type%type;
查看答案
下面定义PL／SQL记录的语法正确的是()。 A.TYPE 记录类型名 IS RECORDB.TYPE 记录类型名 RECORDC.RECORD 记录类型名D.TYPE RECORD 记录类型名
查看答案
以下叙述中错误的是________。A．在一个窗体文件中用Private定义的通用过程可以被其他窗体调用B．一个工程中可以包含多个窗体文件C．窗体和标准模块需要分别保存为不同类型的磁盘文件D．全局变量可以在标准模块中定义
查看答案
以下叙述中错误的是________。A．全局变量可以在标准模块中定义B．窗体和标准模块需要分别保存为不同类型的磁盘文件C．在一个窗体文件中用Private定义的通用过程可以被其他窗体调用D．一个工程中可以包含多个窗体文件
查看答案
在随机文件操作中，定义记录类型的语句（)。A．Type…End TypeB．DimC．PrivateD．Public
查看答案
热门标签