单选题以下程序的功能是随机产生10个两位的整数： Option Base1 Private Sub Command1_Click() Dim a(10)As Integer，i As Integer Randomize For i=1 To 10 a(i)=Int(Rnd*100)+1：Print a(i) Next i End Sub 运行以上程序，发现有错误，需要对产生随机数的语句进行修改。以下正确的修改是
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click () Dim a As Integer, b As Integer, c As Integer a = 1: b = 2: c = 3 Print fun2 (c, b,
单选题设有下面的循环： i=0 While i＜=1 i=i+3 Print i Wend 则运行后的输出结果是( )。 A) 1 B) 2 C) 3 D) 4
单选题在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下事件过程： Private Sub Commandl_Click() Counter=0 For i=1 To 4 Forj=6 T0 1 Step一2 Counter=Counter+1 Nextj Next i Label1．Caption=Str(Counter) End Sub 程序运行后，单击命令按钮，标签中显示的内容是
单选题以下( )对象不能作为容器。
单选题在窗体中画一个命令按钮，然后编写以下事件过程： Private Sub Command1_Click( ) For i = 1 To 4 x = 4 For j = 1 To 3 x = 3 For k = 1 To 2 x = x + 6 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，输出结果是________。
单选题以下事件过程可以将打开的对话框的标题改变为“新标题”的是
单选题设有如下通用过程： Public Sub Fun(a()，By Val x As Integer) Fori=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Commandl的命令按钮，然后编写如下的事件过程： Private Sub Commandl_Chck() Dimart(5)As Variant Fori=1 To 5 arr(i)=i Next n=10 Call Fun(alt()，n) Text1.Text=n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是( )。
单选题在运行阶段，要在文本框Text1获得焦点时选中文本框中的所有内容，则对应的事件过程是{{U}} {{/U}}。
A.Private Sub Text1_GotFocus() Text1.SelStart=0
Text1.SelLength=Len(Text1.Text) End Sub
B.Prirate Sub Text1_LosFocus() Text1.SelStart=0
Text1.SelLength=Len(Text1.Text) End Sub
C.Private Sub Text1_Change() Text1.SelStart=0
Text1.SelLength=Len(Text1.Text) End Sub
D.Private Sub Text1_SetFocus() Text1.SelStart=0
Text1.SelLength=Len(Text1.Text) End Sub
单选题设Y是整形变量，能判断Y为奇数的表达式是
单选题下面不能正确计算 1 + ( 1 + 2 ) + ( 1 + 2 + 3 ) + … + ( 1 + 2 + … + 10 ) 的是
单选题设有如下事件过程：Private Sub Form_Click() x=0 While x＜10 x=x+1：x=x*x Wend Print x End Sub运行程序，单击窗体，输出结果是
单选题运行下列程序： Private Sub Form Click() Sum=0 For i=1 To 100 If Mid(CStr(i)，1， 1)="1" Then Sum=Sum+1 End If Next i Print Sum End Sub 单击窗体后，在窗体上显示的结果是
单选题运行以下程序后，输出的图案是()。Forml.ClSForA=1To5PtintfSpace(5-A)；StdnS(A，"*")NextA
单选题编写如下程序： Private Sub Command1_Click() Dim score As Integer score=86 If score>85 Then r=1 Else If score>60 Then r=2 Else r=0 End If Print r End Sub 程序运行后，单击命令按钮Command1，输出结果为
单选题窗体的左右两端各有1条直线，名称分别为Line1、Line2；名称为Shape1的圆靠在左边的Line1直线上(见图)；另有1个名称为Timer1的计时器控件，其Enabled属性值是True。要求程序运行后，圆每秒向右移动100，当圆遇到Line2时则停止移动。为实现上述功能，某人把计时器的Interval属性设置为1000，并编写了如下程序：PrivateSubTimer1_Timer()Fork=Line1.X1ToLine2.X1Step100IfShape1.Left+Shape1.Width＜Line2.X1ThenShape1.Left=Shape1.Left+100EndIfNextkEndSub运行程序时发现圆立即移动到了右边的直线处，与题目要求的移动方式不符。为得到与题目要求相符的结果，下面修改方案中正确的是______。
单选题窗体上有一个名称为Option1的单选按钮数组，程序运行时，当单击某个单选按钮时，会调用下面的事件过程：
Private Salt Option1_Click(Index As Integer)
…
End Sub
下面关于此过程的参数Index的叙述中正确的是______。
单选题程序调试的任务是( )。
单选题以下过程的功能是从数组中寻找最大值：Private Sub FindMax(a() As Integer，ByRef Max As Integer)Dim S As Integer,f As Integer：Dim i As IntegerS=LBound(a)：f=UBound(a)Max=a(s)For i=S TO f Ifa(i)＞Max Then Max=a(i)NextEnd Sub以下关于上述过程的叙述中，错误的是
单选题一棵二叉树中共有70个叶子节点与80个度为1的节点，则该二叉树中的总节点数为