的窗体上添加1个名称为Image为Form1标题为“图片练习”的窗体上添加1个名称为Image1

基本题(1)
【解题思路】按照题目要求，通过图像框的Name、Width、Height题Picture属性设置图像框，Stretch属性用于设置图像框中的图形能自动放大或缩小以与图像框的大小相适应。

【操作步骤】
步骤1：建立界面，并设置控件的属性。

程序中涉及的控件及属性见表3.127。

表3.127
步骤2：调试并运行程序，关闭程序后按题目要求存盘。

基本题(2)
【解题思路】在Command1_Click事件过程中，通过列表框的AddItem和RemoveItem方法将选中的列表项内容复制到已有列表项的尾部；在Command2_Click事件过程中，通过列表框的RemoveItem方法将选中的列表项内容删除。

【操作步骤】
步骤1：建立界面，并设置控件的属性。

程序中用到的控件及属性见表3.128。

表3.128
步骤2：编写程序代码。

参考答案
Private Sub Command1_Click()
List1.AddItem List1.Text
List1.RemoveItem List1.ListIndex
End Sub
Private Sub Command2_Click()
List1.RemoveItem List1.ListIndex
End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

简单题(1)
【解题思路】在计时器的Timer事件过程中，通过设置标签的Left属性值使其在原有基础上
加100来实现自左向右移动的功能。

在"开始"按钮的单击事件过程中应启动计时器，禁用"移动"按钮，并改变其标题为"暂停"。

在"退出"按钮的单击事件过程中要通过End语句停止程序。

【操作步骤】
步骤1：打开本题工程文件，并设置控件的属性。

程序中涉及的控件及属性见表3.129。

步骤2：分析并编写程序代码。

程序提供代码
Dim flag As Integer
Private Sub Form_Load()
flag = 0
End Sub
Private Sub Command1_Click()
If Command1.Caption = "移动" Then
'Timer1.Enabled = ?
Command1.Caption = "暂停"
Else
Timer1.Enabled = False
Command1.Caption = "移动"
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Timer1_Timer()
Select Case flag
Case Is = 0
''Label1.Left = Label1.Left ? 100
If Label1.Left + Label1.Width = Form1.Width Then flag = 1
Case Is = 1
'Label1.Left = Label1.Left ? 100
If Label1.Left = 0 Then flag = 0
End Select
End Sub
程序结束
参考答案
第1个？处填入：True
第2个？处填入：+
第3个？处填入：-
步骤3：调试并运行程序，关闭程序后按题目要求存盘。

简单题(2)
【解题思路】在Command1 Click事件过程中，通过Len函数判断选手的编号是否为空，如果Len(Text1) ＝0那么弹出对话框"选手编号不能为空，请检查！"退出程序。

同理，检验评委给分，如果为空弹出对话框"评委给分不能为空，请检查！"退出程序。

通过For语句和Select Case 语句统计最大值、最小值以及所有评委评分总和，然后按照题目要求对10个评委的打分去掉一个最高分和一个最低分之后求平均值，该平均分即为选手的最后得分，运用图片框的Print 方法，输出选手编号和得分，并运用Space(5)输出空格函数进行调整，同时将Text1、Text2的内容置为空。

【操作步骤】
步骤1：打开本题工程文件，添加两个标签和一个图片框，属性见下表3.130。

表3.130
步骤2：分析并编写程序代码。

程序提供代码
Private Sub Command1_Click()
If Len(Text1) = 0 Then
MsgBox "选手编号不能为空，请检查！" , "检查"
Exit Sub
End If
For n = 0 To 9
If Len(Text2(n)) = 0 Then
MsgBox "评委给分不能为空，请检查！"，"检查"
Exit Sub
End If
Next n
Max = Val(Text2(0)): Min = Val(Text2(0))
Sum = Val(Text2(0))
' For n = ? To 9
Select Case V al(Text2(n))
'Case Is ? Max
Max = Text2(n)
'Case Is ? Min
Min = Text2(n)
End Select
'Sum =? + Val(Text2(n))
Next n
score = (Sum - Max - Min) / 8
Picture1.Print Text1; Space(5); score
Text1 = ""
For n = 0 To 9
Text2(n) = ""
Next n
End Sub
程序结束
参考答案
第1个？处填入：1
第2个？处填入：>
第3个？处填入：<
第4个？处填入：Sum
步骤3：调试并运行程序，关闭程序后按题目要求存盘。

综合题
【解题思路】Command1 Click单击"读数据"按钮事件过程中，通过文件操作和For循环语句把考生文件夹下in4.dat文件的内容读入到个20行5列的二维数据a中，同时运用Str函数，Space函数，＋连接符将其显示在Text1文本框中。

在单击"计算"按钮事件过程中，通过循环嵌套先求出每一行的最小值min，再对最小值进行累加求和，得出每一行最小值的和sum，然后对二维数组中每行最小数求平均值，并将最终结果显示在Text2文本框内。

【操作步骤】
步骤1：打开本题工程文件，添加一个标题为"各行最小数的平均值为"的标签Label2，再添加一个初始内容为空的文本框Text2。

步骤2：分析并编写程序代码。

程序提供代码
Option Base 1
Dim a(20, 5) As Integer
Private Sub Command1_Click()
Open App.Path & "\in5.dat" For Input As #1
For i = 1 To 20
For j = 1 To 5
Input #1, a(i, j)
Text1 = Text1 + Str(a(i, j)) + Space(2)
Next j
Text1 = Text1 + Chr(13) + Chr(10)
Next i
Close #1
End Sub
Private Sub Command2_Click()
'考生编写
End Sub
Private Sub Form_Unload(Cancel As Integer)
Open App.Path & "\out5.dat" For Output As #1
Print #1, Text2.Text
Close #1
End Sub
程序结束
参考答案
Private Sub Command2_Click()
'考生编写
Dim sum As Long
Dim min As Long
Dim b(20) As Integer
For i = 1 To 20
min = a(i, 1)
For j = 1 To 5
If a(i, j) < min Then
min = a(i, j)
End If
Next j
b(i) = min
Next i
sum = 0
For i = 1 To 20
sum = sum + b(i)
Next
Text2 = sum / 20
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。