单选题软件危机是软件产业化过程中出现的一种现象，下述现象中
____
是其主要表现。
Ⅰ．软件需求增长难以满足 Ⅱ．软件开发成本提高
Ⅲ．软件开发进度难以控制 Ⅳ．软件质量不易保证
单选题如果执行一个语句后弹出如图所示的窗口，则这个语句是()。
单选题Open语句中For子句的作用是______。
单选题在窗体上绘制一个名称为Labell的标签，然后编写如下事件过程： Private Sub Form_Click() Dim arr(10，10)As Integer Dim i As Integer，j As Integer For i=2 To 4 For j=2 To 4 arr(i，j)=i*j Next i Next i Labell.Caption=Str(arr(2，2)+arr(3，3)) End Sub 程序运行后，单击窗体，在标签中显示的内容是
单选题为使程序运行时通用对话框CDl上显示的标题为“对话框窗口”，若通过程序设置该标题，则应使用的语句是
单选题在窗体上画一个命令按钮，然后编写如下程序： Sub inc(a As Integer)Private Sub Command 1_Click() Static x As Integer inc 2：inc 3：inc 4 x=x+a Print x； End Sub End Sub 程序运行后，第一次单击命令按钮时的输出结果为
单选题下列可以打开随机文件的语句是______。 A) Open"file1.dat" For Input As#1 B) Open"file1.dat"For Append As#1 Len=20 C) Open"file1.dat" For Random As#1 D) Open"file1.dat" For Random As#1 Len=20
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Prirate Sub Command1_Click() s = 0 For i=1 To 13 x = i * i-1 If x Mod 3 = 0 Then s = s + 1 Next i Print s End Sub 程序运行后，单击命令按钮，则窗体中显示的内容是
单选题假定窗体的名称(Name属性)为Form1，则将窗体的标题设置为“等级考试”的语句为
单选题有如下的程序：
Private Sub Command1_Click( )
Dim k As Integer，m As Integer
Dim P As Integer
k=4：m=1
P=Pid(k，m) ：Print P；
P=Pid(k，m) ：Print P
End Sub
Private Function Pid(a As Integer，b As Integer)
Static m As Integer，i As Integer
m=5：i=2
i=i + m + 1
m=i + a + b
Pid=m\2
End Function
单击命令按钮后，输出结果为（ ）。
单选题编写如下程序： Private Sub Command1_Click() Function proc(i As Integer) Dim m As Integer，n As Integer Dim a As Integer，Static b As Integer n=2 a=a+1：b=b+1 For m=1 To 3 proc=a*b+i Print proc(n)； End Function Next m End Sub 程序运行后，单击命令按钮Command1，输出结果为
单选题可通过“字体”对话框的( )属性获得用户选定的字体。
单选题设a=2，b=3，c=4，d=5，下列表达式的值是______。
Not a＜=c Or 4*c=b^2 And b＜＞a+c
单选题设有语句： Open "c: /Test. Dat" For Output As #1 则以下叙述中错误的是( )。 A) 该语句打开C盘根目录下的一个文件Test. Dat，如果该文件不存在则出错 B) 该语句打开C盘根目录下一个名为Test. Dat的文件，如果该文件不存在则创建该文件 C) 该语句打开文件的文件号为1 D) 执行该语句后，就可以通过蹦Print语句向文件Test. Dat中写入信息
单选题在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim I As Integer，n As Integer For i=0 To 50 i=i+3：n=n+1 Ifi>10 Then Exit For Next Text1．Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是
单选题设有如下程序： Private Sub search(a( )As Variant，ByVal key As Variant，index%) Dim I% For I=LBound(
单选题将命令按钮的 ______属性设置为True后，就可以按回车键触发其Click事件。
单选题假定在窗体(名称为Form1)的代码窗口中定义如下记录类型：
Private Type animal
animal Name As String * 20
aColor As String * 10
End Type
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1 Click()
Dim rec As animal
Open "c：/vb Test.dat"For Random As # 1 Len=Len(reC)
rec.animalName="cat"
rec.aColor="White"
Put # 1，，rec
Close # 1
End Sub
则以下叙述中正确的是 ______。
A) 记录类型animal不能在Form1中定义，必须在标准模块中定义
D) 如果文件c:/vbTest.dat不存在，则Open命令执行失败
C) 由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾
D) 语句"Put # 1，，rec"将animal类型的两个数据元素写到文件中
单选题阅读下列程序： 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，则程序的输出结果为
A. 0
B. 20
C. 40
D. 无任何输出
单选题下列循环中，可以正常结束的是