单选题在用通用对话框控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件(即．txt文件)，则正确的描述格式是
单选题在窗体上画一个命令按钮，并编写如下事件过程： Private Sub Command1_Click() Dim a(3，3) For m=1 To 3 For n=1 To 3 If n=m Or n=4-m Then a(m，n)=m+n Else a(m，n)=0 End If Print a(m，n)； Next n Print Next m End Sub 运行程序，单击命令按钮，窗体上显示的内容为______。 A) 2 0 0 0 4 0 0 0 6 B) 2 0 4 0 4 0 4 0 6 C) 2 3 0 3 4 0 0 0 6 D) 2 0 0 0 4 5 0 5 6
单选题Fibonacci数列的规律是：前2个数为1，从第3个数开始，每个数是它前2个数之和，即1，1，2，3，5，8，13，21，34，55，89，…某人编写了下面的函数，判断大于1的整数X是否是Fibonacci数列中的某个数，若是，则返回True，否则返回False。
Function Isfab(x As Integer)As Boolean
Dim ii As Integer，b As Integer，C As Integer，flag As Boolean
flag=False
a=1：b=1
Do While x c=a+b
a=b
b=c
If x=b Then flag=True
Loop
Isfab=flag
End Function
测试时发现对于所有正整数X，函数都返回False，程序需要修改。下面的修改方案中正确的是( )。
单选题在关系数据库中，用来表示实体之间联系的是______。 A) 二维表 B) E-R图 C) 元组 D) 文件
单选题Visual Basic集成环境由若干窗口组成，其中不能隐藏(关闭)的窗口是______。
单选题设有下面的语句：Print IIf(x>0，1，IIf(x<0，-1，0))与此语句输出结果不同的程序段是
单选题有三个关系R，S和T如下，其中T由R和S通过某种操作得到，该操作为______。
R
A
B
C
a
1
2
b
2
1
c
3
1
S
A
B
C
d
3
2
T
A
B
C
a
1
2
b
2
1
C
3
1
d
3
2
单选题程序运行时，用户向文本框输入内容时．将触发文本框的( )事件 A．Click B．DblClick C．GotFocus D．Change
单选题窗体上有1个名称为Text1的文本框；1个名称为Timerl的计时器控件，其Interval属性值为5000，Enabled属性值是True。Timer1的事件过程如下：
Private Sub Timer1_Timer()
Static flag As Integer
If flag=0 Then flag=1
flag=-flag
If flag=1 Then
Text1. ForeColor=&HFF& "&HFF&为红色
Else
Text1. ForeColor=&HC000& "&HC000&为绿色
End If
End Sub
以下叙述中正确的是______。
单选题模拟方形骰子投掷的表达式是( )。
单选题阅读程序： 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 运行上面的程序，单击命令按钮，输出结果为
单选题设工程中有2个窗体：Form1和Form2，Form1为启动窗体。Form2中有菜单，其结构如下表所示。要求在程序运行时，在Form1的文本框Text1中输入口令并按Enter键(回车键的ASCII码为13)后，隐藏Form1，显示Form2。若口令为“Teacher”，所有菜单都可见；否则看不到“成绩录入”菜单项。为此，某人在Form1窗体文件中编写如下程序：
菜单结构
标题
名称
级别
成绩管理
mark
1
成绩查询
query
2
成绩录入
input
2
Private Sub Text1 1_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then
If Text1.Text="Teaeher" Then
Form2.input.Visible=True
Else
Form2.input.Visible=False
End If
End If
Form1.Hide
Form2.Show
End Sub
程序运行时发现刚输入口令时就隐藏了Form1，显示了Form2，程序需要修改。下面修改方案中正确的是______。
单选题在窗体上有一个命令按钮Command1，通用过程fun和命令按钮的事件过程如下： Private Function fun(ByVal m As Integer) If m Mod 2 = 0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_Cliek() Dim i As Integer, s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，则窗体上输出( )。
单选题确定图片框Picture1在窗体上位置的属性是( )。
单选题下列程序执行后，其输出结果为{{U}} {{/U}}。 Dim
a(5) For i=0 To 4 a(i)=i+1
m=i+1 If m=3 Then a(m-1)=a(i-2)Else a(m)=a(i)
If i=2 Then a(i-1)=a(m-3) a(4)=i Print
a(i); Next i
A. 1 1 1 4 4
B. 1 2 3 4 1
C. 1 2 1 4 4
D. 1 1 1 4 1
单选题要在D盘当前文件夹下建立一个名为InfoBase．dat的顺序文件，应使用的语句是（ ）。
单选题在标准模块中用Public关键字定义的变量，其作用域为
单选题编写如下程序：Private Sub Commandl_Click() Dim m As Integer,n As Integer m=1：n=0 Do While m<20 n=m+n：m=3*m+1 Loop Print m，nEnd Sub程序运行后，单击命令按钮Commandl，输出结果为
单选题有一个名称为Form1的窗体，上面没有控件，设有以下程序(其中方法Pset(X，Y)的功能是在坐标X，Y处画一个点)：
Dim cmdmave As Boolean
Private Sub Form_MouseDown(Button As Integet, Shift As Integer, X As Single, Y As Single)
cmdmave=True
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If cmdmave Then
Form1.Pset(X, Y)
End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdmave=False
End Sub
此程序的功能是______。
单选题窗体上有一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮，并有如下事件过程：
Private Sub Command1_Click()
CommonDialog.DefaultExt="doc"
CommonDialog.FileName="VB.txt"
CommonDialog.Filter="All(*.*)|*.*|Word|.Doc|"
CommonDialog.FilterIndex=1
CommonDialog.ShowSave
End Sub
运行上述程序，如下叙述中正确的是______。