在窗体上画一个命令按钮，然后编写如下代码： 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 Type Record ID As Integer Name As String * 20 End Type Private Sub Command1_Click( ) Dim MaxSize, NextChar, MyChar Open "d:/vb/tt. txt" For Input As #1 MaxSize = LOF(1) For NextChar = MaxSize To 1 Step - 1 Seek # 1, Ne

[单选题]在窗体上画一个命令按钮，然后编写如下代码： 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=Inpu

[单选题]在窗体上画一个命令按钮，然后编写如下代码： Private Sub Command1 Click() a&＝InputBox("请输入第一个数") b&=InputBox("请输入第二个数") Print b&+a& End Sub 程序运行后，单击命令按钮，在两个输入对话框中先后输入12345和54321，程序的输出结果是A．66666B．5432112345C．1.23455e+009D．出错

[单选题]在窗体上画一个命令按钮，然后编写如下代码： Private Sub Command1_Click() 0pen "d：/vb/test.txt "For Input As #1 Print LOF(1) Close #1 End Sub 假设文件d:/vb/test.txt的内容为I am a student．，那么程序运行后，单击命令按钮，其输出结果为______.A．13B．14C．15D．16

[单选题]在窗体上画一个命令按钮，名称为Commandl，然后编写如下代码： Option Base 0 Private Sub Commandl_Click() DimA(4)As Integer,B(4)As Integer Fork=0 To 2 A(k+1)=InputBox(“请输入一个整数”) B(3-k)=A(k+1) Nextk PrintB(k) End Sub 程序运行后，单击命令按钮，在输入对话框中分别A．0B．2C．3D．4

[单选题]在窗体上画一个名为Commandl的命令按钮，然后编写如下代码：option Base 1Pdvate Sub Commandl_Click()D．im aa=Array(1，2，3，4)J=1F．or i=3 To 1 Step-1s=s+a(i)*Jj=j*10NextiPrint sE．nd Sub运行上面的程序，其输出结果是A．1234B．12C．34D．4321

[单选题]在窗体上画一个命令按钮Command1，然后编写如下代码： Privae Sub Command1_Click() Dim Arr1(10) As Integer,Arr2(10) As Integer n=3 For i=1 To 5 Arr1(i)=i Art2(n)=2*n+i Next i Print Arr2(n);Arr1(n) End Sub 运行程序后，单击命令按钮，输出结果是( )。A．11 3B．3 11C．13 3D．3 13

[单选题]在窗体上画一个命令按钮，名称为 Command1, 然后编写如下代码：Option Base 0Private Sub Command1_Click（）D．im A （4）As Integer,B（4） As IntegerF．or k=0 To 2A．（k+1）=InputBox（“ 请输入一个整数 ”）B．（3-k）=A（k+1）Next kPrint B（k）E．nd Sub程序运行后，单击命令按钮，在输入对话框中分别输入2、4、6，输入结果为（ ）。 A．0B．2C．3D．4

[单选题]在窗体上画一个命令按钮，名称为Command1，然后编写如下代码：Option Base()Private Sub Command1_ Click() Dim A1(4) As Integer, A2(4)As Integer For k= 0 To 2 A1(k+1)=InputBox(“请输入—个整数”) A2(3-k)=A1(k+1) Next k Print A2 (k)End Sub程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为______。A．0B．1C．2

[单选题]在窗体上画一个命令按钮，名称为Command1，然后编写如下代码： Option Base() Private Sub Command1 Click() Dim A(4)As Integer,B(4)As Integer For k=0 To 2 A(k+1)＝InputBox(“请输入一个整数”) B(3-k)＝A(k+1) Next k Print B(k) End sub 程序运行后，单击命令按钮，在输入对话框中分别输入2、4、6，输出结果为______。A．0B．2C．3D．4