单选题设窗体上有一个通用对话框控件CD1，希望在执行下面程序时，打开如下图所示的文件对话框：PrivateSubCommand1_Click()CD1.DialogTitle="打开文件"CD1.InitDir="C:/"CD1.Filter="所有文件|*.*|Word文档|*.doc|文本文件|*.txt"CD1.FileName=""CD1.Action=1IfCD1.FileName=""ThenPrint"未打开文件"ElsePrint"要打开文件"＆CD1.FileNameEndIfEndSub但实际显示的对话框中列出了C:/下的所有文件和文件夹，“文件类型”一栏中显示的是“所有文件”。下面的修改方案中正确的是()A．把CD1.Action=1改为CD1.Action=2B．把“CD1.FiIter=”后面字符串中的“所有文件”改为“文本文件”C．在语句CD1.Action=1的前面添加：CD1.FilterIndex=3D．把CD1.FileName=""改为CD1.FileName="文本文件/
单选题以下叙述中错误的是______。
A.Sub Main是定义在标准模块中的特定过程
B.一个工程中只能有一个Sub Main过程
C.Sub Main过程不能有返回值
D.当工程中含有Sub Main过程时，工程执行时一定最先执行该过程
单选题鼠标拖放控件要触发两个事件，这两个事件是______。
单选题为了使窗体的大小可以改变，必须把它的BorderStyle属性设置为（ ）
单选题在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a a = Array(1, 2, 3, 4) j = 1 For i = 4 To 1 Step - 1 s = s + a(i) * j j = j * 10 Next i Print s End Sub 程序运行后，单击命令按钮，其输出结果是( )。 A) 4321 B) 1234 C) 34 D) 12
单选题下列叙述中正确的是( )。
单选题下列程序运行时输出的结果是{{U}} {{/U}}。 Private Sub
Form_Click( ) Dim a
a=Array(“天天向上”，“清华大学”，“夭长地久”，“程序设计”) For i=LBound(a,1) to
UBound(a,1) If Left(a(i),1)="天"Then Print a(i):
Next End Sub
A. 天天向上
B. 天天向上天长地久
C. 出错信息
D. 天天向上清华大学天长地久程序设计
单选题关于随机文件，以下叙述中错误的是______。
A.使用随机文件能节约空间
B.随机文件记录中，每个字段的长度是固定的
C.随机文件中，每个记录的长度相等
D.)随机文件的每个记录都有一个记录号
单选题设在工程文件中有一个标准模块，其中定义了下列记录类型： Type Books Name As String*10 TelNum As String*20 End Type 在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1 Click时，在顺序文件Person.txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是( ) A．Private Sub Command1_Click() Dim B AS Books Open"Person txt" For Output As#1 B.Name=InputBox("输入姓名") B.TelNum=InputBox("输入电话号码") Write#1 B Narne,B TelNum Close#1 End Sub B．Private Sub Command1_Click() Dim B AS Books Open"Person txt"For Input As#1 B.Name=InputBox("输入姓名") B.TelNum=InputBox("输入电话号码") Print#1,B.Name,B.TelNam Close#l End Sub C．Private Sub Command1_Click() Dim BAS Books Open"Person txt"For Output As#1 B.Name=InputBox("输入姓名") B.TelNum=InputBox("输入电话号码") Write#1,B Close#1 End Sub D．Private Sub Command1_Click() Open"Person txt"For Input As#1 Name=InputBox("输入姓名") TelNum=InputBox("输入电话号码") Prim#1 Name TelNum Close#1 End Sub
单选题某人编写了下面的程序，希望能把Text1文本框中的内容写到out.txt文件中：
Privme Sub Command1_Click()
Open "out.txt" For Output As #2
Print "Text1"
Close #2
End Sub
调试时发现没有达到目的，为实现上述目的，应做的修改是______。
单选题假定程序中有如下语句：
answer=MsgBox("第一个字符串",vbAbortRetryIgnore Or vbCritical_
Or vbDefaultButton3,"第二个字符串")
执行该语句后，将显示一个信息框，此时如果按回车键，则answer的值为
单选题若要获得滚动条的当前值，可访问的属性是______。 A) Text B) Value C) Max D) Min
单选题若变量a未事先定义而直接使用(例如：a=0)，则变量a的类型是______。
单选题删除C盘根目录所有txt文件的命令是______。
单选题为使标题栏上的这两个按钮消失，而保留其他按钮，没置窗体属性时，正确的是
单选题有如下事件过程：
Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer)
If(Button And 3)=3 Then
Print"OK"
End If
End Sub
程序运行后，为了在窗体上输出“OK”，应当按下的鼠标键是 （ ）。
单选题属性 BorderColor的作用是（ ）。
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click() Static A As Integer Static B As Integer B=B+3 A=3+A Print A,B End Sub 程序运行时，三次单击命令按钮Command1后，在窗体上显示的第三行是( )。
单选题在窗体上画一个名称为List1的列表框，然后编写如下程序：Private SubForm_Click()For i=1 To 10Item="Item"&i：List1．AddItemItemNext iEnd Sub程序运行时，单击窗体，所完成的功能是
单选题数据库技术的根本目标是要解决数据的