的窗体上添加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文本框内。