基础题（1）【考点分析】本题考点有：形状控件的Name、Height、Width、Shape属性和窗体的Caption、MaxButton、MinButton属性。 【解题思路】Shape属性用来设置形状控件的形状。其取值及边框形状如下：d = True End Sub Private Sub Command2_Click() () = Text1 Text1 = "" = False End Sub Private Sub Command3_Click() Text1 End Sub 程序结束 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简单题（2）【考点分析】本题考点有：计时器的Enabled属性和Timer事件，图片框的Visible属性和滚动条的Value属性以及变量的使用。 【解题思路】将计时器的Enabled属性设为True来实现图片的开始切换；通过将图片框的Visible属性设为False使图片框不可见。 【操作步骤】 步骤1：打开本题工程文件,计时器的Enabled属性设为True。 步骤2：分析并编写程序代码。 程序提供代码 Dim red, green Private Sub Command1_Click() red = green = = True End Sub Private Sub Timer1_Timer() If Then red = red - 1 If red = 0 Then = False = True End If ElseIf Then = False If red = 0 Then = True red = Else = True green = End If ElseIf Then green = green - 1 If green = 0 Then = False = True End If End If End
