在窗体上画一个命令按钮,然后编写如下代码: 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 MaxSize=LOF(1) For NextChar=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 MaxSize=LOF(1) For NextChar=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中显示的内容为【 】。
在窗体上画一个命令按钮,然后编写如下代码:Private Sub Command1_C1ick()Dim M (10) As IntegerFor k=1 To 10M(k)=12-kNext kx=6Msgbox M(2+M(x))End Sub程序运行后,单击命令按钮,消息框显示的是【 】。
在窗体上画两个文本框(Name属性分别为Textl和Text2)和一个命令按钮(Name属性为Commandl),然后编写如下事件过程:A. 1和0B. 2和72C. 3和50D. 4和168
在窗体上画一个命令按钮(其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
在窗体上画一个命令按钮,然后编写如下事件过程:程序运行后,依次输入3,2,1,0,-1,-2,则输出结果是__________。