单选题设有以下函数过程 Private Function Fun(a()As Integer,b As String) As Integer End Function 若已有变量声明： Dim x(8)As Integer,n As Integer,m As String 则下面正确的过程调用语句是______。 A) x(0)=Fun(x,"m")B) n=Fun(n,m) C) Call Fun x, "m"D) n=Fun(x(8) ,m)
单选题假定建立了一个名为Command1的命令按钮数组，则以下说法中错误的是( )。
单选题能够将Picture对象Picl加载当前目录中的face.bmp的语句是
单选题树是节点的集合，它的根节点数目是
A. 有且只有1
B. 1或多于1
C. 0或1
D. 至少2
单选题编写如下事件过程。 Private Sub Form_KeyDown(KeyCode As
Integer, Shift As Integer) Print Chr(KeyCode)
End Sub Private Sub Form_KeyPress(KeyAscii As
Integer) Print Chr(KeyAscii) End Sub
在一般情况下(即不按住Shift键和锁定大写键时)运行程序，若按T键，则程序输出的结果是{{U}} {{/U}}。
A. T T
B. t T
C. T C
D. t t
单选题若在Shape控件内以FillStyle属性所指定的图案填充区域，而填充图案的线条的颜色由FillColor属性指定，非线条的区域由BackStyle属性填充，则应 ______。
单选题在窗体上画一个名称为Drivel的驱动器列表框，一个名称为Dirl的目录列表框，一个名称为Filel的文件列表框，两个名称分别为Label1、Label2、标题分别为空白和“共有文件”的标签。编写程序，使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签Labell中显示当前文件夹中文件的数量。如图所示。能够正确实现上述功能的程序是
单选题设通用对话框的名称为CommonDialog1，执行语句CommonDialog1. Action = 3，则打开的对话框是______。
单选题下列有关数据库的描述，正确的是( )。
单选题设有语句 Open "c：/Test. Dat" For Output
As#1则以下错误的叙述是______。
A. 该语句打开C盘根目录下一个已经存在的文件Test.Dat
B. 该语句在C盘根目录下建立一个名为Test.Dat的文件
C. 该语句建立的文件的文件号为1
D. 执行该语句后，就可以通过Print#句向文件Test.Dat中写入信息
单选题某人设计了如下程序用于计算并输出7!(7的阶乘) Private Sub Command1_Click() t=0 For k=7 To 2 Step-1 t=t*k Next Prite t End Sub 执行程序时，发现结果是错误的。下面的修改方案中能够得到正确的是
单选题只有将组合框的Style属性值设置为{{U}} {{/U}}时，才能触发Db1Click事件。
A. 0
B. 1
C. 2
D. 3
单选题如果在列表框List1中没有选中项目，则List1．ListIndex的值为( )。
单选题阅读程序：
Sub subP(b()As Integer)
For i=1 To 4
b(i)=2*i
Next i
End Sub
Private Sub Command1_Click()
Dim a(1 To 4)As Integer
a (1)=5
a (2)=6
a (3)=7
a (4)=8
subP a()
For i=1 To 4
Print a(i)
Next i
End Sub
运行以上程序，单击命令按钮，输出结果为______ 。
单选题设x = 7，y = 9，则以下表达式值为真的是________。 (A) x ＞ = y And y ＞ 10 (B) x ＞ y Or y ＞ 0 (C) x ＜ 0 Eqv y ＞ 0 (D) -2 + 4 ＞ x And y ＞ 0
单选题窗体上有一个名称为Cb1的组合框，程序运行后，为了输出选中的列表项，应使用的语句是______。
单选题多分支选择结构的Case语句中“变量值列表”不能是( )。
单选题下列是Visual Basic中所允许的形式数是( )。
单选题公司中有多个部门和多名职员，每个职员只能属于一个部门，一个部门可以有多名职员。则实体部门和职员间的联系是
单选题现有如下程序：
Private Sub Command1_Click()
s=0
For i = 1 To 5
s = s + f(5+i)
Next
Print s
End Sub
Public Function f(x As Integer)
If x ＞ = 10 Then
t=x+1
Else
t=x+2
End If
f=t
End Function
运行程序，则窗体上显示的是
____
。