单选题有过程如下：Sub fact (m As Integer, total As Long) Dim i As Integer total = 1 for i = 1 To m total = total*i Next iEnd Sub调用它的事件过程如下：Private Sub Command1_ Click () Dim tot As Long Dim a As Integer a = Val InputBox (“请输入数据”)) Call fact (a, tot) Print totEnd Sub则输入数据5，运行结果为 ______。
单选题设窗体上有1个名称为HScroll1的水平滚动条，其Max、Min属性分别设置为100、1：有2个名称分别为Option1、Option2的单选按钮，其标题分别为“30”、“50”；还有下面程序代码： Private Sub Optionl_Click() Private Sub Option2_Click() HScroll1=Val(Optionl．Caption) HScroll1=Val(Option2．Caption) End Sub End Sub 程序运行时，单击Option2单选按钮，则滚动条上滚动框的位置是
单选题在窗体上画两个名称分别为Hscroll1、Hscroll2的滚动条控件；6个名称分别为Label1、Label2、Label3、Label4、Label5、Label6的标签，其中，Label4～Label6分别显示“A”、“B”、“A*B”等文字信息，标签Label1、Label2分别显示其右侧的滚动条Value属性值，Label3显示A*B的计算结果，如图所示。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮“计算”时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现求积功能的事件过程是______。
单选题设窗体上有—列表框控件List1，且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是
单选题假定已经在菜单编辑器中建立了窗体的弹出式菜单，其顶级菜单的名称为a1，其“可见”属性为False，则程序运行后，可以同时响应鼠标左键单击和右键单击的事件过程是 ______ 。
单选题运行下列程序后，显示的结果为_______。 R1=21
R2=34 If R1＜R2 Then Print R2 Else Print R1
A.21
B.34
C.55
D.2134
单选题设有如下程序段：
Dim a(10)
…
For Each x In a
Print x;
Next x
在上面的程序段中，变量x必须是______。
单选题设有如图所示窗体和以下程序：PrivateSubCommand1_Click()Text1.Text=VisualBasicEndSubPrivateSubText1_LostFoeus()IfText1.Text＜＞BASICThenText1.Text=Text1.SetFocusEndIfEndSub程序运行时，在Text1文本框中输入“Basic”(如图所示)，然后单击Command1按钮，则产生的结果是______。
单选题窗体上有一个名称为CD1的通用对话框控件和由四个命令按钮组成的控件数组Command1，其下标从左到右分别为0、1、2、3，窗体外观如下图所示。命令按钮的事件过程如下：PrivateSubCommand1_Click(IndexAsInteger)SelectCaseIndexCase0CD1.Action=1Case1CD1.ShowSaveCase2CD1.Action=5Case3EndEndSelectEndSub对上述程序，下列叙述中错误的是()。
单选题执行以下程序后输出的是( ) Private Sub Command1_Click() Ch$="AABCDEFGH" Print Mid(Right(ch$,6),Len(left(ch$,4)),2) End Sub A．CDEFGH B．ABCD C．FG D．AB
单选题下列程序的执行结果为( )。 A="5":B="6" A=Val(
单选题执行下面的程序段后，变量c的值为______。
a=29
b=33
Select Case b/10
Case 0
c=a* 10+b
Case 1 To 9
c=a* 100+b
Case 10 To 99
c=a* 1000+b
End Select
Print c
单选题下列符号常量的声明中不合法的是
单选题假定窗体的名称为Form1，则下列等价的语句是
单选题有如下程序： Private Sub Command1_Click() Dim i As Integer, j As Integer Dim sum As Integer n=1 Do j=1 Do sum = sum + j j=j+1 Print j; Loop Until j ＞ 3 n=n+2 Loop Until n ＞ 10 Print sum End Sub 运行上述程序，外层Do循环执行的次数为( )。 A) 4 B) 5 C) 7 D) 10
单选题如果在过程A中用语句：Call proc(a, b) 调用下面的过程Private Sub proc(b As Integer, ByVal a As Integer) a = a + 1 b = b * 2End Sub则调用结束后的结果是( )。
单选题假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。 Model1代码如下： Public x As Integer Public y As Integer Sub S1() x=1 S2 End Sub Sub S2() y=10 Form1. Show End Sub Model2的代码如下： Sub Main() S1 End Sub 其中Sub Main被设置为启动过程。程序运行后，各模块的执行顺序是( )。
单选题
单选题下列代码运行后输出结果是 Ｄefstr B-E Ｐrivate Sub Command1_Click() Ｂ$="123" Ｃ="456" Ｐrint B+C$ Ｅnd Sub
单选题在窗体上画一个文本框、一个标签，其名称分别为Text1、Label1，然后编写如下事件过程：Private Sub Text1_Change() Label1.Caption = UCase(Mid(Trim(Text1.Text), 7, 3))End Sub程序运行时，如果在文本框中输入字符串"VisualBasic计算机等级考试"，则在标签Label1中显示的内容是( )。