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

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

admin2016-06-23  33
问题 在考生文件夹下有一个工程文件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
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)