[2018年最新整理]20(改变颜色,改变窗体背景颜色).doc
文本预览下载声明
(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属
显示全部