单选题使用通用对话框控件打开字体对话框时，如果要在字体对话框中列出可用的屏幕字体和打印字体，必须设置通用对话框控件的Flags属性为____。
单选题窗体上有一个名称为VScrolll的垂直滚动条，为了设定单击滚动条两端箭头时的Value增量值，应设置的属性是
单选题以下能判断是否到达文件尾的函数是
单选题某人编写了如下程序，用来求10个整数(整数从键盘输入)中的最大值：Private Sub Command1_Click() Dim a(10)As Integer， max As Integer For k＝1 To 10 a(k)＝InputBox("输入一个整数") Next k max＝0 For k＝1 To 10 If a(k)>max Then max＝a(k) End If Next k Print maxEnd Sub运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的，程序需要修改。下面的修改中可以得到正确运行结果的是( )。
单选题在窗体上画一个名称为Listl的列表框，然后编写如下程序： Private Sub Form_Click() For i=l To 10 Item=“Item”&i Listl．AddItem Item Next i End Sub程序运行时，单击窗体，所完成的功能是( )。
单选题下列能判断是否到达文件尾的函数是( )。
单选题下面的数组声明语句中正确的是______________。
A.Dim A[3,4]As Integer
B.Dim A(3,4)As Integer
C.Dim A[3;4]As Integer
D.Dim A(3;4)As Integer
单选题一个工程中包含两个名称分别为Forml、Form2的窗体，一个名称为mdlFunc的标准模块。假定在Forml、Form2和md1Func中分别建立了自定义过程，其定义格式为： Form1中定义的过程： Private Sub frmFunctionl() ... End Sub Form2中定义的过程： Public Sub frmFunction2() ... End Sub md1Func中定义的过程： Public Sub mdlFunction() ... End Sub 在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是
单选题运行下列程序，按下回车键后输出结果为__________。 Option
Base 1 Private Sub Form_KeyPress(KeyAscii As
Integer) a=Array(237,126,87,48,498)
m1=a(1) m2=1 If
KeyAscii=13 Then For i=2 To 5 If
a(i)＞m1 Then m1=a(i)
m2=i End If Next
i End If Print m1
Print m2 End Sub
A.48 4
B.237 1
C.498 5
D.498 4
单选题编写如下程序： Private Sub Form_Click() Print”Welcome!” End Sub Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As S ingle，Y As Single) Print”欢迎!” End Sub Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single，Y As Single) Print”热烈欢迎!” End Sub 程序运行后，单击窗体，输出结果为
单选题设a=2,b=3,c=4,下列表达式的值是【 】
Not aa+c
单选题在窗体上画一个名称为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
此程序计算并输出一个表达式的值，该表达式是______。
单选题对于含有多个窗体的工程而言，以下叙述中正确的是
单选题假定程序中有以下语句： answer=MsgBox("String1",,"String2","String3",2) 执行该语句后，将显示一个信息框，此时如果单击“确定”按钮，则answer的值为______。 A) String1 B) String2 C) String3 D) 1
单选题在窗体上添加一命令按纽，其名为Command1，然后编写代码如下： Private Sub Command1_Click() Dim arr (5)As Integer Dim arrl (5)As Integer n=3 For i=1 To 5 Arr (i)=i Arrl (n)=2*n+ i Next i Print arrl (n)；arr (n) End Sub 程序的运行结果为：______。
单选题以下关于VB程序模块的描述中正确的是________。
单选题下列关于DO…Loop语句的叙述不正确的是( )。
单选题已知有下面的过程： Private Sub proc1(a As Integer, b As String, Optional x As Boolean) End Sub 正确调用此过程的语句是
单选题执行x$=InputBox("请输入x的值")时，在弹出的对话框中输入123，在列表框List1选中1个列表项(数据为456)，使有的值使123456的语句是
单选题能够存放组合框的所有项目内容的属性是( )。