单选题设有如下程序： Private Sub Form_Load() Show Dim b()As Variant Dim n As Integer b=Array(21, 64, 92, 15, 72, 38, 45, 72) Call search(b，45，n) Print n End Sub Private Sub search(a()As Variant, ByVal key As Variant, index%) Dim i % For i=LBound(a)To UBound(a) If key=a(i) Then index=i Exit Sub End If Next i index=-1 End Sub 程序运行后，输出结果是______。 A) 2 B) 6 C) 10 D) 12
单选题下面程序在调试时出现了死循环。
Private Sub Command1_Click()
n=InputBox("请输入一个整数")
Do
If n Mod 2=0 Then
n=n+1
Else
n=n+2
Else If
Loop Until n=1000
End Sub
下面关于死循环的叙述中正确的是______。
单选题组合框控件是将( )组合成一个控件。 A) 列表框控件和文本框控件 B) 标签控件和列表框控件 C) 标签控件和文本框控件 D) 复选框控件和选项按钮控件
单选题设有如下程序段： Dim a(10) For Each x In a Print x： Next x 在上面的程序段中，变量x必须是______。 A) 整型变量 B) 变体型变量 C) 动态数组 D) 静态数组
单选题某人编写了一个能够返回数组a中10个数中最大数的函数过程，代码如下：
Function MaxValue(a()As Integer)As Integer
Dim max%
max=1
For k=2 To 10
If a(k)＞a(max)Then
max=k
End If
Next k
MaxValue=max
End Function
程序运行时，发现函数过程的返回值是错的，需要修改，下面的修改方案中正确的是______。
单选题要把名为Form1的窗体从内存中卸载，应使用语句
____
。
单选题有如下事件过程： Private Sub Commandl_Click() b=10 Do Until b=-1 a=InputBox(“请输入a的值”) a=Val(a) b=InputBox(“请输入b的值”) b=Val(b) a=a*b Loop Pdnt a End Sub 程序运行后，依次输入数值30，20，10，-1，输出结果为( )。
单选题以下程序的功能是随机产生10个两位的整数： Option Base 1 Private Sub Command 1_Click() Dim a(10)As Integer，i As Integer Randomize For i=1 To 10 a(i)=Int(Rnd*100)+1：Print a(i) Next i End Sub 运行以上程序，发现有错误，需要对产生随机数的语句进行修改。以下正确的修改是
单选题下列叙述中正确的是
单选题在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim m As Integer,n As Integer,p As Integer
m=3:n=5:p=0
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
程序运行后，如果单击命令按钮，则在窗体上显示的内容是______。
单选题对于能够获得焦点的控件，若要使其不能接收焦点，应该
单选题下列Sub 过程中描述错误的是______ 。
单选题阅读程序： Private Sub Form_Click() a=0 For j=1 To 15 a=a+j Mod 3 Next j Print a End Sub 程序运行后，单击窗体，输出结果是( )。 A) 105 B) 1 C) 120 D) 15
单选题栈和队列______。 A) 共同之处在于二者都是先进先出的特殊的线性表 B) 共同之处在于二者都是先进后出的特殊的线性表 C) 共同之处在于二者都只允许在顶端执行删除操作 D) 没有共同之处
单选题产生100以内(不含100)2位随机整数的Visual Basic表达式是
单选题假定有一个菜单，名为Menultem，为了运行时使该菜单项失效，应使用的语句为( )
单选题在文本框Textl中输入一个键盘键，将会发生4个事件，这4个事件的顺序是( )。
单选题窗体上已有1个名称为Picture1的图片框，要求实现下面2个功能之一：(1)在窗体上移动鼠标时，立即将Picture1显示在鼠标位置(2)在窗体上单击鼠标时，立即将Picture1显示在鼠标位置下面不能实现上述任何功能的事件过程是
单选题设有如下通用过程：
Public Function Fun(xStr As String)
Dim tStr As String, srtL As Integer
tStr""
strL=Len(xStr)
i=1
Do While i＜=strL/2
tStr=tStr & Mid(xStr,i,1)&Mid
(xStr,strL-i+1,1)
i=i+1
Loop
Fun=tStr
End Function
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程：
Private Sub Command1_Click()
Dim S1 As String
S1="abcdef"
Text1.Text=UCase(Fun(S1))
End Sub
程序运行后，单击命令按钮，则Text1中显示的是______。
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Option Base 1 Private Sub Command1_Click() Dim a a=Array(1,2,3,4,5) For i=1 To UBound(a) a(i)=a(i)+i-1 Next Print a(3) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是( )。