单选题在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Dim m As Integer，n As Integer，p As Integer
m=3：n=5：p=O
Call Y(m，n，p)
Print Str(p)
End Sub
Sub Y(ByVal i As Integer，ByVal j As Integer，k As Integer)
k=i + j
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。
单选题在菜单编辑器中建立如下图所示的菜单，并为了每个菜单项编写了鼠标单击事件过程。关于此菜单，以下叙述中错误的是( )。
单选题若在窗体模块的声明部分声明了如下自定义类型和数组 Private Type Tem Score As Integer StrNameAs String End Type Dim Student(5)As Tem 则下面的输出语句中正确的是( )。
单选题设有以下程序： Private Sub Form_Click()
x=50 For i=1 To 4
y=InputBox("请输入一个整数") y=Val(y) Ify Mod 5=0
Then a=a+y x=y Else
a=a+x End If Next i
Print a End Sub
程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为______。
A.100
B.50
C.120
D.70
单选题为了在按下Ese键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一个属性设置为True，这个属性是
单选题设有如下程序：
Private Sub Form_Click()
num=InputBox("请输入一个实数"):p=InStr(num, ".")
If p＞0 Then
Print Mid(num,p+1)
Else
Print"END"
End If
End Sub
运行程序单击窗体，根据提示输入一个数值。如果不是输入实数，则输出“END”；否则
单选题假定有以下通用过程：
Function Fun(n As Integer)As Integer
x=n*n
Fun=x-11
End Function
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
Dim i As Integer
For i=1 To 2
y=Fun(i)
Print y;
Next i
End Sub
程序运行后，单击命令按钮，在窗体上显示的内容是______。
单选题在窗体上放置一个命令按钮Command1，并编写下列单击事件的程序： Option Base 1 Pdvate Sub Command1_Click() Dim c As Integer,d As Integer d=0 c=6 X=Array(2,4,6,8,10,12) For i=1 To 6 If X(i)>c Then d=d+X(i) c=X(i) Else d=d-c End If Next i Print d End Sub 程序运行后，单击命令按钮，则在窗体上输山的结果是( )。
单选题已知一棵二叉树的前序遍历为ABDECF，中序遍历为DBEAFC，则对该树进行后序遍历得到的序列为________。
单选题窗体上有一个名称为Command1的命令按钮，一个名称为Text1的文本框。编写如下程序： Private Sub Command1_Click() Dim x As Integer x = Val( InputBox ("输入数据") ) Text1 = Str( x + fun(x) + fun(x) ) End Sub Private Function fun(ByRef n As Integer) If n Mod 3 = 0 Then n=n+n Else n=n*n End If fun=n End Function 对于上述程序，以下叙述中错误的是( )。 A) 语句fun=n有错，因为n是整型，fun没有定义类型 B) 运行程序，输入值为5时，文本框中显示655 C) 运行程序，输入值为6时，文本框中显示42 D) ByRef表示参数按址传递
单选题以下关系表达式中，其值为False的是
A."ABC"＞"AbC"
B."the"＜＞"they"
C."VISUAL"=Ucase("visual")
D."Integer"＞"Int"
单选题设有如下程序：
Private Sub Form_Click()
a=10:b=20
x=a=b
Print x
End Sub
程序运行后，单击窗体，输出结果为______。
单选题下面四个选项，不是事件或语句的是（ ）
单选题窗体上有一个名称为Picturel的图片框控件，一个名称为Label1的标签控件，如下图所示。现有如下程序：PublicSubdisplay(xAsControl)IfTypeOfxIsLabelThenx.Caption="计算机等级考试"Elsex.Picture=LoadPicture("pic.jpg")EndIfEndSubPrivateSubLabell_Click()Calldisplay(Labell)EndSubPrivateSubPicture1_Click()Calldisplay(Picture1)EndSub对以上程序，下列叙述中错误的是()。
单选题在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0 do Until x=-1 a=InputBox("请输入a的值") a=Val(a) b=InputBox("请输入b的值") b=Val(b) x=InputBox("请输入X的值") x=Val(x) a=a+b+x Loop Print a End Sub 程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1则输出结果是( )。
单选题下列程序段正确的是( )。
单选题若要把窗体上命令按钮Commandl的状态设置为不可用，应该执行的命令是
单选题设窗体上有一个文本框Text1和一个命令按钮Command1，并有以下事件过程： Private Sub Command1_Click() Dim s As String，ch As String s = " " For k = 1 To Len(Text1) ch = Mid(Text1, k, 1) s = ch + s Next k Text1. Text = s End Sub 程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是( )。 A) Basic B) cisaB C) BASIC D) CISAB
单选题在窗体上有一个名称为Check1的复选框数组(含4个复选框)，还有一个名称为Text1的文本框，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的文字罗列在文本框中(见图)。下面能实现此功能的事件过程是{{U}}{{/U}}。A.PrivateSubCheck1_Click(IndexAsInteger)Text1.Text=""Fork=0To3IfCheck1(k).Value=1ThenText1.Text=Text1.Text&Check1(k).Caption&""'双引号中是空格EndIfNextkEndSubB.PrivateSubCheck1_Click(IndexAsInteger)Fork=0To3IfCheck1(k).Value=1ThenText1.Text=Text1.Text&Check1(k).Caption&""'双引号中是空格EndIfNextkEndSubC.PrivateSubCheck1_Click(IndexAsInteger)Text1.Text=""Fork=0To3IfCheck1(Index).Value=1ThenText1.Text=Text1.Text&Check1(Index).Caption&""'双引号中是空格EndIfNextkEndSubD.PrivateSubCheck1_Click(IndexAsInteger)Text1.Text=""Fork=0To3IfCheck1(k).Value=1ThenText1.Text=Text1.Text&Check1(k).Caption&""'双引号中是空格ExitForEndIfNextkEndSub
单选题在窗体模块中用Public定义的变量的作用范围是