VB程序设计 第九章课后习题答案.docVIP

第九章课后习题答案 一、选择题 1 2 3 4 5 6 7 8 9 10 C B B C D C A B C B 11 12 13 14 15 16 17 18 19 20 A A C B A A D B B C 二、填空题 1、2—下拉式列表框 Style 2 2、文本框 列表框 3、Inteval 500 4、Scroll 5、List 0 Clear 6、没有方法，也没有外观 四、设计题 1、 Private Sub Option1_Click() Text1.FontSize = 10 End Sub Private Sub Option2_Click() Text1.FontSize = 12 End Sub Private Sub Option3_Click() Text1.FontSize = 14 End Sub Private Sub Option4_Click() Text1.ForeColor = RGB(255, 0, 0) End Sub Private Sub Option5_Click() Text1.ForeColor = RGB(0, 255, 0) End Sub Private Sub Option6_Click() Text1.ForeColor = RGB(0, 0, 255) End Sub 2、 Private Sub Combo1_Click() Select Case Combo1.ListIndex Case 0 Text1.FontSize = 10 Case 1 Text1.FontSize = 14 Case 2 Text1.FontSize = 18 Case 3 Text1.FontSize = Val(Combo1.Text) End Select End Sub Private Sub Combo2_Click() Select Case Combo2.ListIndex Case 0 Text1.ForeColor = RGB(255, 0, 0) Case 1 Text1.ForeColor = RGB(0, 255, 0) Case 2 Text1.ForeColor = RGB(0, 0, 255) End Select End Sub Private Sub Form_Load() Show Combo1.Text = 字体 Combo1.AddItem 10 Combo1.AddItem 14 Combo1.AddItem 18 Combo1.AddItem 22 Combo2.Text = 颜色 Combo2.AddItem 红色 Combo2.AddItem 绿色 Combo2.AddItem 蓝色 End Sub 3、 Private Sub Option1_Click(Index As Integer) Select Case Option1(Index).Index Case 0 label1.Left = 0 Case 1 label1.Left = (Me.ScaleWidth - label1.Width) / 2 Case 2 label1.Left = Me.ScaleWidth - label1.Width End Select End Sub 4、 Private Sub Command1_Click() If Option1.Value = True Then Text2 = Text1 - 100 Else Text2 = Text1 - 105 End If End Sub 5、 Private Sub Command1_Click() s = 0 If Option1.Value = True Then s = Val(Text1) ElseIf Option2.Value = True Then s = Val(Text1) * 1.2 Else s = Val(Text1) * 1.4 End If If Check1.Value = 0 And Check2.Value = 1 Then s = s / 4 ElseIf Check1.Value = 1 Then s = s * 1.3 End If Label2.Caption = 总学时： s End Sub 6、 Private Sub command1_Click() Form2.Show Form2.Cls Form2.Print 您点中了以下; Form1.List2.Lis