3[单项选择题] 在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click()Dim i As Integer, x As IntegerFor i=1 To 6 If i=1 Then x=i If i＜=4 Thenx=x+1 Elsex=x+2 End IfNext iPrint x End Sub 程序运行后，单击命令按钮，其输出结果为______。
A．9
B．6
C．12
D．15
8[单项选择题] 在窗体上画一个命令按钮，然后编写如下事件过程： Sub BTC(old Copy( ) As Integer，new Copy( ) As Integer) Dim i AS Integer For i=LBound(oldCopy( ))To UBound(oldCopy( )) newCopy(i)=oldCopy(i) Next i End Sub Private Sub Command1 _ Click( ) Dimm(10) As Integer，n(10)As Integer For i=1 To 10 m(i) =i*i Next i Call BTC(m，n) Print n(5) End Sub 程序运行后，单击命令按钮输出结果为()。
A．0
B．2
C．10
D．25
9[单项选择题] 下列程序执行后，输出的结果是______。 public class exl7 { public static void main(String[] args) int a=3; int b=4; int x=5; if(++a＜b) x=x+a; else if(a--＜-b) x-x-a; System.cut.print(x); } }
A．4
B．5
C．3
D．2
10[问答题] 下面的程序是求9999以内的完全数。所谓完全数是指这样的自然数：它的各个约数(不包括该数自身)之和等于该数自身。如28=1+2+4+7+14就是一个完全数。请在程序的每条横线处填写一个语句，使程序的功能完整。 注意：请勿改动main()主方法和其他已有的语句内容，仅在横线处填入适当的语句。 源程序文件代码清单如下： public class QuanShu public static void main(String args[]) for (int n=1;n＜9999; n++) if(______)System.out.println (n);public static int divsum(int n)//该方法功能是求一个数的所有约数 int s=0; for (int i=1; i＜n; i++)if(______)______ return s;
11[单项选择题] 下列( )选项是创建一个标识有“关闭”按钮的语句。
A． TextField b = new TextField("关闭")；
B． TextArea b = new TextArea("关闭")；
C． Button b = new Button("关闭")；
D． Checkbox b = new Checkbox("关闭")；
13[单项选择题] 在运行阶段，要在文本框Text1获得焦点时选中文本框中的所有内容，则对应的事件过程是( )。
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
17[填空题] 下面的程序是找出两个正整数a和b，使得a＜b、a+ b=99、a和b的最大公约数是3的倍数，并统计满足条件数对的个数。Option ExplicitDim a As Integer, b As Integer, n As Integer, c As IntegerPrivate Function Gcd (ByVal a As Integer, Byval b As Integer) As Integer doc=a Mod b: a=b=c Loop 【13】 Gcd=aEnd FunctionPrivate Sub form_ Click() n=0 for a= 1 To 49b= 【14】 c= Gcd (a, b)if c Mod 3= 0 then 【15】 Print a, b, cEnd if Next a Print nEnd Sub
18[单项选择题] 下面程序段的运行结果是( )。 Private Sub Form_Click() For I=3 to 1 step-1 Print Spc(10-I)； For j=1 to 2*I-1 print"*"; Next j Print Next I End Sub
A．***** *** *
B．* *** *****
C．* *** *****
D．* *** *****
