在窗体上画一个命令按钮,然后编写如下代码:Private Type RecordR_ID As IntegerR_Name As String * 20Ene TypePrivate Sub Commandl_Click( )Dim M _Sise, N_Char, M_CharOpen" c: \file. txt" For Input As 1M_sise=LOF(1)For N_Char = M_Sise To 1 Step - 1Seek1, Next CharM_char = Input(1 ,1)NextPrint EOF(1)Close1End Sub程序运行后,单击命令按钮,其输出结果为【 】。
在窗体上画一个命令按钮,然后编写如下代码:
Private Type Record
R_ID As Integer
R_Name As String * 20
Ene Type
Private Sub Commandl_Click( )
Dim M _Sise, N_Char, M_Char
Open" c: \file. txt" For Input As 1
M_sise=LOF(1)
For N_Char = M_Sise To 1 Step - 1
Seek1, Next Char
M_char = Input(1 ,1)
Next
Print EOF(1)
Close1
End Sub
程序运行后,单击命令按钮,其输出结果为【 】。
相关考题:
在窗体上画一个命令按钮,然后编写如下代码:Private Sub Commandl_Click()Dim M(10) As IntegerFor k=1 To 10M(k)=12-kNext kx=6Msgbox M(2+M(x))End Sub程序运行后,单击命令按钮,消息框显示的是______。
在窗体上画一个命令按钮,然后编写如下代码:Private Sub Command1_Click()Dim M (10) As IntegerFor k=1 To 10M(k)=12-kNext kx=6Msgbox M(2+M(x))End Sub程序运行后,单击命令按钮,消息框显示的是【 】。
在窗体上画两个文本框和一个命令按钮,然后在命令按钮的代码窗口中编写如下事件过程:Private Sub Command1_Click()Text 1="VB programming"Text 2=Text 1Text 1="ABCD"End Sub程序运行后,单击命令按钮,文本框Text 2中显示的内容为【 】。
在窗体上画一个命令按钮,然后编写如下代码:Private Sub Command1_C1ick()Dim M (10) As IntegerFor k=1 To 10M(k)=12-kNext kx=6Msgbox M(2+M(x))End Sub程序运行后,单击命令按钮,消息框显示的是【 】。
在窗体上画一个命令按钮,名称为Commandl,然后编写如下事件过程:程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。A)机床B)车床C)钻床D)轴承