单选题以下数据结构中，属于非线性数据结构的是( )。
单选题利用Open语句打开文件时，若省去For[模式]，默认的模式是( )。
单选题模块独立性是软件模块化所提出的要求，衡量模块独立性的度量标准是模块的( ) A) 抽象和信息隐蔽 B) 局部化和封装化 C) 内聚性和耦合性 D) 激活机制和控制方法
单选题窗体上有一个名称为Line1的直线控件，并有如下程序：Dim down As Boolean, x1%, y1%Private Sub Form_Load() Line1.Visible = False down = FalseEnd SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then down = True x1 = X ： y1 = Y End IfEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then down = False Line1.x1 = x1 ： Line1.y1 = y1 Line1.x2 = X ： Line1.y2 = Y Line1.Visible = True End IfEnd Sub运行程序，按下鼠标左键不放，移动鼠标到窗体其他位置处放开左键，则产生的结果是
单选题为了使标签Label1透明且不具有边框，以下正确的属性设置是
单选题下面关于控件数组的叙述中正确的是( )。
单选题设有如下的记录类型： TypeStudent number As String name AS String age As Integer End Type 则正确引用该记录类型变量的代码是( )。
单选题在窗体上画一个名为List1的列表框、一个名为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是______。 A) Private Sub List1_Click() Label1. Caption=List1. ListIndex End Sub B) Private Sub List1_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
单选题下列程序段的执行结果为（ ）。
I=4
x=5
Do
I=I+1
x=x+2
Loop Until I＞=7
Print"I="；I
Print"X="；x
单选题函数UCase("basic")的值为______。
单选题若变量a未事先定义而直接使用(例如：a＝0)，则变量a的类型是( )。
单选题要使标签中的文本靠右显示，应将其Aliganent属性设置为______。
单选题执行了下面的程序后，组合框中数据项的值是
____
。
Private Sub Form_Click()
For i=1 To 6
Combol.AddItem i
Next i
For i=1 To 3
Comool.RemoveItem i
Next i
End Sub
单选题在窗体中添加一个命令按钮和一个文本框，并编写如下程序代码： Private Sub Command1_Click() k=0 Do While k ＜ 70 k=k+2 k=k*k+k a=a+k Loop Text1．Text=a End Sub 程序运行后，文本框中显示的是
单选题栈和队列的共同点是{{U}} {{/U}}。
A. 都是先进先出
B. 都是先进后出
C. 只允许在端点处插入和删除元素
D. 没有共同特点
单选题为了使窗体左上角不显示控制框，需设置为False的属性是______。
单选题阅读下列程序：
Dim SW As Boolean
Function func(X As Integer)As Integer
If X＜20 Then
Y=X
Else
Y=20+X
End If
func=Y
End Function
Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single， Y As Single)
SW=False
End Sub
Private Sub Form_MouseUp(Button As Integer，Shift As Integer，X As Single， Y As Single)
SW=True
End Sub
Private Sub Command1_Click()
Dim intNum As Integer
intNum=InputBox(" ")
If SW Then
Print func(intNum)
End If
End Sub
程序运行后，单击一次窗体，再单击命令按钮，将显示一个输入对话框，如果在对话框中输入20，则程序的输出结果为
单选题编写如下程序：
Private Sub Command1_Click()
Dim a(3,3)As Integer
Dim s As Integer
For i=1 To 3
For j=1 To 3
a(i,j)=i*j+i
Next j
Next j
s=0
For i=1 To 3
s=s+a(i,4-i)
Next i
Print s
End Sub
程序运行后，单击命令按钮Command1，输出结果为______。
单选题某人在窗体上画了一个名称为Timer1的计时器和一个名称为Labe11的标签，计时器的属性设置为Enabled=True，Interval=0，并编程如下。希望在程序运行时，可以每2秒在标签上显示一次系统当前时间。 Private Sub Timer1_Timer() Labe11.Caption=Time＄ End Sub 在程序执行时发现未能实现上述目的，那么，应作的修改是( )。 A) 通过属性窗口把计时器的Interval属性设置为2000 B) 通过属性窗口把计时器的Enabled属性设置为False C) 把事件过程中的Labe11.Caption=Time＄语句改为Timer1.Interval=Time＄ D) 把事件过程中的Labe11.Caption=Time$语句改为Labe11.Caption=Timer1.Time
单选题假定编写了如下通用过程：Sub Sp(x, y) y = 1 For i = 1 To x y = y * i Next iEnd Sub在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() m = 0 a = 0 For i = 1 To 3 Sp i, a m = m + a Next i Print mEnd Sub运行程序，单击命令按钮，输出结果是