实验8补充内容（附件）.doc

VB作业 1、设计一个电子钟程序。程序运行界面如下图所示。 Private Sub Form_Load() Label1.Caption = Time() End Sub Private Sub Timer1_Timer() Label1.Caption = Time() End Sub 2、设计一个个人资料输入窗口，使用单选按钮选择性别，组合框列表选择职业，复选框选择爱好，当单击确定按钮，列表框列出个人资料信息，程序运行界面如下图所示。 Private Sub Command1_Click() List1.AddItem Text1 If Option1 Then List1.AddItem 男 Else List1.AddItem 女 End If List1.AddItem Text2 List1.AddItem Text3 List1.AddItem Combo1.Text If Check1 = 1 Then List1.AddItem 上网 If Check2 = 1 Then List1.AddItem 音乐 If Check3 = 1 Then List1.AddItem 篮球 If Check4 = 1 Then List1.AddItem 交友 End Sub Private Sub Command2_Click() List1.Clear End Sub Private Sub Command3_Click() End End Sub 3、设计一个调色板应用程序，使用三个滚动条作为三种基本颜色的输入工具，合成的颜色显示在右边的颜色区（一个标签框），用合成的颜色设置其背景色（BackColor属性）。当完成调色以后，用设置前景颜色或设置背景颜色按钮设置一文本框的前景和背景颜色。程序设计界面如下图所示。 提示：三个滚动条的Max、Min、SmallChange、LargeChange和Value属性分别设置为255、0、1、25和0。 Private Sub Command1_Click() Text1.ForeColor = Label4.BackColor End Sub Private Sub Command2_Click() Text1.BackColor = Label4.BackColor End Sub Private Sub HScroll1_Change() red = HScroll1.Value green = HScroll2.Value blue = HScroll3.Value Label4.BackColor = RGB(red, green, blue) End Sub Private Sub HScroll2_Change() red = HScroll1.Value green = HScroll2.Value blue = HScroll3.Value Label4.BackColor = RGB(red, green, blue) End Sub Private Sub HScroll3_Change() red = HScroll1.Value green = HScroll2.Value blue = HScroll3.Value Label4.BackColor = RGB(red, green, blue) End Sub 4、设计如下图所示界面的程序，程序运行后，输入球的半径，单击“球体积”、“球表面积”复选框，根据复选框是否勾选，决定是否在右侧相应的文本框内显示球体积（4/3）和球表面积（4）的计算值。 Private Sub Check1_Click() If Check1.Value = 1 Then Text2 = 4 / 3 * 3.14 * (Val(Text1)) ^ 3 Else Text2 = End If End Sub Private Sub Check2_Click() If Check2.Value = 1 Then Text3 = 4 * 3.14 * (Val(Text1)) ^ 2 Else Text3 = End If End Sub 5、设计程序界面如下图所示。程序运行时，在文本框中输入一个数值，选择计算函数，然后单击“计算”按钮，在LABEL控件中输出计算结果。 Private Sub Command1_Click() If Option1.Value = True Then Label4.Caption = Sin(Val(Text1.Text)*3.14159/180) End If If Option