在考生文件夹下有一个工程文件sjt4.vbpc.窗体中有一个图片框,图片框中有一个蓝色圆,名称为Shape1,如图所示。 当程序运行时,单击“开始”按钮,圆半径逐渐变大(圆心位置不变),当圆充满图片框时则变为红色,并开始逐渐缩小,当缩小到初始大小时又变为蓝

admin2016-06-23  31

问题 在考生文件夹下有一个工程文件sjt4.vbpc.窗体中有一个图片框,图片框中有一个蓝色圆,名称为Shape1,如图所示。
当程序运行时,单击“开始”按钮,圆半径逐渐变大(圆心位置不变),当圆充满图片框时则变为红色,并开始逐渐缩小,当缩小到初始大小时又变为蓝色,并再次逐渐变大,如此往复。单击“停止”按钮,则停止变化。文件中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。

提示:程序中的符号常量blue_color表示蓝色的值,red_color表示红色的值。
注意:不能修改程序的其他部分和各控件的属性。最后将修改后的文件按原文件名存盘。

选项

答案[操作步骤] 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 参考代码(画下划线部分是需填入的内容) Dim left0 As Integer Const blue_color=&HFF0000,red_color=&HFF& Private Sub Command1_Click()Timer1.Enabled=True’单击"开始"按钮,Timer生效 End Sub Private Sub Command2_Click() Timer1.Enabled=False’单击"结束"按钮,Timer失效 End Sub Private Sub Form_Load() left0=Shape1.Left’加载窗体时,初始化圆心到窗体的距离 End Sub Private Sub Timer1_Timer() If Shape1.FillColor=blue_color Then If Shape1.Left>0 Then Shape1.Height=Shape1.Height+100’圆的高扩大100 Shape1.Width=Shape1.Width+100 Shape1.Left=Shape1.Left-50 ’圆心到图片框左边上边的距离 Shape1.Top=Shape1.Top-50 Else Shape1.FillColor=red_color’当充满图片框时则变色 End If End If If Shape1.FillColor=red_color Then If Shape1.Left<left0 Then Shape1.Height=Shape1.Height-100 Shape1.Width=Shape1.Width-100 Shape1.Left=Shape1.Left+50 ’设置Shape1的左边位置 Shape1.Top=Shape1.Top+50 ’设置Shape1的上界位置 ElSe Shape1.FillColor=blue_color ’当缩小到原始大小时则变色 End If End If End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。

解析
转载请注明原文地址:https://kaotiyun.com/show/pcLp777K
0

最新回复(0)