单选题编写如下程序：Private Sub Command1_Click() Dim k As Integer x = 1 For k = 1 To 3 x = x * fun(k) Next k Print xEnd SubFunction fun(x As Integer) As Integer Static a a = a + 1 fun = a * xEnd Function程序运行后，单击命令按钮Command1，输出结果为
单选题当控件的( )属性设置为1时，可进行自动拖放。
单选题为了取消窗体的最大化功能，需要把它的一个属性设置为False，这个属性是
单选题要获得当前驱动器，应使用驱动器列表框的属性是______。 A) Path B) Drive C) Dir D) Pattern
单选题下列叙述正确的是
A. 复选框的Value属性用来表示复选框的状态，它的取值为True或False
B. 复选框的Value属性为True时，表示选中该复选框
C. 复选框的Value属性为False时，表示未选中该复选框
D. 复选框的Value属性有三种取值
单选题编写如下程序：
Private Sub Form_Click()
Print "Welcome!"
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, 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
程序运行后，单击窗体，输出结果为______。
单选题某人编写了向随机文件中写一条记录的程序，代码如下： Type RType Name As
String*10 Tel As String*20 End Type
Private Sub Command1_Click() Dim p As
RType p.Name＝InputBox("姓名") p.Tel＝InputBox("电话号") Open"Books.dat"
For Random As #1 Put #1,,p Close #1 End Sub
该程序运行时有错误，修改的方法是______。
A.在类型定义“Type RType”之前加上“Private”
B.Dim p As RType必须置于窗体模块的声明部分
C.应把Open语句中的For Random 改为 For Output
D.Put语句应该写为Put #1,p.Name,p.Tel
单选题设在窗体上有个文本框，然后编写如下的事件过程： Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer) Const Alt=4 Const Key_F2=&H71 altdown%=(Shift And Alt)＞0 f2down%=(KeyCode=Key_F2) If altdown% And f2down% Then Text1.Text="BBBBB" End If End Sub 上述程序运行后，如果按[Shift+F2]，则在文本框中显示的是
单选题设有以下定义语句： Private Type point x As Integer y As Integer End Type Dim a As point 下面语句中正确的是
单选题设置定时器控件的Interva1属性为2000，Enabled属性为True，并且有下面的事件过程，程序运行时计算机将发出( )次Beep声。 Sub Timer1_Timer() Beep End Sub
单选题数据独立性是数据库技术的重要特点之一。所谓数据独立性是指( )。
单选题设a="a"，b="b"，c="c"，d="d"，执行语句x=Iif((a＜b)Or(c＞d)，"A"，"B")后，x的值为______。(2005年4月)
单选题为了使每秒钟发生一次计时器事件，可以将其Interval属性设置为( )。
单选题在窗体上画一个名称List1的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单
A. Private Sub list1_Click()
Label1. Caption= List1. ListIndex End
Sub
B. Private Sub Listl_Click()
Label1. Name= List1. ListIndex End Sub
C. Private Sub List1_Click()
Label1. Name== List1. Text End Sub
D. Private Sub List1_Click()
Label1. Caption: List1. Text End Sub
单选题两个或两个以上模块之间关联的紧密程度称为
单选题在下列几种排序方法中，要求内存量最大的是( )。 A) 冒泡排序 B) 插入排序和选择排序 C) 归并排序 D) 快速排序
单选题阅读下面的程序： Private Sub Form_Click() Dim m，n As Integer m=InputBox("请输入M的值") m=Val(m) m1=m n=InputBox("请输入N的值") n=Val(n) n1=n Do While n＜＞0 remin=m Mod n m=n n=remin Loop Print m1，n1，m End Sub 程序运行后，单击窗体，在对话框中分别输入16和24，则程序在窗体上的输出结果为
单选题设：a=2，b=8，c=6，d=3，表达式a＞b And Not(c＞D)or d＞c的值是
单选题设窗体上有名称为Option1的单选按钮，且程序中有语句：If Option1．Value=True Then下面语句中与该语句不等价的是
单选题用某种排序方法对序列(25，84，21，47，15，27，68，35，20)进行排序，记录序列的变化情况如下：
15，20，21，25，47，27，68，35，84
15，20，21，25，35，27，47，68，84 15，20，21，25，27，35，47，68，84
则采取的排序方法是______。
A. 直接选择排序
B. 冒泡排序
C. 快速排序
D. 希尔排序