For I=1 To 3 For J=1 To 3 Print X(I，J);
Next J Print NextI
6下列程序代码读入N个数，用比较交换法对这N个数按从大到小的顺序排序，并在文本框Text1中输出排序结果。
Dim (1) As Integer Private Sub Command1_Click() N=Val(InputBox(\请输入N：\ ReDim A(N)
For I=1 To (2) A(I)=Val(InputBox(\请输入A(I)：\ Next I
Textl．Text=\ For I=1 To N-1
For J= (3) To N If A(I)
A(I)= (4) A(J)= (5) End If Next J
Text1.Text=Text1.Text & Str(A(I)) & \ Next I
Text1.Text = Text1.Text & Str(A(N)) End Sub
10．以下程序段产生100个1～4之间的随机整数，并进行统计。数组元素s(i)(i=1，2，3，4)的值表示等于i的随机数的个数，要求输出格式如下： S(1)=… S(2)=… S(3)=… S(4)=…
请将程序补充完整。 Dim S(4)As Integer Randomize
(1)
X=Int(Rnd* (2) +1) S(X)=S(X)+l Next I
(3) Print (4) Next I
11. 以下程序代码实现单击命令按钮Command1时生成20个(0, 100)之间的随机整数，存于数组中，
打印数组中大于50的数，并求这些数的和。 Private Sub Commandl_Click() Dim arr(1 TO 20) For i=1 to 20
a(i) = (1)
Text1.Text=Text1.Text & arr(i) & Chr(13) & Chr(10) Next i Sum=0
For i=1 to 20
If a(i)>50 Then Print Tab(20); a(i) Sum= (2) End If
Next (3) Print Tab(20); \：\ End Sub
14．设在窗体上有一个文本框Text1，一个标签数组Label1，共有10个标签，以下程序代码实现在单击任一个标签时将标签的内容添加到文本框现有内容之后。 Private Sub Label1_Click(Index As Integer)
Textl.Text= End Sub
15．在如图7-5所示的界面中，四门课程的成绩由文本框数组Text1输入，“最高分”、“最低分”、“平均分”和“总分”为一个命令按钮数组Command1，以下程序代码运行时，在输入成绩后，单击按钮数组Command1中的任意一个按钮将在Label5上显示相应的统计方式(最高分、最低分、平均分、总分)，而在Text2中显示统计结果。
Private Sub Command1_Click(Index As Integer) Label5.Caption = (1) Select Case (2) Case 0 '计算最高分 Y=Val(Text1(0).Text) For i=1 To 3
If (3) Then Y=Val(Textl(i).Text) Next i
Case 1 '计算最低分 Y=Val(Textl(0).Text) For i=1 To 3
If (4) Then Y=Val(Textl(i).Text) Next i
Case 2 '计算平均分 Y=0
For i=0 To 3
Y=Y + (5) Next i
Y= (6) Case 3 '计算总分 Y=0
For i=0 To 3
Y= (7) Next i End Select
Text2.Text= (8) End Sub
第9章Visual Basic常用控件
一、选择题
1．以下关于Name属性的说法，错误的是【 】。 (A)Name属性必须以一个字母开始
(B)Name属性可以在属性窗口修改，也可以在代码中修改 (C)所有控件都有Name属性，其值不能为空 (D)\是一个非法的对象名
2．要设置某文本框的文字具有粗体效果，正确的语句是【 】。 (A)Text1.Font.Bold=False (B)FontBold=True
(C) Text1.FontBold=True (D)Text1.Font=Bold
12．运行时，要在图片框P1中打印字符串“How Are You”，应使用语句【 】。 (A)P1.Print=\
(B)P1.Picture=LoadPicture(\ (C)P1.Print \ (D)Print \
13．要清除已经在图片框P1中打印的字符串而不清除图片框中的图像，应使用语句【 】。 (A)P1.Cls (B)P1.Picture=LoadPicture(\ (C)P1.Print\ (D)P1.Picture=\
15．以下关于选项按钮的说法中，正确的是【 】。
(A)选项按钮的Enabled属性用于决定该按钮是否被选中 (B)选项按钮的Value属性用于决定该按钮是否被选中 (C)选项按钮的Checked属性用于决定该按钮是否被选中 (D)选项按钮的Visible属性用于决定该按钮是否被选中
17．如果有三个选项按钮直接画在窗体上，另有四个选项按钮画在框架中，则运行时，可以同时选中【 】个选项按钮。
(A)1 (B) 2 (C)3 (D)4
19．以下关于复选框的说法中，正确的是【 】。
(A)复选框的Enabled属性用于决定该复选框是否被选中 (B)复选框的Value属性用于决定该复选框是否被选中
(C)复选框的Checked属性用于决定该复选框是否被选中 (D)复选框的Visible属性用于决定该复选框是否被选中
20．以下关于复选框的说法中，正确的是【 】。 (多选) (A)一个窗体上的所有复选框一次只能有一个被选中 (B)一个容器中的所有复选框一次只能有一个被选中 (C)在一个容器中的复选框可以同时有多个被选中
(D)无论是在窗体上还是在其他容器中，都可以同时选中多个复选框
31．Timer控件的【 】属性决定该控件是否对时间的推移做出响应。将该属性设置为False会关闭Timer控件，设置为True则打开它。
(A)Enabled (B)Visible (C)Time (D)Capable
32．定时器的Interval属性以【 】为单位指定Timer事件之间的时间间隔。 (A)分 (B)秒 (C)毫秒 (D)微秒
第11章图形设计
一、选择题 1．在Visual Basic中坐标轴的缺省刻度单位是缇，用户可以根据实际需要使用【 】改变刻度单位。 (A)ScaleMode属性 (B)Scale属性 (C)DrawStyle属性 (D)DrawWidth属性
2．下面的属性和方法中，【 】可以重新定义容器对象的坐标系统。
(A)ScaleMode属性 (B)Scale方法 (C)DrawStyle属性 (D)DrawWidth属性
3．执行语句Form1.ScaleLeft=100：Form1.ScaleTop=200之后，窗体Form1的左上角坐标为【 】。 (A)(0，0) (B)(200，100)
(C)(100，200) (D)视ScaleMode属性的当前值而定
6．通过设置shape控件的【 】属性可以绘制多种形状的图形。 (A)Shape (B)BorderStyle (C)FillStyle (D)Style
8．下面叙述正确的是【 】。
(A)不能改变PSet方法绘制的点的大小
(B)PSet方法绘制的点的大小受其容器对象的DrawWidth属性的影响 (C)PSet方法只能使用容器对象的前景颜色画点
(D)以上均不对
16．在图11-2中扇形的填充色由【 】决定。
(A)窗体的FillStyle属性 (B)Circle方法
(C)窗体的FillStyle属性和FillColor属性 (D)窗体的FillColor属性
第12章 文 件
一、选择题
1．在Visual Basic中按文件的访问方式不同，可以将文件分为【 】。 (A)顺序文件、随机文件和二进制文件 (B)文本文件和数据文件 (C)数据文件和可执行文件 (D)AscII文件和二进制文件
6．要在C盘当前文件夹下建立一个名为StuData.dat的顺序文件，应先使用【 (A)Open \ (B)Open \ (C)Open \ (D)Open \
7．执行语句open \后，系统【 】。 (A)将C盘当前文件夹下名为StuData.dat的文件的内容读入内存 (B)在C盘当前文件夹下建立名为StuData.dat的顺序文件
(C)将内存数据存放在C盘当前文件夹下名为StuData.dat的文件中
(D)将某个磁盘文件的内容写入C盘当前文件夹下名为stuData.dat的文件中
】语句。