单选题以下程序段的输出结果为______。 X=1 Y=4 Do Until Y＞4 X=K*Y Y+Y+1 Loop Print X
单选题设有如下程序：
Private Sub Form_Click()
Dim a,k As Integer
Dim n As Integer,S As Integer
a=Array(1,1,1,2,2,2)
For k=LBound(a)To UBound(a)
n=n+k
s=s+a(k)
Next
Print n;s
End Sub
程序运行后，如果单击窗体，则在窗体上输出的内容为
单选题在窗体中添加一个命令按钮，编写如下程序： Private Sub Test(p，m，n) p=p+1：m=m+1：n=n+1 Print "Sub: ";p；m；n End Sub Private Sub Command1.Click() a1=1：b=2：c1=3 Call Test((a，b1+3，(c1)) Print "Main："；a1；b1；c1 End Sub 程序运行后，输出结果为
单选题下面关于控件数组的叙述中正确的是
单选题在Visual Basic环境下设计应用程序时，系统能自动检查出的错误是
单选题在窗体上画三个名称分别为Text1、List1和Command1的文本框、列表框和命令按钮，且List1中有若干列表项，Text1的内容为空，然后编写如下事件过程：
Private Sub Command1_Click()
Dim i As Integer
If Text1．Text=""Then
Exit Sub
End If
If List1．ListIndex一1 Then
List1．List(List1．ListIndex)=Text1．Text
Else
List1．Addhem Text1．Text
End If
Text1．Text=""
End Sub
以下叙述中正确的是( )。
单选题在使用打印直接输出信息时，下列哪个属性或方法实现了使文件结束打印( )。
单选题窗体上有1个名称为Command1的命令按钮，事件过程及函数过程如下： Private Sub Command1_Click() Dim p As Integer p=m(1) +m(2) +m(3) Print p End Sub Private Function m(n As Integer)As Integer Static s As Integer For i = 1 To n s=s+1 Next m=s End Function 运行程序，第2次单击命令按钮Command1时的输出结果为( )。 A) 6 B) 10 C) 16 D) 28
单选题下面控件中，没有Caption属性的是( )。
单选题假定有以下循环结构： Do Until条件表达式 循环体 Loop 则以下正确的描述是( )。
单选题下面______不是VB的文件类控件。 ( )
单选题下列循环能正常结束的是( )。
单选题线性表常采用的两种存储结构是( )。
单选题下列程序执行后，变量x的值为( )。 Dim a，b，c，d As Single Dim x As Single a=10：b=30：c=400 If b>a TIlen d=a：a=b：b=d End If Ifb>c Then x=b Else lf a>c Then x=c Else x=a End If
单选题设有以下程序代码：Private Sub Command1_Click() Dim x As String, y As Integer x = "考试" y = 1 proc x, y Print "第"; y; "次"; xEnd SubSub proc(ByVal a As String, b As Integer) a = "参加" + a b = b + 1End Sub运行程序，单击命令按钮后显示的是
单选题为达到把a、b中的值交换后输出的目的，某人编程如下： Private Sub Command1_Click() a%=10:b%=20 Call swap(a,b) Print a,b End Sub Private Sub swap(ByVal a As Integer, ByVal b As Integer) c=a:a=b:b=c End Sub 在运行时发现输出结果错了，需要修改。下面列出的错误原因和修改方案中正确的是
单选题窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Label1)。要求程序运行后，如果在文本框中输入字符，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是______。
单选题有以下程序代码：Private Sub Command1_Click () Print fun(10), fun(5)End SubPrivate Function fun(n As Integer) As Integer Static t For k = 1 To n t = t + k Next k fun = tEnd Function执行Command1_Click过程产生的输出是( )。
单选题以下程序在文本框Text1中输入任一字符串，并按相反的次序显示在文本框Text2中，在横线处应填写( )。Dim N As String，C As String，D As StringN=Text1．TextM=______________For i=M To1Step-1C=Mid(N，i，1)：D=D&CNext iText2．Text=DEnd Sub
单选题下列程序执行后，变量X的值为______。
Dim fl.b,c,d As Single
Dim X As Single
fl=10
b=30
c=400
If b＞fl Then
d=fl: fi=b: b=d
End If
If b＞c Then
X=b
Else If fl＞c Then
X=c
Else
X=a
End If