单选题在窗体上面一个命令按钮，其名称为Command1，然后编写如下程序： Function Func(ByVal x As Integer，y As Integer) y=x*y If y＞0 Then Func=x Else Func=y End If End Function Private Sub Command1_Click() Dim a As Integer，b As Integer a=3 b=4 c=Func(a，B) Print"a="；a Print"b="；b Print”c="；c End Sub 程序运行后，单击命令按钮，其输出结果为： ______。
单选题在长度为n的有序线性表中进行二分查找，最坏情况下需要比较的次数是( )。
单选题设a、b都是自然数，为求a除以b的余数，某人编写了以下函数：
Eunction fun(a As Integer，b As Integer)
While a>b
a=a—b
Wend
fun=a
End Function
在调试时发现函数是错误的。为使函数能产生正确的返回值，应做的修改是( )。
单选题设有如下变量声明Dim time1 As Date，为变量time1正确赋值的表达式是________。
单选题下列程序段的执行结果为( )。 a=0：b=1 Do a=a+b：b=b+1 Loop While a<10 Print a=b
单选题窗体上有1个名称为Command1的命令按钮，事件过程如下： Private Sub Command1_Click() Dim x％，y％，z％ x=InputBox("请输入第1个整数")：y=InputBox("请输入第2个整数") Do Until x=y If x>y Then x=x-y Else y=y-x End if Loop Print x End Sub 运行程序，单击命令按钮，并输入2个整数169和39，则在窗体上显示的内容为
单选题假定有以下函数过程：
Function Fun(S As String)As String
Dim s1 As String
For i=1 To Len(S)
s1=LCase(Mid(S，i，1))+s1
Next i
Fun=s1
End Function
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim Str1 As String，Str2 As String
Str1=InputBox(请输入一个字符串)
Str2=Fun(Str1)
Print Str2
End Sub
程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为______。
单选题以下程序段的输出结果为( ) Dim a(10),p(3) k=5 For i=0 To 10 a(i)=i Next i For i=0 To 2 p(i)=a(i+(i+1)) Next i For i=0 To 2 k=k+p(i)+2 Next i Print k A．20 B．21 C．56 D．32
单选题设a = 3，b = 10，c = 6，以下表达式的值是________。 a ＜ b And (Not b＞c) Or c＜A＜ span＞
单选题以下关于VB特点的叙述中，错误的是
单选题现有由多个单选按钮构成的控件数组，用于区别该控件数组中各控件的属性是（ ）。
单选题下面关于计时器控件的叙述中正确的是( )。
单选题数学式y
2
＞x＞=10在VB中应表示为
单选题将数学表达式cos2(a+b)+5e2写成Visual Basic的表达式，其正确的形式是( )。
单选题在窗体上画一个名称为Command1的命令按钮，编写如下程序： Private Sub Command1_Click() Print p1(3,7) End Sub Public Function p1(x As Single,n As Integer) As Single If n=0 Then p1=1 Else If n Mod 2=1 Then p1=x*x+n Else p1=x*x-n End If End If End Function 程序运行后，单击该命令按钮，屏幕上显示的结果是( )。
单选题有如下程序代码：
Private Sub Form_Click( )
Dim a(100) As Integer
Dim b(100) As Integer
For i = 1 To 100
a(i) = i
Next i
For i = 1 To 100
b(i) = a(i) + a(i - 1)
Next i
End Sub
运行程序，单击窗体，以下说法中正确的是______。
单选题窗体上有一个名称为Commandl的命令按钮，有程序如下：Option Base 1Private Sub Commandl_Click() Dim a(10)As Integer 第1个For For i=1 To 10 a(i)=Int(Rnd*100+100) Print a(i)； Next x=a(i)：y=x 第2个For For i=1 To 10 Ifx＜a(i)Then x=a(i) Ify＞a(i)Then y=a(i) s=s+a(i) Next Print x，y，sEnd Sub 关于上述程序的叙述中，正确的是
单选题运行下列语句后，在信息提示框内显示的内容是__________。
t=MsgBox("Hello", 64, "Come")
A.Hello
B.64
C.Come
D.没有内容
单选题设窗体上有一个水平滚动条HScrol11和一个命令按钮Command1，及下面的事件过程：PrivateSubForm_Load()PrivateSubCommand1_Click()HScroll1．Min=0HScroll1．Value=70HScroll1．Max=100EndSubEndSub程序运行时单击命令按钮，则滚动条上滚动块位置的图示是
单选题下列程序段的执行结果为( )。 a=1 b=0 Select Case a Case 1 Select Case b Case 0 Print"**1**" Case 1 Print"**1**" End Select Case 2 Print"**2**" End Select