Sub Command1_Click()
D.im student As studtype
D.im record_no As Integer
record_no=1
With student
.ino=12
.strname="smith"
.strsex="男"
.smark=89
E.nd With
_______
Put # 1,record_no,student
C.lose # 1
E.nd Sub
要求在c: /的随机文件student.dat写入一条记录。应在程序中空行处填以下哪条语句使该功能完整
A.Open "c: /student.dat"For Input As #1 len(student)
B.Open "c: /student.dat"For random As #1 len(student)
C.Open "c: /student.dat"For Output As #1 len(student)
D.Open "c: /student.dat"For Append As #1 len(student)
[单选题]在窗体上画一个名为Command1的命令按钮,其Command1_Click事件过程如下。 Sub Command1_Click() Dim student As studtype Dim record_no As Integer record n=1 With student .ino=12 .strname="Smith" .strsex=“男” .smark=89 End With ______ Put # 1,record_no,student Close # 1 End Sub 要
[单选题]在窗体上画一个名为Command1的命令按钮,其Command1_Click事件过程如下:要求在C:的随机文件student.dat写入一条记录。应在
[单选题]在窗体上画一个名称为Command1的命令按钮,单击命令按钮时执行如下事件过程:Private Sub Command1_Click( )a$="so
[单选题]在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click( )。程序运行时,单击C
[单选题]在窗体上画一个命令按钮(名称为Command1),编写如下事件过程: Private Sub Command1_Click() b=5 c=6 Print a=b+c End Sub 程序运行后,单击命令按钮,输出的结果是: ______。A.a=11B.a=b+cC.a=D.假
[单选题](23)在窗体上画一个名为 Command1 的命令按钮,然后编写以下程序:Private Sub Command1_Click( )D.im M(10) As IntegerF.or k=1 To 10M(k)=12-kNext kx=8Print M(2+M(x))E.nd Sub运行程序,单击命令按钮,在窗体上显示的是( )。A.)6B.)5C.)7D.)8
[试题](11)在窗体上画一个名为 Command1 的命令按钮,然后编写如下程序:Private Sub Command1_Click( )D.im i As IntegerSum=0n=InputBox("Enter a number")n=Val(n)F.or i=1 To nSum= (12)Next iPrint SumE.nd SubF.unction fun(t As Integer)As Longp=1F.or i=1 To tp=p*iNext i(13)E.nd Function以
[单选题]在窗体上画一个名为Command1的命令按钮,然后编写如下程序: Option Base 1 Private Sub Command1_Click() Dim Arr Arr = Array(1,2,3,4,5) j=1 For i = 5 To 1 Step -1 S = S + Art(i) * j j =j * 10 Next Print S End Sub 程序运行后,单击命令按钮,输出结果为( )。A.54321B.123C.12345D.345
[单选题]在窗体上画一个命令按钮,名称为Command1。单击命令按钮时,执行如下事件过程: Private Sub Command1_Click() a$="software and hardware" b$=Right(a$,8) c$=Mid(a$,1,8) MsgBox a$,,b$,c$,1 End Sub 则在弹出的信息框的标题栏中显示的信息是( )。A.hardwareB.softwareC.hardwareD.1
[单选题]在窗体上画一个命令按钮,名称为Command1。单击命令按钮时,执行如下事件过程: Private Sub Command1_Click( ) a$="software and hardware" b$=Right(a$,8) c$=Mid(a$,1,8) MsgBox aS,b$,c$,1 End Sub 则在弹出的信息框的标题栏中显示的信息是A.software and hardwareB.softwareC.hardwareD.1