[2018年必威体育精装版整理]20(改变颜色,改变窗体背景颜色).docVIP

(1) 【解题思路】通过命令按钮的Name、Caption属性设置命令按钮的名称、标题，通过窗体的Caption属性设置窗体的标题，在C1_Click事件过程中，通过设置窗体的BackColor属性实现单击命令按钮时，将窗体的背景颜色改为红色。 【操作步骤】 步骤1：建立一个窗体，在窗体中添加一个命令按钮，并添加并设置控件的属性。程序中用到的控件及属性见表3.67。 表3.67 控件 命令按钮 窗体 属性 Name Caption Caption 设置值 C1 改变颜色 改变窗体背景色 步骤2：编写程序代码。 参考答案 Private Sub C1_Click() Form1.BackColor = HFF End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 【举一反三】可以通过第41套第一大题的第二小题来进行同类知识点的练习。 (2) 【解题思路】通过形状控件的Name、Shape属性设置形状控件的名称和形状，通过列表框的Name、List属性设置列表框的名称和列表项，单击列表框中的某一项，通过List1的Text属性确定选中的值，并将其值作为形状控件的填充参数，FillStyle属性用于返回/设置一个形状控件的填充样式。 【操作步骤】 步骤1：建立界面，将窗体的Caption属性设置为图形控件。然后设置控件的属性。程序中用到的控件及属性见表3.68。 表3.68 控件 形状控件 列表框 属性 Name Shape Name List 设置值 Shape1 3 List1 1 2 3 4 5 步骤2：编写程序代码。 参考答案 Private Sub List1_Click() Shape1.FillStyle = List1.Text End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 【举一反三】可以通过第12套第一大题的第一小题来进行同类知识点的练习。 (1)【解题思路】Sub calc()函数实现将大于文本框中的正整数，并且能够被所选除数整除的5个数添加到列表框List1中，首先调用ClearList函数清空列表框，运用Val函数使Text1的值由字符转化为数值，Do While语句控制产生整数的个数为5个，通过Mod函数和If语句判断是否能被所选数整除，并用列表框的AddItem方法，把能被整除的数添入到列表框中。在Command1 Click事件过程中，向文本框中输入正整数，并运用val(Option1(i). Caption)语句提取单选按钮数组中所选的数值，再通过调用calc()函数实现数据的处理过程。 【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Private Sub Command1_Click() Dim y As Integer For i = 0 To 2 　 If ? = True Then 　 y = val(Option1(i)．？) 　　 End If Next Call calc(y) End Sub Private Sub_calc(y As Integer) ClearList i = 1 x = Val(Text1.Text) + 1 　Do While i = ? 　　　If x Mod y = 0 Then 　 List1.AddItem ? 　　　　 i = i + 1 　　　End If 　　　x = x + 1 Loop End Sub Private Sub_ClearList() For k = List1.ListCount - 1 To 0 Step -1 　　　List1.RemoveItem k Next k End Sub 程序结束 参考答案 第1个？处填入：Option1(i).value 第2个？处填入：Caption 第3个？处填入：5 第4个？处填入：x 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 【举一反三】可以通过第47套第二大题的第二小题来进行同类知识点的练习。 (2)【解题思路】在Command1 Click事件过程中，Timer1的Enabled属性设置为True，图片开始移动，在Command2 Click事件过程中，Timer1的Enabled属性设置为False，图片停止移动。窗体装入时Timer1的Interval属性设置为500，表示Timer1时间间隔为0.5秒。在Timer1 Timer事件过程中，Picture1的Top属性值的改变使图片自上而下移动，VScroll1的Value 属性值等于 Picture1的Top属性值，使滚动条的滑块随之移动。运用If语句，通过对VScroll1的Value属