单选题以下能从字符串“VisualBasic”中直接取出子字符串“Basic”的函数是( )。
单选题定义有5个整数型元素的数组，正确的语句是______。
A. Dim a(4)As Integer
B. Option Base 1：Dim a(5)
C. Dim a&(5)
D. Dime a(5)As Integer
单选题单击命令按钮时，下列程序的执行结果为 Private Sub
Command1_Click( ) Dim x As Integer，y
As Integer x=50：y=78
Call PPP(x，y) Print
x；y End Sub Public
Sub PPP(ByVM n As Integer，ByVal m As Integer)
n=n/l0 m=m/l0
End Sub
A.08
B.50 78
C.450
D.78 50
单选题设窗体上有一个水平滚动条HScroll1和一个命令按钮Command1，及下面的事件过程：PrivateSubForm_Load()HScroll1.Min=0HScroll1.Max=100EndSubPrivateSubCommand1_Click()HScroll1.Value=70EndSub程序运行时单击命令按钮，则滚动条上滚动块位置的图示是______。A．B．C．D．
单选题在窗体上画一个名称为Command1的命令按钮，并编写以下程序： Private Sub Command1_Click() Dim n%,b,t t=1:b=1:n=2 Do b=b*n:t=t+b:n=n+1 Loop Until n＞9 Print t End Sub 此程序计算并输出一个表达式的值，该表达式是
单选题设有如下数组定义语句： Dim a(-1 To 4，3)As Integer 以下叙述中正确的是
单选题判断单选按钮是否被选中的属性为
单选题假定有如下的Sub过程：Sub S(x As Single，y As Single)t=x：x=t／yy=t Mod YEnd Sub在窗体上画一个命令按钮，然后编写如下事件过程：Privme Sub Command1 Click()Dim a As Single，Dim b As Singlea=5：b=4：S a，bPrint a，bEnd Sub程序运行后，单击命令按钮，输出结果为( )。
单选题下面( )不是VB的文件系统控件。
单选题在窗体上画一个名称为List1的列表框、一个名称为Labell的标签，列表框中显示若干城市名称。当单击列表框中的某个城市名时，该城市名从列表框中消失，并在标签中显示出来。下列能正确实现上述操作的程序是( )。 A) Private Sub List1_Click() Label1.Caption=List1.ListIndex List1.RemoveItem List1.Text End Sub B) Private Sub List1_Click() Label1.Name=List1.ListIndex List1.RemoveItem List1.Text End Sub C) Private Sub List1_Click() Label1.Caption=List1.Text List1.RemoveItem List1.ListIndex End Sub D) Private Sub List1_Click() Label1.Name=List1.Text List1.RemoveItem List1.ListIndex End Sub
单选题设有下列二叉树： 对此二义树前序遍历的结果为
单选题能够将组合框Combo1中最后一个数据项删除的语句为( )。
单选题代数式eXSin(30°)2x/(x+y)Inx对应的Visual Basic表达式是( )。
单选题在窗体上添加一命令按钮，其名为Command1，然后编写代码如下：
private Sub Command1_Click()
Dim arr(5)As Integer，arr1(5)AS Integer
n=3
For i=1 To 5
arr(i)=i
arr1(n)=2*n+i
Next
Print arr1(n)；art(n)
End Sub
程序的运行结果为
单选题在运行阶段，要在文本框Text1获得焦点时选中文小框中所有内容，如图所示，对应的事件过程是()。
单选题窗体上有三个水平滚动条，名称分别为HSRed、HSGreen和HSBlue，取值范围均是0～255，代表颜色的三种基色。改变滚动框的位置，可以改变三种基色的值，从而改变窗体的背景色，如下图所示。程序代码如下：Dimcolor(3)AsIntegerPrivateSubForm_Load() Callfill(color())EndSubPrivateSubfill(c()AsInteger) Form1.BackColor＝RGB(c(1)，c(2)，c(3))EndSubPrivateSubHSRed_Change() color(1)＝HSRed.Value Callfill(color())EndSubPrivateSubHSGreen_Change() color(2)＝HSGreen.Value Callfill(color())EndSubPrivateSubHSBlue_Change() color(3)＝HSBlue.Value Callfill(color())EndSub关于以上程序，如下叙述中错误的是( )。
单选题可决定窗体的左上角是否有控制菜单的属性是 ( )
单选题不能正确表示条件“两个整型变量A和B之一为0，但不能同时为0”的布尔表达式是( )。 A) A*B=0 and A+B＜＞0 B) (A=0 or B=0) and (A＜＞0 Or B＜＞0) C) not(A=0 And B=0)and(A=0 or B=0) D) A*B=0 and(A=0 or B=0)
单选题下面程序的功能是输出100以内所有素数：Private Sub Commandl_Click()For n=2 To 100 isprime=True：k=2 Do While k＜=n／2 And___________ If n Mod k=0 Then isorime=False k=k+1 Loop If isprime Then Print n Next nEnd Sub为使上面程序可以实现该功能，程序代码中横线处应填写的代码是
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim x As Integer
Static s As Integer
x=Val(InputBox("请输入一个正整数="))
If x＜5 Then
x=s*x
Else
s=s*x
End If
Print s
End Sub
运行程序，三次单击命令按钮，依次输入5、4、3，最后一次输出的结果是______。