在Form1上用Shape1控件画一个圆,其直径为1500.docVIP

基础题（1）【考点分析】本题考点有：形状控件的Name、Height、Width、Shape属性和窗体的Caption、MaxButton、MinButton属性。 【解题思路】Shape属性用来设置形状控件的形状。其取值及边框形状如下：0：矩形，为默认设置；1：正方形；· 2：椭圆； 3：圆； 4：圆角矩形； 5：圆角正方形。 通过将MaxButton、MinButton属性值设置为False使窗体标题栏上不显示最大化和最小化按钮。 【操作步骤】 步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.152。 步骤2：调试并运行程序，关闭程序后按题目要求存盘。 基础题（2）【考点分析】本题考点有：菜单编辑器的使用（标题、名称、内缩符号）。 【解题思路】首先在窗体上通过菜单编辑器建立一个主菜单，将主菜单的可见单选按钮设为不选状态；并设置其子菜单的标题和名称。 弹出式菜单由鼠标右键单击窗体的MouseDown事件来实现。 【操作步骤】 步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.153。 步骤2：编写程序代码。 参考答案 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu file End If End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简单题（1）（1）【考点分析】本题考点有：命令按钮Name、Caption、Enabled属性和组合框的AddItem方法。 【解题思路】通过属性窗口将确定按钮的Enabled属性设为False；将文本框的内容添加到组合框中可由Combo1.AddItem方法实现。 【操作步骤】 步骤1：打开本题工程文件，确定控件的属性。程序中用到的控件及属性见表3.154。 步骤2：分析并编写程序代码。 程序提供代码 Private Sub Command1_Click() Text1 = Combo1.Text Command2.Enabled = True End Sub Private Sub Command2_Click() Combo1.List(Form1.Combo1.ListIndex) = Text1 Text1 = Command2.Enabled = False End Sub Private Sub Command3_Click() Combo1.AddItem 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 = HScroll1.Value green = HScroll2.Value Timer1.Enabled = True End Sub Private Sub Timer1_Timer() If Picture1.Visible Then red = red - 1 If red = 0 Then Picture1.Visible = False Picture3.Visible = True End If ElseIf Picture3.Visible Then Picture3.Visible = False If red = 0 Then Picture2.Visible = True red = HScroll1.Value Else Picture1.Visible = True green = HScroll2.Value End If ElseIf Picture2.Visible