单选题在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：
Option Base 1
Private Sub Commmad1_Click()
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
运行上面的程序，单击命令按钮，其输出结果是
____
。
单选题以下关于菜单的叙述中，错误的是( )。
单选题下列程序执行的结果为
x=25：y=20： z=7
Print"S("；x+2*y；")"
单选题窗体上命令按钮的事件过程如下： Private Sub Command1_Click() A＝"34"：B＝"26"：C＝"98" Print B＋C＋A End Sub 运行程序后，单击命令按钮，输出结果是( )。
单选题在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程： PrivateSubCommand1_Click() n=Text1.Text Select Case n Case 1 To 20 x=10 Case 2,4,6 x=20 Case Is＜10 x=30 Case 10 x=40 End Select Text2.Text=x End Sub 程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是______。
单选题要在命令按钮控件上显示图像应
____
。
单选题在Visual Basic中，表达式3*2＼5 Mod 3的值是( )。
单选题阅读下列程序： PrivateSubCommand1_Click() Dim i As Integer，k As Integer k=2 For i=1 To 3 Print Fun(k)； Next End Sub Function Fun(j As Integer) Static b a=0 a=a+1 b=b+1 Fun=a*b+j End Function 程序运行后，单击命令按钮输出结果是
单选题下列针对框架控件的叙述中，错误的是______。
A.框架是一个容器控件
B.框架也有Click和DblClick事件
C.框架也可以接受用户的输入
D.使用框架的主要目的是为了对控件进行分组
单选题设通用对话框控件的名称为CD1，希望在打开文件对话框中的“文件类型”列表中包含：所有文件、Word文档和文本文件这3类文件，在程序中设置Filter属性时正确的是
A. CD1.Pilter＝“所有文件|Word文档|文本文件”
B. CD1.Filter＝“所有文件|*.*|Word文档|*.doc|文本文件|*.txt”
C. CD1.Filter＝所有文件|*.*|Word文档|*.doc|文本文件|*.txt
D. CD1.Filter＝“*.*|所有文件|*.doc|Word文档|*.txt|文本文件”
单选题在Visual Basic环境下设计应用程序时，系统能自动检查出的错误是( )。
单选题在窗体上画两个名称分别为Hscroll1、Hscroll2的滚动条控件；6个名称分别为Label1、Label2、Label3、Label4、Label5、Label6的标签，其中，Label4～Label6分别显示“A”、“B”、“A*B”等文字信息，标签Label1、Label2分别显示其右侧的滚动条Value属性值，Label3显示A*B的计算结果，如图1所示。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮“计算”时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现求积功能的事件过程是()。
单选题假定在图片框控件Picture1中装入了一个图形，为了在程序运行时清除该图形，则应使用下列哪种方法( )。
单选题已知数组Dim a(1 To 10)As Integer，则下面正确调用GetValue函数的是( )。 Private Function GetValue(a() As Integer) As Integer For i＝1 T0 10 GetValue＝GetValue＋a(i) Nexti End Function
单选题要求产生10个随机整数，存放在数组arr中。从键盘输入要删除的数组元素的下标，将该元素中的数据删除，后面元素中的数据依次前移，并显示删除后剩余的数据。现有如下程序：
Option Base 1
Private Sub Command1_Click()
Dim arr(10)As Integer
For i=1 To 10 "循环1
arr(i)=Int(Rnd*100)
Print arr(i);
Next
x=Input("输入1-10的一个整数:")
For i=x+1 To 10 "循环2
arr(i-1)=arr(i)
Next
For i=1 To 10 "循环3
Print arr(i);
Next
End Sub
程序运行后发现显示的结果不正确，应该进行的修改是______。
单选题窗体的MouseUp事件过程如下：Private Sub Form—MouseUp(Buaon As Integer，Shift As Integer，X As Single，Y As Single)End Sub关于以上定义，以下叙述中错误的是( )。
单选题以下不能触发滚动条Change事件的操作是( )。
单选题编写如下程序：Function Fun1(ByVal a As Integer, b As Integer) As Integer a = b + a b = 2 * a Fun1 = bEnd FunctionPrivate Sub Command1_Click() Dim x As Integer x = 5 Print Fun1(Fun1(x, x - 1), x - 2)End Sub程序运行后，单击命令按钮Command1，输出结果为
单选题设窗体上有一个名称为Timerl的计时器控件，其Interval属性被设置为500，Enabled属性被设置为True；还有一个名称为Textl的文本框和下面的事件过程：Private Sub Timer1_Timer()Static x As Longx=x+1Text1=xEnd Sub程序运行一段时间后，文本框中显示的是100，则表示( )。
单选题以下语句执行时，从键盘上输入Zhang，执行结果是______。 Dim a As String a=InputBox("Input"，""，"Name") Print a