2[填空题] 下列程序的作用是在屏幕上显示一个200×200大小的窗口，在横线上填入相应的语句。 import java.awt.*； public class Test extends Frame public static void main (String args[]) Test t=new Test ("Hello")； t.setSize (200，200)； t.setBackground (Color.red)； 【13】 ； public Test (String str) super(str)；
4[单项选择题] 下列程序执行的结果是______。 Private Sub Command1_Click() x=25 If x＞0 Then y=1 If x＞10 Then y=2 If x＞20 Then y=3 If x＞30 Then y=4 Print y End Sub
A．1
B．2
C．3
D．4
7[填空题] 下列程序段的功能是：从文本框中输入一个数值，如果该数值满足“除以4余1，除以5余2”条件，则在窗体上输出文本框中的数值，否则，将焦点定位在文本框中，并清除文本框的内容。请填空。 Private Sub Commandl_Click() x=Val(Textl.Text) If______ThenPrint x Else_______ Textl.Text="" End If End Sub
10[填空题] 在名称为Forml的窗体上绘制一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程： Private SUb Form_CnCk() Open"d: essmtext1.txt"For Input AS #1 Do While Not EOF(1)Line Iput #1,aspect$whole$=whole$+aspect$+Chf$(13)+Chr$(10) Loop Text1.Text=whole$ Close #1 Open"d: estsmtext2.txt"For OutpUt As #1 Print #1,______ Close #1 End Sub 上述程序的功能是，把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。
11[问答题] 下面是打印输出所有和为10000的连续整数(如：1998，1999，2000，2001，2002)的程序，请在每条横线处填写适当语句，使程序的功能完整。 注意：请勿改动main()主方法和其他已有的语句内容，仅在横线处填入适当的语句。public class Sum10000 public static void main(String args[ ]) int i; int j; int k; int sum; for(i=1;i＜=10000;______________) sum=0; j=i; __________________; while(sum＜10000) ______________ if(sum==10000) for(k=i;k＜=j;k++)System.out.println(k+ ""); System.out.println("********");
12[单项选择题] 阅读如下程序： Option Base 1 Private Sub Form Click()Dim Arr(4，4)As IntegerFor i=1 To 4 For j=1 To 4 Arr(i，j)=(i-1)*2+j Next jNext iFor i=3 To 4 For j=3 To 4 Print Arr(j，i)； Next j PrintNext i End Sub 程序运行后，单击窗体，输出的结果为
A．5 7 6 8
B．6 8 7 9
C．7 9 8 10
D．8 10 8 11
14[填空题] 下列程序的功能是把文件C:a1.txt复制成C:a2.txt，请填空。 Private Sub Form C1ick() Dim ch As String Open "C:a1.txt" For 【13】 Open "C:a2.txt" For 【14】 Do While Not 【15】 ch＝Input(1,10) Print #20,ch; Loop Close #10,#20 End Sub
15[填空题] 在窗体上画一个名称为Comb01的组合框，然后画两个名称分别为Label1、Label2，标题分别为“城市名称”和空白的标签。程序运行后，在组合框中输入一个新项目并按回车键，如果输入的项目在组合框的列表中不存在，则自动将其添加到组合框的列表中，并在Label2中给出提示“已成功添加新输入项”，如下图所示。如果输入的项目已存在，则在Label2中给出提示“输入项已在组合框中”。请填空。 Private Sub Combo1_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then For i=0 To Combo1.ListCount-1 If Combo1.Text= (10) Then Label2.Caption="输入项已在组合框中" Exit Sub End If Next i Label2.Caption="已成功添加新输入项" Combo1. (11) Combo1.Text End If End Sub
16[单项选择题] 设有如下程序： Private Sub Form_Click() Dim i As Integer, x As String, y As String x="ABCDEFG" For i=4 To 1 Step-1 y=Mid(x, i, i)+y Next i Print y End Sub 程序运行后，单击窗体，输出结果为( )。
A．ABCCDEDEFG
B．AABBCDEFG
C．ABCDEFG
D．AABBCCDDEEFFGG
18[单项选择题] 下列程序执行之后，输出的结果是______。 public class ex4 public static void main(String[] args) int j=0;for(int i=3;i＞0;i--) j+=i; int x=2; while(x＜j) x+=1; System.out,print(x);
A. 3555
B. 35556666
C. 33453456
D. 345
