单选题线性表进行二分法查找，其前提条件是______。
单选题InputBox函数返回值的类型为( )。
单选题在用Open语句打开文件时，如果省略"For方式”，则打开的文件的存取方式是{{U}} {{/U}}。
A.顺序输入方式
B.顺序输出方式
C.随机存取方式
D.二进制方式
单选题某人在窗体上画了一个名称为Timer1的计时器和一个名称为Label1的标签，计时器的属性设置为Enabled=True，Interval=0，并编程如下。希望在程序运行时，可以每2秒在标签上显示一次系统当前时间。
Private Sub Timer1_Timer()
Label1.Caption=Time＄ End Sub
在程序执行时发现未能实现上述目的，那么，应做的修改是{{U}} {{/U}}。
A.通过属性窗口把计时器的Interval属性设置为2000
B.通过属性窗口把计时器的Enabled属性设置为False
C.把事件过程中的Label1.Caption=TimeS语句改为Timer1.Interval=Time＄
D.把事件过程中的Label1.Caphon=TimeS语句改为Label1.Caption=Timer1.Time
单选题用窗体的__________属性来设置窗体的标题。
单选题窗体上有一个名称为VScroll1的垂直滚动条，为了设定单击滚动条两端箭头时的Value增量值，应设置的属性是
单选题检查软件产品是否符合需求定义的过程称为( )。
单选题为了使图片框的大小可以自动适应图片的尺寸，则应 ______。
A. 将其Autosize属性值设置为True
B. 将其Autosize属性值设置为False
C. 将其Stretch属性值设置为True
D. 将其Stretch属性值设置为False
单选题把数学表达式表示为正确的VB表达式应该是()。
单选题在窗体上画一个命令按钮(名称为Command1)，并编写如下代码：
Function Fun1(ByVal a As Integer,b As Integer)As Integer
Dim t As Integer
t=a-b
b=t+a
Fun1=t+b
End Function
Private Sub Command1_Click()
Dim x As Integer
x=10
Print Fun1(Fun1(x,(Fun1(x, x-1))), x-1)
End Sub
程序运行后，单击命令按钮，输出结果是______。
单选题建立一个新的标准模块，应该选择哪个菜单下的“添加模块”命令?
单选题执行x$=InputBox("请输入x的值")时，在弹出的对话框中输入123，在列表框List1中选中一个列表项(数据为456)，使结果为123456的语句是______。
单选题为清除PietureBox控件中的图形，下列方法正确的是 ( )
单选题在窗体上画一个Timer1计时器控件和一个Shape1形状控件，并编写如下程序Private Sub Form_Load()Timer1．Interval=1000Timer1．Enabled=TmeEnd SubPrivate Sub Timer1_Timer()If Shape1．Shape=1 ThenShape1．Shape=3ElseShape1．Shape=1End IfEnd Sub运行程序，则看到的结果是
单选题设有如下数组定义语句： Dim a(一1 To 4，3)As Integer 以下叙述中正确的是
单选题在窗体中添加一个名称为Command1的命令按钮和一个名称为text1的文本框，然后编写如下程序；
{{U}} {{/U}} Private Sub Commandl_Click()
Dim x，y，z As Integer x=5：y＝7：z=O
Text1．Text="" Call Pl(x，y，z) Text1.
Text＝Str(z) End Sub Sub P1(ByVal a As Integer,
ByVal b As Integer, c As Integer) c=a+b End
Sub
A. 0
B. 12
C. Str(z)
D. 没有显示
单选题在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下事件过程： Private Sub Command1_Click() Counter=0 For i=1 To 4 For j=6 To 1 Step -2 Counter=Counter+1 Next j Next i Label1.Caption=Str(Counter) End Sub 程序运行后，单击命令按钮，标签中显示的内容是
单选题在窗体上有文本框Text1和命令按钮Command1，并有如下事件过程： Private Sub Command1_Click() Dim i As Integer, n As Integer For j=0 To 50 i=i+3 n=n+1 If i＞10 Then Exit For Next Text1.Text=Str(n) End Sub
单选题有如下过程代码： Sub vat dim() Static numa As Integer Dim numb As Integer numa=numa+2：numb=numb+1：print numa；numb End Sub 连续3次调用var_dim过程，第3次调用时的输出是