为Form1,标题为“图片练习”的窗体上添加1个名称为Image1宽和高分别为1800和1200的图像框.docVIP

基础题(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