单选题在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1)，程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是( )。
单选题下列程序段的执行结果为 a=3 b=1 For I=1 To 3 f=a+b a=b b=f Print f Next I
单选题设窗体上有一个通用对话框控件CD1，希望在执行下面程序时，打开如图所示的文件对话框PrivateSubCommandqClick()CD1．DialogTitle=“打开文件”CD1．InitDit="C：＼"CDl．Filter=”所有文件|*.*|Word文档|*．doc|文本文件|*txt”CD1．Action=1IfCD1．FileName="'ThenPrint”未打开文件”ElsePrint”要打开文件”&CD1．FileNameEndIfEndSub但实际显示的对话框中列出了C：＼下的所有文件个文件夹，“文件类型”一栏中显示的是“所有文件”。下面的修改方案中正确的是
单选题下面的数组声明语句中正确的是( )。 A) Dim gg[1,5] As String B) LabellBackStyle=1 C) Dim gg(1 To 5)As String D) Dimgg[1:5,1:5] AsString
单选题在窗体上画一个命令按钮和一个文本框，其名称分别为Commandl和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：
Private Sub Commandl_Click() a=InputBox("Enter an
integer") b=Text1.Text
Text1.Text=b+a End Sub
程序运行后，在文本框中输入456，然后单击命令按钮，在输入对话框中输入123，则文本框中显示的内容是______。
A.579
B.123
C.456123
D.456
单选题设窗体上有一个名为Text1的文本框，并编写如下程序： Private Sub Form_Load() Show Text1.Text=" " Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer， Shift As Integer，X As Single，Y As Single) Print“程序设计” End Sub Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer) Print "Visual Basic"； End Sub 程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗本上显示的内容是
单选题在C盘当前文件夹下建立一个名为SDat.txt的顺序文件。要求用InputBox函数输入5名学生的学号(StuNo)、姓名(StuName)和英语成绩(StuEng)。则在下列横线处合适的语句是( )。 Private Sub Form_Click() Open"C:/SDat.txt"For Output As 1 For i=1 To 5 StuNo=InputBox("请输入学号") StuName=InputBox("请输入姓名") StuEndg=Val(InputBox("请输入英语成绩")) Next i Close#1 End Sub
单选题执行如下语句： a = InputBox( "Today", "Tomorrow", "Yesterday",,, "Day before yesterday", 5) 将显示一个输入对话框时，在对话框的输入区中显示的信息是 ______。
单选题某人编写了下面的程序，希望能把Text1文本框中的内容写到Temp．txt文件中 Private Sub Command1_Click() Open"Telnp．txt"For Output As #2 Print"Text1" Close#2 End Sub 调试时发现没有达到目的，为实现上述目的，应做的修改是( )。
单选题单击命令按钮时，下列程序代码的执行结果为 ______。 Public Sub Procl(n As Integer，ByVal m As Integer) n=n Mod 10 m=m/10 End Sub Private Sub Command1_Click() Dim x As Integer，y As Integer x=12: y=34 Call Procl(x，y) Print x；y End Sub
单选题单击一次命令按钮，下列程序代码的执行结果为
____
。
Private Sub Commandl_Click()
Dima As Integer,b As Integer，CASInteger
a=2：b=3：c=4
PrintP2(c，b，a)
End Sub
PrivateFunctionPl(X As Integer,y As Intege；z As Integer)
P1=2*x+y+3*Z
End Function
PrivateFunctionP2(X As Integer,y As Integer,z As Integer)
P2=P1(z,x,y)+x
End Function
单选题假定有以下循环结构
Do Until条件
循环体
Loop
则正确的描述是
单选题在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Private Sub Command1_Click() Dim n()As Integer：Dim a，b As Integer a=InputBox("Enter the first number") b：InputBox("Enter the second number") ReDim n(a To b) For k=LBound(n)To UBound(n) n(k)=k Print n(k)； Next k End Sub 程序运行后，单击命令按钮，在输入对话框中分别输入2和3，输出结果为
单选题有下列程序：程序最后打印结果是______。
单选题在窗体上画两个名称分别为Text1、Text2的文本框，一个名称为Label1标签，窗体
外观如图a所示，要求当改变任一个文本框的内容，就会将该文本框的内容显示在标签中，如图b所示。实现上述功能的程序如下：
Private Sub Text1_Change()
Call ShowText(Text1)
End Sub
Private Sub Text2_Change()
Call ShowText(Text2)
End Sub
Private Sub ShowText(T As TextBox)
Labell．Caption="文本框中的内容是："＆T．Text
End Sub
关于上述程序，以下叙述中错误的是( )。
单选题在窗体上有一个文本框控件，名称为TextTime；一个计时器控件，名称为Timer1。要求每一秒在文本框中显示一次当前的时间。程序为： Private Sub Timer1_ ______( ) TextTime.text=Time End Sub 在下画线上应填入的内容是
单选题在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dim I As Integer,n As Integer For i=0 T0 50 i=i+3：n=n+1 If i>10 Then Exit For Next Text1．Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是
单选题要想在过程调用后返回两个结果，下面的过程定义语句中合法的是_____________。
A.Sub Proc(ByVal n,ByVal m)
B.Sub Proc(n,ByVal m)
C.Sub Proc(n,m)
D.Sub Proc(ByVal n,m)
单选题以下关于局部变量的叙述中错误的是( )。
单选题使用Open语句打开文件时需要指定参数Len的是___________。
A.打开顺序文件
B.打开文本文件
C.打开随机文件
D.打开二进制数文件