设在工程中有一个标准模块,其中定义了如下类型: Type stutype ino As Integer strname As String*20 strsex As String*1 smark As Single End Type 在窗体上画一个名为Connnand1的命令按钮,要求当执行事件过程Command1_Click时,在c:\的随机文件student..dat写入一条记录。下列能够完成该操作的事件过程是( )。A.Sub Command1_C1ick() Dim student As studtype Dim record_no As Integer record_no=1 With student .ino=12 .strname="smith" .strsex="男" .smark=89 End With Open" c:\student.dat" For input As # 1 len=len(student) Put # 1,record_B.Sub Command1_Click( ) Dim student As studtype Dim record_no As Integer record_no=1 With student .ino=12 .strname="smith" .strsex="男" .smark=89 End With Open"c:\student.dat" For random As #1 len=len(student) Put #1,record_nC.Sub Command1_Click() Dim student As studtype Dim record_no As integer record_no=1 With student .ino=12 .stmame="smith" .strsex="男" .smark=89 End With Open"c:\student.dat" For random As #1 len=len(student) Write #1,record_nD.Sub Command1_Click() Dim Student As studtype Dim Record_no As Integer record_no=1 With student .ino=12 .strname="smith" .strsex="男" .smark=89 End With Open"c:\student.dat"For output As #1 len=len(student) Put #1,record_no,

设在工程中有一个标准模块,其中定义了如下类型: Type stutype ino As Integer strname As String*20 strsex As String*1 smark As Single End Type 在窗体上画一个名为Connnand1的命令按钮,要求当执行事件过程Command1_Click时,在c:\的随机文件student..dat写入一条记录。下列能够完成该操作的事件过程是( )。

A.Sub Command1_C1ick() Dim student As studtype Dim record_no As Integer record_no=1 With student .ino=12 .strname="smith" .strsex="男" .smark=89 End With Open" c:\student.dat" For input As # 1 len=len(student) Put # 1,record_

B.Sub Command1_Click( ) Dim student As studtype Dim record_no As Integer record_no=1 With student .ino=12 .strname="smith" .strsex="男" .smark=89 End With Open"c:\student.dat" For random As #1 len=len(student) Put #1,record_n

C.Sub Command1_Click() Dim student As studtype Dim record_no As integer record_no=1 With student .ino=12 .stmame="smith" .strsex="男" .smark=89 End With Open"c:\student.dat" For random As #1 len=len(student) Write #1,record_n

D.Sub Command1_Click() Dim Student As studtype Dim Record_no As Integer record_no=1 With student .ino=12 .strname="smith" .strsex="男" .smark=89 End With Open"c:\student.dat"For output As #1 len=len(student) Put #1,record_no,


相关考题:

假定在工程文件中有一个标准模块,其中定义了如下记录类型: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 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

设在工程文件中有一个标准模块,其中定义了下列记录类型: Type Books Name As String*10 TelNum As String*20 End,Type 在窗体上画一个名为Command1的命令按钮,要求当执行事件过程Command1 Click 时,在顺序文件Person.txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是( )。A.Private Sub Command1 Click( ) Dim B AS Books Open"Person txt"For Output As#1 Name=InputBox(”输入姓名”) relNum=lnputBox(”输入电话号码”) Wlite#1 B Name,B TelNum Ch,se#1 End SubB.Private Sub Command1 Click( ) Dim B AS Books Open"Person txt"For Input As#1 Name=InputBox("输入姓名") TelNum=InputBox("输入电话号码") Print#1,B.Name,B.TelNam Close#1 End SubC.Private Sub Command1 Click( ) Dim BAS Books Open"Person txt"For Output As#1 Name=InputBox("输入姓名") TelNum=InputBox("输入电话号码") Write#1,B Close#1 End SubD.Private Sub Commandl Click( ) Open"Person txt"For Input As#1 Name=lnputBox("输入姓名") TelNum=lnputBox("输入电话号码") Prim#1 Name TelNum Close#1 End Sub

下面关于标准模块的叙述不正确的是______。A.Visual Basic 工程中有三种模块:窗体模块、标准模块和类模块,其中标准模块是独立于窗体模块的一种程序单位B.标准模块的扩展名为.basC.当一个工程中含有多个标准模块时,各模块中的过程可以重名D.标准模块通过“工程”菜单中的“添加模块”命令来建立或打开,

设在工程文件中有一个标准模块,其中定义了下列记录类型:Type BooksName As String*10TelNum As String*20End,Type在窗体上画一个名为Command1的命令按钮,要求当执行事件过程Command1 Click 时,在顺序文件Person.txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是( )。A.Private Sub Command1 Click( )Dim B AS BooksOpenPerson txtFor Output As#1Name=InputBox(”输入姓名”)relNum=lnputBox(”输入电话号码”)Wlite#1 B Name,B TelNumCh,se#1End SubB.Private Sub Command1 Click( )Dim B AS BooksOpenPerson txtFor Input As#1Name=InputBox(输入姓名)TelNum=InputBox(输入电话号码)Print#1,B.Name,B.TelNamClose#1End SubC.Private Sub Command1 Click( )Dim BAS BooksOpenPerson txtFor Output As#1Name=InputBox(输入姓名)TelNum=InputBox(输入电话号码)Write#1,BClose#1End SubD.Private Sub Commandl Click( )OpenPerson txtFor Input As#1Name=lnputBox(输入姓名)TelNum=lnputBox(输入电话号码)Prim#1 Name TelNumClose#1End Sub

LTE中有两种无线帧类型type1和type2 ,其中type1用于TDD。()

假定已经定义了一个名为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;

若要定义全局的结构类型,应在其中定义的模块是 ( )。A.启动窗体B.标准模块C.类模块D.窗体级模块

如果希望想为表单元素类型为type且值为text的元素设置背景色,则用如下方法定义()。A.input{type=text}{ }B.input[type=text]{ }C.input(type=text){ }D.input type=text{ }

定义名为“联系方式”的属性组,该属性组包含两个名称分别为“邮箱”和“电话”的属性,这两个属性的类型均为"string",下面正确的选项为()。A.<attributeGroup name="联系方式"> <attribute name="邮箱" type="xsd:string"/> <attribute name="电话" type=“xsd:string"/> </attributeGroup>B.<attributeGroup name="联系方式"> <attribute name="邮箱" type="xsd:sting"> <attribute name="电话" type=“xsd:sting"> </attributeGroup>C.<attribute name="联系方式"> <attribute name="邮箱" type="xsd:sting"/> <attribute name="电话" type=“xsd:sting"/> <