单选题在窗体上画一个名称为Command1的命令按钮，并编写如下程序：Private Sub Command1_Click() Dim x As Integer x=10：y=5 Call f1(x，y) Print x，yEnd subPrivate Sub f1(ByRef x1 As Integer，_ y1 As Integer) x1=x1+2：y1=y1+2End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是
单选题要使一个文本框具有垂直滚动条，则应______ 。
单选题有如下程序：Private Sub Form_Click() Dim i As Integer，n As
Integer For i=1 To 20 i=i+4 n=n+i If i＞10 Then Exit
For Next Print nEnd Sub程序运行后，单击窗体，则输出结果是______。
A.14
B.15
C.29
D.30
单选题下列二叉树描述中，正确的是( )。
单选题窗体如图所示。要求程序运行时，在文本框Text1中输入一个姓氏，单击“删除”按钮(名称为Command1)，则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能：PrivateSubCommand1_Click()Dimn％，k％n=Len(Text1．Text)Fork=0ToList1．ListCount-1IfLett(List1．List(k)，n)=Text1．TextThenList1．RemoveItemkEndIfNextkEndSub在调试时发现，如输入“陈”，可以正确删除所有姓“陈”的项目，但输入“刘”，则只删除了“刘邦”、“刘备”2项，结果如图2所示。这说明程序不能适应所有情况，需要修改。正确的修改方案是把Fork=0ToList1．ListCount-1改为()。
单选题执行以下程序段后，变量c$的值为______。 a$＝"Visual Basic Programming" b$＝"Quick" c$＝b$ & UCase(Mid$(a$，7，6)) & Right$(d$,12)
单选题设窗体的名称为Form1，标题为Win，则窗体的MouseDown事件过程的过程名是
单选题8．6787E+8写成普通的十进制数是( )。
单选题在窗体上画一个列表框和一个命令按钮，其名称分别为Listl和Commandl，然后编写如下事件过程 Private Sub Form_Load() Listl.Addltem"Iteml" Listl.Addltem"Item2" Listl.Addltem"Item3" End Sub Private Sub Commandl_Click() Listl.List(Listl.ListCount)="AAAA" End Sub 程序运行后，单击命令按钮，其结果为______。
单选题在窗体上画两个单选按钮，名称分别为Option1，Option2，标题分别为"宋体"和"黑体"；一个复选框，名称为Check1，标题为"粗体"；一个文本框，名称为Text1，Text属性为"改变文字字体"。要求程序运行时，"宋体"单选按钮和"粗体"复选框被选中，则能够实现上述要求的语句序列是________。
A.Option1.Value=True Check1.Value=False
B.Option1.Value=True Check1.Value=True
C.Option2.Value=False Check1.Value=True
D.Option1.Value=True Check1.Value=1
单选题下列表述中不能判断x是否为偶数的是______。
单选题文件是( )构成的数据集合。
单选题以下关于MDI子窗体在运行时特性的叙述，错误的是( )。
单选题窗体上有一个名称为Shape1的形状控件和由三个命令按钮组成的名称cmdDraw的控件数组。窗体外观如图所示（从上到下的3个命令按钮下标分别为0、1、2）。有事件过程如下：
Private Sub cmdDraw_Click(Index As Integer)
Select Case Index
Case 0
Shape1.shape=0
Case 1
Shape1.shape=1
Case 2
Shape1.Shape=3
End Select
End Sub
当单击“画圆”命令按钮时，会执行cmdDraw_Click事件过程。以下叙述中正确的是
单选题在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程：
Private Sub Form_Load()
Text1.Text=""
Text1.SetFocus
For i=1 To 9
Sum=Sum=i
Next i
Text1.Text=Sum
End Sub
上述程序的运行结果是
Ａ) 在文本框Text1中输出45
Ｂ) 在文本框Text1中输出0
Ｃ) 出错
Ｄ) 在文本框Text1中输出不定值
单选题为计算n!(0＜n＜=12)编写如下函数过程：
Private Function fun(n As Integer)As Long
Dim p As Long
p=1
For k=n-1 To 2 Step-1
p=p*k
Next k
fun=p
End Function
在调试时发现该函数过程产生的结果是错误的，程序需要修改。下面的修改方案中有3种是正确的，错误的方案是______。
单选题文本框的Scroll Bars属性设置为非零值，却没有效果，原因是
____
。
单选题下列有关过程的叙述中错误的是( )。
单选题在窗体上添加一命令按钮，名为Command，事件过程如下： option base 1 Private Sub Command1_Click() Dim a(4,4)As Variant For i=1 To 4 For j=1 To 4 a(i,j)=(i-1)*3+j Next i For i=3 To 4 For j=3 To 4 Print a(i,j)； Next j Print Next i End Sub 该程序执行后，结果是( )。
单选题下列程序段执行结果为（ ）。
x=5
y=-6
If Not x＞0 Then x=y-3 Else y=x+3
Print x-y；y-x