单选题设窗体上有一个列表框控件List1，含有若干列表项。以下能表示当前被选中的列表项内容的是( )。
单选题为了取消窗体的最小化功能，需要把它的一个属性设置为False，这个属性是________。
单选题为了使文本框显示滚动条，除要设置ScrollBars外，还必须设置的属性是( )。
单选题在窗体上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1)，然后编写如下事件过程： Private Sub Command1_Click( ) x=0:n=0 Do Until x＞=30 x=(n+2)*(n+3) n=n+1 Loop Text1.Text=Str(n) Text2.Text=Str(x) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别为______。
单选题在窗体上画一个命令按钮，其名称为Commandl，然后编写如下程序： Pfivate Sub Commandl_Click() Dima(10) As Integer Dimx As Integer Fori=1 To 10 a(i)=8+i NeXt X=2 Print a(f(x)+x) End Sub Function f(X As Integer) X=X+3 f=X End Function 程序运行后，单击命令按钮，输出结果为( )。
单选题下面程序段执行结果为( )。 x=Int(Rnd()+4) Select Case x Case 5 Print"excellent" Case4 Print"good" Case 3 Print"pass" Case Else Print"fail" End Select
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub
Command1_Click() x = -5 If Sgn(x) Then y = Sgn(x ^
2) Else y = Sgn(x) End If Print y End
Sub 程序运行后，单击命令按钮，窗体上显示的是
A. -5
B. 25
C. 1
D. -1
单选题程序代码如下，当单击窗体上的Command1控件时，窗体上显示的结果是( )。 Private Sub Command1_Click() Dim i As Integer，a(9)As Integer For i=9 To 0 Step-1 a(i)=10-i Next i Print a(2); a(5)；a(8) End Sub
单选题在窗体上画一个名称为Command1的命令按钮和3个名称分别为Label1, Label2, Label3的标签，然后编写如下代码： Private x As Integer Private Sub Command1_Click() Static y As Integer Dim z As Integer n= 10 z = n + z y = y + z x = x + z Label1.Caption = x Label2.Caption = y Label3.Caption = z End Sub 运行程序，连续三次单击命令按钮后，则3个标签中显示的内容分别是
单选题( )控件可以使图形根据控件大小而改变大小。
单选题请阅读程序：
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)
Ncxt i
End Sub
运行上面的程序，单出命令按钮，则输出结果是______。
单选题复选框是否被选中，取决于复选框的( )。
单选题在软件开发中，需求分析阶段产生的主要文档是( )。
单选题单击滚动条的滚动箭头时，产生的事件是
单选题编写如下程序：Private Sub Command1_Click() For i = 1 To 5 Print Tab(6 - i); For j = i To 1 Step -1 Print "*"; Next j Print Next iEnd Sub程序运行后的输出结果是
单选题在数据流图中，○(椭圆)代表________。
A. 源点
B. 终点
C. 加工
D. 模块
单选题以下过程的功能是从数组中寻找最大值：Private Sub FindMax(a()As Integer， ByRef Max As Integer) Dim s As Integer， f As Integer Dim i As Integer s＝LBound(a) f＝UBound(a) Max＝a(s) For i＝s To f If a(i)>Max Then Max＝a(i) NextEnd Sub以下关于上述过程的叙述中，错误的是( )。
单选题下列程序代码实现生成20个0～100之间的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。请选择正确的程序段是( )，完成程序。 Private Sub Command1_Clickn Dim arr(1 To 20) For i=1 To 20 arr(i)=______ Text1.Text=Text1.TextX Sum=Sum+X End If Next X Print Tab(20);"Sum";Sum End Sub
单选题在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写如下事件过程： Private Sub Command1_Click() CommonDialog1.Flags=vbOFNHideReadOnly CommonDialog1.Filter="All Files(*.*)|*.*|Text Files(*.txt)|*.txt CommonDialog1.Filterlndex=1 CommonDialog1.ShowOpen MsgBox CommonDialog1.FileName End Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Function funl(n As Integer)As Integer Dim k As Integer If n=1 Then k=1 Else k=1+fun1(n-1)*2 End If fun1=k End Function Private Sub Coraraand1_Click( ) Dim m As Integer, x As Integer x=4 m=fun1(x) Print m End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是______。