[单选题]

在窗体上画一个名为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 要求在c:/的随机文件student.dat写入一条记录。应在程序中空行处填入以下哪条语句使该功能完整

A.Open"c:/student.dat"For Input As # 1 len=len(student)

B.Open"c:/student.dat:For random As # 1 len=len(student)

C.Open"c:/student.dat"For Output As # 1 len=len(student)

D.Open"c:/student.dat"For Append As # 1 len=len(student)

参考答案与解析:

相关试题

在窗体上画一个名为Command1的命令按钮,其Command1_Click事件

[单选题]在窗体上画一个名为Command1的命令按钮,其Command1_Click事件过程如下:Sub Command1_Click()D.im student As studtypeD.im record_no As Integerrecord_no=1With student.ino=12.strname="smith".strsex="男".smark=89E.nd With_______Put # 1,record_no,studentC.lose # 1E.nd Sub要求在c: /

  • 查看答案
  • 在窗体上画一个名为Command1的命令按钮,其Command1_Click事件过程如下:<br /><img border="0" style="wi

    [单选题]在窗体上画一个名为Command1的命令按钮,其Command1_Click事件过程如下:要求在C:的随机文件student.dat写入一条记录。应在

  • 查看答案
  • 在窗体上画一个名称为Command1的命令按钮,单击命令按钮时执行如下事件过程:<br />Private Sub Command1_Click( )<br />a$=&quo

    [单选题]在窗体上画一个名称为Command1的命令按钮,单击命令按钮时执行如下事件过程:Private Sub Command1_Click( )a$="so

  • 查看答案
  • 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click(  )。<br /><img border="0

    [单选题]在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click(  )。程序运行时,单击C

  • 查看答案
  • 在窗体上画一个命令按钮(名称为Command1),编写如下事件过程:Privat

    [单选题]在窗体上画一个命令按钮(名称为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 的命令按钮,然后编写以下程序: P

    [单选题](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 的命令按钮,然后编写如下程序: P

    [试题](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 B

    [单选题]在窗体上画一个名为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。单击命令按钮时,执行如下事件过程

    [单选题]在窗体上画一个命令按钮,名称为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。单击命令按钮时,执行如下事件过程

    [单选题]在窗体上画一个命令按钮,名称为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

  • 查看答案
  • 在窗体上画一个名为Command1的命令按钮,其Command1_Click事件