单选题请阅读下面程序：
Private Sub Form_Click()
m=1
For i=4 To 1 Step-1
Print Str(m);
m=m+1
For j=1 To i
Print "*";
Next j
Print
Nexk i
End Sub
程序运行后，单击窗体，则输出结果是
单选题设有声明语句 Option Base 1 Dim b( -1 To 10．2 To 9．20) As Integer
单选题为了同时改变一个活动控件的高度和宽度，正确的操作是________。
A. 拖拉控件4个角上的某个小方块
B. 只能拖拉位于控件右下角的小方块
C. 只能拖拉位于控件左下角的小方块
D. 不能同时改变控件的高度和宽度
单选题下列关于栈的叙述中，正确的是
单选题设有如下程序： Option Base 1 Dim a(3, 4) As Integer, b(4, 3) As Integer Private Sub Command1_Click( ) '循环1 For i = 1 To 3 For j = 1 To 4 b(j, i) =a(i, j) Next j Next i '循环2 x=b(1, 1) For i = 1 To 4 For j = 1 To 3 Print b(i, j); if x＜b(i, j) Then x=b(i, j) Next j Print Next i End Sub 程序中的数组a已被赋值。以下关于上述程序的叙述中，正确的是( )。 A) 窗体模块中，不能使用Dim声明a、b数组 B) “循环1”可以正常运行 C) “循环2”中循环变量i、j的终值不对，所以不能正常运行 D) 程序可以正常运行，x中保存的是数组b中所有元素中最小的数
单选题某二叉树的前序序列为ABCDEFG，中序序列为DCBAEFG，则该二叉树的后序序列为
单选题已知字符串A的值为“AdvancedEducation”，现要将它全部转化为大写字母并存放在A中，可以使用语句 _______。
单选题在窗体中添加一个命令按钮，然后编写如下代码：
Private Sub Command1_Click( )
For i=l To 4
x=4
For j=1 To 3
x=3
For k=l To 3
x=x+6
Next k
Next j
Next i
Print x
End Sub
程序运行后，单击命令按钮，输出结果是
单选题在窗体上画一个名为Command1的命令按钮，然后编写如下代码： Option Base1 Private Sub Command1 Click(1) Dim a a=Array(1，2，3，4)：j=1 For i=4 To 1 Step-1 s=s+a(i)*j：j=j*10 Next i Print s End Sub 运行上面的程序，其输出结果是
单选题在窗体上画一个命令按钮Command1和一个文本框Text1，然后编写下列程序： Private Sub Command1 click() A=InputBox("请输入日期(1～31)") t="旅游景点："_ &Ⅱf(A＞0 And A＜=10,"长城","")_ &Ⅱf(A＞10 And A＜=20,"故宫","")_ &Ⅱf(A＞20 And A＜=30,"颐和园","") Text1.Text=t End Sub 程序运行后，如果从键盘输入5，则在文本框中显示的内容是( )。
单选题为了在按下Esc键时执行某个命令按钮的Click事件过程，需要将命令按钮的某属性值设置为True，该属性是( )。
单选题设有如下通用过程：Public Function f(x As Integer) Dim y As Integer x＝20 y＝2 f＝x * yEnd Function在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click() Static x As Integer x＝10 y＝5 y＝f(x) Print x； yEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。
单选题要求如果x被7除余2，则输出x的值，下列语句中不能实现此功能的语句是
单选题下面程序运行时，若输入“Visual Basic Prograrmming”，则在窗体上输出的是______。
Private Sub Command1_Click()
Dim cout(25)As Integer, ch As String
ch=Ucase(InputBox("请输入字母字符串"))
For k=1 To Len(ch)
n=Asc(Mid(ch,k,1))-Asc("A")
If n＞=0 Then
count(n)=count(n)+1
End If
Next k
m=count(0)
For k=1 To 25
If m＜count(k)Then
m=count(k)
End If
Next k
Print m
End Sub
单选题软件生命周期中的活动不包括
单选题设有如下过程： Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Forrn_KeyUp(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode＋2) End Sub 若把窗体的KeyPreview属性设置为True，程序运行后，如果按“A”键，则输出结果为( )。
单选题以下关于窗体的叙述中，错误的是( )。
单选题窗体上的三个命令按钮构成名称为command1的控件数组，如图所示。程序如下：PrivateSubCommand1_Click(IndexAsInteger)IfIndex=1ThenPrint"计算机等级考试"EndIfIfIndex=2ThenPrintCommand1(2).CaptionEndIfEndSub运行程序，单击“命令按钮2”，则如下叙述中正确的是______。
单选题下面程序运行时，若输入“Visual Basic Programming”，则在窗体上输出的是______。
Private Sub Comand1_Click()
Dim count(25)As Integer, ch As String
ch=Ucase(InputBox("请输入字母字符串"))
For k=1 To Len(ch)
n=Asc(Mid(ch,k,1))-Asc("A")
If n＞=0 Then
Count(n)=Count(n)+1
End If
Next k
m=count(0)
For k=1 To 25
If m＜count(k)Then
m=count(k)
End If
Next k
Print m
End Sub
单选题设a、b、c为整型变量，其值分别为1、2、3，以下程序段的输出结果是（ ）
A=b:b=c:c=a
Print a;b;c