单选题若在某窗体模块中有如下事件过程 Private Sub Command1．Click(Integer) End Sub 则以下叙述中正确的是
单选题窗体上有一个名称为Command1的命令按钮，单击该按钮时所实现的功能是产生10个随机整数，然后从键盘输入一个整数，查找该数在数组中的位置。若找到，输出该数的位置；若没有找到，给出相应的提示。该命令按钮的单击事件过程如下：
Private Sub Command1_Click()
Dim a(10)As Integer, x As Integer
For i=1 To 10
a(i)=Int(Rnd*100)
Next
x=InputBox("输入100以内的整数:"):p=0
For i=1 To 10
If a(i)=x Then
p=i:Exit For
End If
Next
If p=0 Then
Print"没有找到与输入数据相同的数!"
Else
Print Str(x)+"在数组中的位置是"+Str(p)
End If
End Sub
对于上述事件过程，以下叙述中正确的是
单选题在窗体上画一个按钮，然后编写如下的事件代码。在按钮上单击，输出为( )。 Private Sub fun3(x As Integer) Static a As Integer Dim b As Integer a=a+3：b=b+3 a=a+x：b=b+x Printa；b End Sub Private Sub Command1_Click() Dim k As Integer，m As Integer,n As Integer k=2：m=1 Call fun3(k) Call fun3(m) End Sub
单选题设工程文件包含两个窗体文件Form1．frm、Form2．frm及一个标准模块文件Modulel．bas。两个窗体上分别只有一个名称为Commandl的命令按钮。Forml的代码如下：Public x As IntegerPrivate Sub Form—Load()x=1y=5End SubPrirate Sub Commandl Click()Form2．ShowEnd SubForm2的代码如下：Prirate Sub Commandl Click()Print Forml．x，yEnd SubModulel的代码如下：Public y As Integer运行以上程序，单击Form1的命令按钮Command1，则显示：Form2；再单击Form2上的命令按钮Command1，则窗体上显示的是( )。
单选题下面______属性肯定不是框架控件的属性。
单选题编写如下事件过程: Private Sub Form_ MouseDown (Button As
Integer, Shift As Integer, X As Single, Y As Single)
If Shift = 6 And Button = 2 Then
Print “Hello”
End If End Sub
程序运行后，为了在窗体上输出“Hello”，应在窗体上执行以下______ 操作。
A. 同时按下Shift键和鼠标左按钮．
B. 同时按下Shift键和鼠标右按钮
C. 同时按下Ctrl、Alt键和鼠标左按钮
D. 同时按下Ctrl、Alt键和鼠标右按钮
单选题单击一次命令按钮后，下列程序的执行结果为
Private Sub Command1_Click()
Dim m As Integer，I As Integer，x(10) As Integer
For I=0 To 4：x(I)=I+1：Next I
For I=1 TO 2：Call Prioc(x)：Next I
For I=0 TO 3：Print x(I)；：Next I
End Sub
Private Sub Prioc(a()As Integer)
Static I As Integer
Do
a(I)=a(I)+a(I+1)
I=I+1
Loop While I＜2
End Sub
单选题在窗体上画一个名称为Label1的标签，然后编写如下事件过程：
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 j
Next i
Label1.Caption = Str(arr(2, 2) + arr(3, 3)) End Sub
程序运行后，单击窗体，在标签中显示的内容是______。
单选题设已打开5个文件，文件号分5U为1，2，3，4，5。要关闭所有文件，以下语句正确的是
单选题下列对话框有关属性中，用于设置初始的文件目录并返回用户选择的目录的属性是 ______。 A) InitDir B) DialogTitle C) Filter D) FileName
单选题窗体上有一个名称为Frame1的框架(如图)，若要把框架上显示的“Frame1”改为汉字“框架”，下面正确的语句是()。A)Frame1.Name="框架"B)Frame1.Caption="框架"C)Frame1.Text="框架"D)Frame1.Value="框架/
单选题在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim array1(10，10)As Integer Dim i,j As Integer For i；1 TO 3 For i=2 To 4 array1(i,j)=i+j Next j Next i Text1. Text=array1(2，3)+array1(3，4) End Sub 程序运行后，单击命令按钮，则文本框中显示的值是 ______。
单选题为了使图片框的大小可以自动适应图片的尺寸，则应______。
单选题语句Print Sgn(-5.1^2)+Abs(Int(-5.1^2))的输出结果是( )。
单选题在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，然后编写如下事件过程： Private Sub Command1 Click() Dim arr1(10), arr2(10) For i = 1 To 10 arr1(i) = 3 * i arr2(i) = arr1(i) * 3 Next i Text1.Text = Str (arr2(i / 2 - 0.1)) End Sub程序运行后，单击命令按钮，在文本框中显示的是______ 。
单选题三种基本结构中，能简化大量程序代码行的是( ) A．顺序结构 B．分支结构 C．选择结构 D．重复结构
单选题设有如下程序：
Option Base 1
Private Sub Form_Click()
Dim a(5) As String, i As Integer
For i=1 To 5
a(i)=Chr(Asc("A")+i)
Call f(a,i)
Next i
End Sub
Sub f(ta() As String, n As Integer)
Dim i As Integer
For i=1 To n
Print ta(i)
Next i
Print
End Sub
对上述程序，以下叙述中正确的是
单选题有如下数据定义语句：Dim a，b As IntegerDim x％．Y as Integer执行上述语句后，不是整型变量的是( )。
单选题窗体如图所示。要求程序运行时，在文本框Text1中输入一个姓氏，单击“删除”按钮(名称为Command1)，则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能：PrivateSubCommand1_Click()Dimn％．k％n=Len(Text1．Text)Fork=0ToList1．ListCount-1IfLefl(List1．List(k)，n)=Text1．TextThenList1．RemoveltemkEndIfNextkEndSub在调试时发现，如输入“陈”，可以正确删除所有姓“陈”的项目，但输入“刘”，则只删除了“刘邦”、“刘备”2项，结果如图2所示。这说明程序不能适应所有情况，需要修改。正确的修改方案是把Fork=0ToList1．ListCount-1改为()。
单选题下列不包含滚动条的控件是( )。