20(改变颜色,改变窗体背景颜色).doc

文档介绍：(1) 【解题思路】通过命令按钮的Name、Caption属性设置命令按钮的名称、标题,通过窗体的Caption属性设置窗体的标题,在C1_Click事件过程中,通过设置窗体的BackColor属性实现单击命令按钮时,将窗体的背景颜色改为红色。
【操作步骤】
步骤1:建立一个窗体,在窗体中添加一个命令按钮,并添加并设置控件的属性。。

控件
命令按钮
窗体
属性
Name
Caption
Caption
设置值
C1
改变颜色
改变窗体背景色
步骤2:编写程序代码。
参考答案
Private Sub C1_Click()
= &HFF&
End Sub
步骤3:调试并运行程序,关闭程序后按题目要求存盘。
【举一反三】可以通过第41套第一大题的第二小题来进行同类知识点的练习。
(2) 【解题思路】通过形状控件的Name、Shape属性设置形状控件的名称和形状,通过列表框的Name、List属性设置列表框的名称和列表项,单击列表框中的某一项,通过List1的Text属性确定选中的值,并将其值作为形状控件的填充参数,FillStyle属性用于返回/设置一个形状控件的填充样式。
【操作步骤】
步骤1:建立界面,将窗体的Caption属性设置为"图形控件"。然后设置控件的属性。。

控件
形状控件
列表框
属性
Name
Shape
Name
List
设置值
Shape1
3
List1
1 2 3 4 5
步骤2:编写程序代码。
参考答案
Private Sub List1_Click()
=
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 mand1_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