单选题下面的程序执行完毕后，组合框中数据项的值是( )。 Private Sub Form_Click() For i=1 To 6 Combo1．Addltem i Next i For i=1 To 3 Combo 1．Removeltem i Next i End Sub
单选题在窗体上画一个命令按钮(其名称为Command1)，然后编写如下代码：
Private Sub Command1_Click()
Dim a
a=Array(1,2,3,4)
i=3: j=1
Do While i＞=0
s=s+a(i)*j
i=i-1
j=j*10
Loop
Print s
End Sub
运行上面的程序，单击命令按钮，则输出结果是______。
单选题下列程序段的执行结果为( )。a=0：b=1Doa=a+b：b=b+lLoop While a＜10Print a：b
单选题设有如下通用过程： Public Function Fun(xStr As String) As
String Dim tStr As String, strL 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中显示的是
A. ABCDEF
B. abcdef
C. AFBECD
D. DEFABC
单选题假定有下表所列的菜单结构： 标题 名称 层次 显示 appear 1(主菜单) 大图标 bigicon 2(子菜单) 小图标 smallicon 2(子菜单) 要求程序运行后，如果单击菜单项“大图标”，则在该菜单项前添加一个“√”。以下正确的事件过程是
单选题窗体上有名称为Command1的命令按钮，名称分别为List1、List2的列表框，其中List1的MultiSelect属性设置为1(Simple)，并有如下事件过程：
Private Sub Command1_Click( )
For i =0 To List1. ListCount - 1
If List1. Selected(i) = True Then
List2. Additem Text
End ff
Next
End Sub
上述事件过程的功能是将List1中被选中的列表项添加到List2中。运行程序时，发现不能达到预期目的，应做修改，下列修改中正确的是
____
。
单选题VB集成开发环境有三种工作状态，不属于三种工作状态之一的是________。
A. 设计状态
B. 编写代码状态
C. 运行状态
D. 中断状态
单选题下列关于菜单的描述中错误的是( )。
单选题数据库系统在其内部具有3级模式，用来描述数据库中全体数据的全局逻辑结构和特性的是( )。
单选题在窗体上画一个列表框，名称为List1，然后编写如下事件过程：
Private Sub Form_Load( )
For i = 1 To 6
List1.AddItem i
Next i
For i = 1 To 3
List1. RemoveItem i
Next i
End Sub
运行程序，在列表框中显示的数据项是______。
单选题下列程序段的执行结果为______。 A="abcd" B="bcde" E=Right(A，3) F=Mid(B，2，3) If E＜F Then Print E+ F Else Print F+E
单选题设有分段函数：
单选题假定有以下两个过程： Private Sub PPP(aAsSingle，b As Single) a=a+b Printa,b b=a+b Printa,b End Sub Private Sub Form_Activate( ) x=18 Call PPP((x)，(x)) PrintX： End Sub 则以下说法中不正确的是( )。
单选题Private Function f(y As Integer) f＝y * yEnd Function运行上述程序，如下叙述中正确的是( )。
单选题现有诰句：y=llf(x>0，x Mod 3，0) 设x=10，则y的值是( )。
单选题在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：
Private Sub Command1_Click()
Dim Arr1(10),arr2(10)As Integer
n=3
For i=1 To 5
Arr1(i)=i
arr2(n)=2*n+i
Next i
Print arr2(n);Arr1(n)
End Sub
程序运行后，单击命令按钮，输出结果是
单选题窗体上有一个名称为Text1的文本框，一个名称为Commandl的命令按钮。窗体文件的程序如下：
Private Type x a As Integer b As
Integer End Type Private Sub
Commandl_Click() Dim y As x
y.a=lnputBox("") If y.a/2 =y.a/2 Then
y.b=y.a*y.a Else y.b=Fix(y.a/2)
End If Text1.Text=y.b End Sub
对以上程序，下列叙述中错误的是______。
A.x是用户定义的类型
B.InputBox函数弹出的对话框中没有提示信息
C.若输入的是偶数，y.b的值为该偶数的平方
D.Fix(y.a/2)把y.a/2的小数部分四舍五入，转换为整数返回
单选题单击命令按钮执行以下程序，则输出结果为( )。 Private Sub Command1_Click() Dim x As Integer，y As Integer x=14：y=48：Call Proc(x，y) Print x；y End Sub Public Sub Proc(nAs Integer，ByVal m As Integer) n=n Mod 10：m=m MOd 10 End Sub
单选题关于创建通用过程的方法叙述正确的是______。
单选题如果执行一个语句后弹出如图所示的窗口，则这个语句是()A．InputBox("输入框","请输入VB数据")B．x=InputBox("输入框","请输入VB数据")C．InputBox("请输入VB数据"，"输入框")D．x=InputBox("请输入VB数据"，"输入框")