单选题程序如下：Private Sub form_ Activate() Dim a As Integer for i=4 To 5 a=fun(i) Print a, Next iEnd SubPrivate Function fun(n)As Integer if n ＞0 then fun =n* fun(n-1) Else fun=1 End ifEnd Function 程序最后打印结果是______。
单选题在窗体上画一个命令按钮(名称为Commandl)，并编写如下代码： Function Funl(ByVal
a As Integer,b As Integer)As Integer Dim t As Integer
t=a-b b=t+a Fun1=t+b
End Function Private Sub Commandl_Click() Dim
x As Integer x=10 Print
Funl(Fun1(x,(Fun1(x,x-1))),x-1) End Sub
程序运行后，单击命令按钮，输出结果是______。
A.10
B.0
C.11
D.21
单选题下列程序是将两个文本框(tetx1和text2)的内容进行组合，组合后的结果在图片框(Pic1)显示出来。 Private Sub Command1_Click( ) Dim s1 As String， s2 As String s1 = Text1.Text s2 = Text2.Text For i = Len(s1)To 1 Step -1 s3 = s3 + Mid(s1， i， 1)+ Mid(s2， i， 1) Next i Pic1.Print s3 End Sub 程序运行后，在Text1文本框中输入"ABCDE"，在Text2文本框中输入"12345"单击命令按钮，则在Pic1图片框中显示的内容是________。
单选题为把圆周率的近似值3．14159存放在变量pi中，应该把变量pi定义为
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
c="ABCD"
For n=1 To 4
Print ______
Next
End Sub
程序运行后，单击命令按钮，要求在窗体上显示如下内容：
D
CD
BCD
ABCD
则在填空处应填入的内容为______。
单选题执行以下Command1的Click事件过程在窗体上显示 Option Base 1 Private Sub Command1_Click( ) Dim a a=Array(“a”，“b”，“c”，“d”，“e”，“f”，“g”) Printa(1)；a(3)；a(5) End Sub
单选题设有下面程序代码：Option Base 1Private Sub Command1_Click() Dim x(6) a = Array(4, 2, 5, 1, 6, 3) b = Array(64, 24, 98, 27, 58, 41) For k = 1 To 6 x(a(k)) = b(k) Next k For k = 1 To 6 Print x(k); Next kEnd Sub程序运行时的输出是
单选题窗体上有1个名称为Text1的文本框，1个名称为Label1的标签。程序运行后，如果在文本框中输入信息，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程为( )。
单选题下列4项对InputBox函数的使用说明，不正确的是( )。
单选题在运行程序时，在文本框中输入新的内容，或在程序代码中改变Text的属性值，相应会触发到
单选题窗体上有一个名称为Command1的命令按钮，其事件过程如下：
Private Sub Command1_Click()
x=VisualBasieProgramming
a=Right(x，11)
b=Mid(x，7，5)
c=MsgBox(a，，b)
End Sub
运行程序后单击命令按钮。以下叙述中错误的是______。
单选题在窗体上画一个命令按钮,名称为Command1,然后编写如下代码：
Option Base 0
Private Sub Commandl_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,输出结果为【 】
单选题在Visual Basic中传递参数的方法有 ______方式。
单选题某二叉树有5个度为2的结点，则该二叉树中的叶子结点数是( )。
单选题窗体上有一个Text1文本框，并编写了下面事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) KeyAscii=KeyAscii+3 End Sub 程序运行时，在文本框中输入字符“A”，则在文本框中实际显示的是
单选题假定在图片框Picturel中装入了一个图片，在程序运行中，为了清除该图片(注意，清除图片，而不是删除图片框)，应采用的正确方法是
单选题在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和command1，然后编写如下程序：Private Sub func(L As Label) L．Caption=”1234”End SubPrivate Sub Form Load() Label1．Caption=”ABCDE” Label2．Caption=10End SubPrivate Sub Commandl_Click() a=Val(Label2．Caption) Call func(Labell) Label2．Caption=aEnd Sub 程序运行后，单击命令按钮，则在两个标签中显示的内容分别为
单选题单击命令按钮时，下列程序的执行结果是 Private Sub Command1_Click( ) Dim a As Integer，b As Integer，c As Integer a=3 b=4 C=5 Print SecProc(c，b，a) End Sub Function Fir Proc(x As Integer，y As Integer，z As Integer) Fir Proc=2*x+y+3*z End Function Function SecProc(x As Integer，y As Integer，z As Integer) SecProc=FirProc(z，x，y)+x End Function
单选题下列语句中正确的是
A. If A≠B Then Print"A不等于B"
B. If A＜＞B Then Printt"A不等于B"
C. If A＜＞B Then Print"A不等于B"
D. If A≠B Print"A不等于B"
单选题有如下程序： Private Sub Form_Click() E=1：F=1 For i=1 To 3 E=E+F:F=F+E Next Print E；F End Sub 该程序的输出结果是