在窗体上画一个命令按钮,然后编写如下代码: Private Type Record ID As Integer Name As String * 20 End Type Private Sub Command1_Click() Dim MaxSize,NextChar,MyChar Open"D:\temp\female.txt"For Input As # 1 Max Size=LOF(1) For Next Char=1 To MaxSize Seek # 1,NextChar MyChar=Input(1,# 1) Next NextChar Print EOF(1) Close # 1 End Sub 程序运行后,单击命令按钮,其输出结果为 ______。A.TrueB.FalseC.0D.Null
在窗体上画一个命令按钮,然后编写如下代码: Private Type Record ID As Integer Name As String * 20 End Type Private Sub Command1_Click() Dim MaxSize,NextChar,MyChar Open"D:\temp\female.txt"For Input As # 1 Max Size=LOF(1) For Next Char=1 To MaxSize Seek # 1,NextChar MyChar=Input(1,# 1) Next NextChar Print EOF(1) Close # 1 End Sub 程序运行后,单击命令按钮,其输出结果为 ______。
A.True
B.False
C.0
D.Null
相关考题:
在窗体上画一个命令按钮,然后编写如下代码: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中显示的内容为【 】。
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:Private Sub Command1_Click()Dim a(5,5)For i=1 To 3For j=1 To 4a(i,j)=i*jNextNextFor n=1 To 2For m=1 To 3Print a(m,n);NextNextEnd Sub程序运行后,单击命令按钮,输出结果是A.2 4 6 1 2 3B.1 2 3 2 4 6C.1 2 3 4 5 6D.6 5 4 3 2 1
在窗体上画一个命令按钮,名称为Commandl,然后编写如下事件过程:程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。A)机床B)车床C)钻床D)轴承