单选题在黑盒测试方法中，设计测试用例的主要根据是( )。
单选题在窗体上画—个名称为Label1的标签，然后编写如下事件过程： Private Sub Form_CIick( ) Dim arr(10，10)As Integer Dim i As Integer，j As Integer For i=2 To 4 For j=2 To 4 srr(i，j)=i*j Next j Next i Label1.Caption=Str(arr(2，2)+arr(3，3)) End Sub 程序运行后，单击窗体，在标签中显示的内容是
单选题下列程序运行后在立即窗口输出结果是( )。 Private Sub Form_Click() x="a":y="b" z=1:u=2 Debug. Print x; y, z; u Debug. Print z; x, y; u End Sub
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
Print "ABCD";
Else
Print "DDDD";
End If
End Sub
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Print "EFGH"
End Sub
程序运行后，单击命令按钮，输出结果是______。
单选题鼠标拖放控件要触发两个事件，这两个事件是______。
A.DragOver事件和DragDrop事件
B.Drag事件和DragDrop事件
C.MouseDown事件和KeyDown事件
D.MouseUp事件和KeyUp事件
单选题在用Open语句打开文件时，如果省略“For方式”，则打开的文件的存取方式是( )。
单选题以下关于局部变量的叙述中错误的是( )。
单选题设窗体上有一个标签Label1和一个计时器Timer1,Timer1的Interval属性被没置为1000，Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是{{U}}
{{/U}}
A.Private Sub Timer1_Timer() Label1.Caption=True
End Sub
B.Private Sub Timer1_Timer() Label1.Caption=Time$
End Sub
C.Private Sub Timer1_Timer() Label1.Interval=1
End Sub
D.Private Sub Timer1_Timer() For k=1 To
Timer1.Interval Label1.Caption=Timer
Next k End Sub
单选题一个工程中包含两个名称分别为Form1、Form2的窗体、一个名称为Func的标准模块。假定在Form1、Form2和Func中分别建立了自定义过程，其定义格式为： Form1中定义的过程： Private Sub Funl() End Sub Form2中定义的过程： Private Sub Fun2() End Sub Func中定义的过程： Private Sub Fun3() End Sub 在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是( )。
单选题关于ExitFor的使用说明正确的是( )。
单选题表示滚动条控件取值范围最大值的属性是
单选题在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程：
Private Sub Form_Load()
List1.AddItem"Item 1"
List1.AddIrem"tem 2"
List1.AddItem"Item 3"
End Sub
Private Sub Command1_Click()
List1.List(List1.Listcount)="AAAA"
End Sub
程序运行后，单击命令按钮，其结果为
单选题有如下程序： Private Sub Command1_Click()
Dim a As Single Dim b As Single a=5:
b=4 Call Sub1(a,b) End Sub
Sub Sub1(x As Single,y As Single) t=X
X=t/y y=t Mod y End Sub
在运行上述程序后，a和b的值分别为{{U}} {{/U}}。
A. 0 0
B. 1 1
C. 2 2
D. 1 2
单选题窗体上有一个名称为Command1的命令按钮，单击该按钮时所实现的功能，是产生10个随机整数，然后从键盘输入一个整数，查找该数在数组中的位置。若找到，输出该数的位置；若没有找到，给出相应的提示。该命令按钮的单击事件过程如下： Private Sub Command1_Click() Dim a(10)As Integer，x As Integer For i=1 To 10 a(i)=Int(Rnd*100) Next x=InputBox("输入100以内的整数：")：p=0 For i=l To 10 If a(i)=x Then P=i：Exit For End If Next Ifp=0 Then Print"没有找到与输入数据相同的数!" Else Print Str(x)+"在数组中的位置是"+Str(p) End If End Sub 对于上述事件过程，以下叙述中正确的是
单选题下面 ______ 不是Visual Basic的数据类型。
A. Single
B. Object
C. Currency
D. Bool
单选题阅读程序：Option Base 1Private Sub Form_Click() Dim a(3，3)As Integer For i=1 To 3 For i=1 To 3 a(i，j)=___________ Print a(i，j)； Nextj Print Next iEnd Sub运行上面的程序，单击窗体，输出结果如下： 1 4 72 5 83 6 9则在横线处应填入的内容为
单选题编写如下程序：Private Sub Commandl_Click() Private Function fun1(ByVal m As Integer， Dim x As Integer,y As Integer n As Integer)As Integer x=10：y=20 m=m*m：n=n+n Call funl(x，y) End Function Print x；yEnd Sub程序运行后，单击命令按钮Com_mandl，输出结果为
单选题在窗体上画4个文本框(如图16-8所示)，并用这4个文本框建立一个控件数组，名称为Text1(下标从0开始，自左至右顺序增大)，然后编写如下事件过程：PrivateSubCommand1_Click()ForEachTextBoxInText1Text1(i)=Text1(i).Indexi=i+1NextEndSub程序运行后，单击命令按钮，4个文本框中显示的内容分别为______。
单选题如果要将文本框作为密码框使用时，应设置的属性为（ ）。
单选题给文件改名的VB语句正确的是( )。