VB课后作业.docVIP

四、实验步骤 第一题： 在新建的窗体上画1个标签和6个形状控件 标签、形状控件的属性设置如下： 控件名称 属性 Label1 Caption=“用形状控件绘制的图形” Fontsize=四号 Fontbold=true Shape1 Shape=0 Fillstyle=0 Shape2 Shape=1 Fillstyle=2 Shape3 Shape=2 Fillstyle=3 Shape4 Shape=3 Fillstyle=4 Shape5 Shape=4 Fillstyle=5 Shape6 Shape=5 Fillstyle=1 各控件布局如下： 5、单击“文件-保存工程”菜单项，以Sy8-1.frm和Sy8-1.vbp文件名保存在D:\VB程序 第二题： 在新建的窗体上画一个图像框和3个命令按钮 图像框、命令按钮的属性设置如下： 控件名称 属性 Image1 Picture=(bitmap) Stretch=true Command1 Caption=”放大图片” Command2 Caption=”缩小图片” Command3 Caption=”恢复图片” 各控件布局如下： 4、双击窗体，打开代码窗口并输入如下代码： Private Sub Command1_Click() Image1.Height = 1600 * 2 ^ 0.5 Image1.Width = 1600 * 2 ^ 0.5 End Sub Private Sub Command2_Click() Image1.Height = 1600 / 2 ^ 0.5 Image1.Width = 1600 / 2 ^ 0.5 End Sub Private Sub Command3_Click() Image1.Height = 1600 Image1.Width = 1600 End Sub 单击“文件-保存工程”菜单项，以Sy8-2.frm和Sy8-2.vbp文件名保存在D:\VB程序 第三题： 在新建的窗体上画3个标签、3个命令按钮、1个计时器、1个文本框和1个列表框 各控件的属性设置如下： 控件名称 属性 Label1 Caption=“模拟秒表” Label2 Caption=“计时：” Label3 Caption=“记录：” Text1 Text=“” Command1 Caption=“开始” Command2 Caption=“记录” Command3 Caption=“停止” 各控件布局如下： 4、双击窗体，打开代码窗口并输入如下代码： Private Sub Form_Load() Timer1.Enabled = False End Sub Private Sub timer1_timer() Timer1.Interval = 1000 Text1.Text = Str$(Time()) End Sub Private Sub command1_click() Timer1.Enabled = True End Sub Private Sub command2_click() List1.AddItem Text1.Text End Sub Private Sub command3_click() Timer1.Enabled = False End Sub 单击“文件-保存工程”菜单项，以Sy8-3.frm和Sy8-3.vbp文件名保存在D:\VB程序 第四题： 在新建的窗体上画1个图片框、1个命令按钮，并以控件数组的形式创建4个单选按钮 各控件的属性设置入下： 控件名称 属性 Option1（0） Caption =”画直线” Option1（1） Caption=“画矩形” Option1（2） Caption=“画圆” Option1（3） Caption=“画椭圆” Command1 Caption=“Cls” 各控件布局如下： 双击窗体，打开代码窗口并输入如下代码： Private Sub Command1_Click() Picture1.Cls End Sub Private Sub form_load() Picture1.Scale (0, 0)-(1000, 1000) End Sub Private Sub Option1_Click(Index As Integer) If Option1(0).Value = True Then Picture1.Line (200, 200)-(800, 800) ElseIf Option1(1).Value =