应用题 2. 在考生文件夹下有一个工程文件sjt4.vbp。窗体中有一个图片框,图片框中有一个蓝色圆,名称为Shape1,如图所示。
    当程序运行时,单击“开始”按钮,圆半径逐渐变大(圆心位置不变),当圆充满图片框时则变为红色,并开始逐渐缩小,当缩小到初始大小时又变为蓝色,并再次逐渐变大,如此往复。单击“停止”按钮,则停止变化。文件中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。
   
【正确答案】【操作步骤】
   步骤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.FiliColor=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.FiliColor=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:调试并运行程序,关闭程序后按题目要求存盘。
   
【答案解析】[考点] 本题考点有:形状控件的Height、Width、Left、Top和FillColor属性,时钟控件的Enabled属性以及If判断语句。
通过Shape1的Left属性判断图片是否充满图片框或恢复到了初始大小,从而进行图片颜色红蓝的转换以及圆形的放大或缩小。通过形状控件的Height、Width、Left和Top属性来实现圆形的大小变化。