1、VB程序设计 第九章课后习题答案第九章课后习题答案一、选择题12345678910CBBCDCABCB11121314151617181920AACBAADBBC二、填空题1、2下拉式列表框 Style 22、文本框 列表框3、Inteval 5004、Scroll5、List 0 Clear6、没有方法,也没有外观四、设计题1、Private Sub Option1_Click()Text1.FontSize = 10End SubPrivate Sub Option2_Click()Text1.FontSize = 12End SubPrivate Sub Option3_Click()T
2、ext1.FontSize = 14End SubPrivate Sub Option4_Click()Text1.ForeColor = RGB(255, 0, 0)End SubPrivate Sub Option5_Click()Text1.ForeColor = RGB(0, 255, 0)End SubPrivate Sub Option6_Click()Text1.ForeColor = RGB(0, 0, 255)End Sub2、Private Sub Combo1_Click()Select Case Combo1.ListIndex Case 0 Text1.FontSiz
3、e = 10 Case 1 Text1.FontSize = 14 Case 2 Text1.FontSize = 18 Case 3 Text1.FontSize = Val(Combo1.Text)End SelectEnd SubPrivate 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 Sele
4、ctEnd SubPrivate Sub Form_Load()ShowCombo1.Text = 字体Combo1.AddItem 10Combo1.AddItem 14Combo1.AddItem 18Combo1.AddItem 22Combo2.Text = 颜色Combo2.AddItem 红色Combo2.AddItem 绿色Combo2.AddItem 蓝色End Sub3、Private Sub Option1_Click(Index As Integer)Select Case Option1(Index).Index Case 0 label1.Left = 0 Case
5、1 label1.Left = (Me.ScaleWidth - label1.Width) / 2 Case 2 label1.Left = Me.ScaleWidth - label1.WidthEnd SelectEnd Sub4、Private Sub Command1_Click()If Option1.Value = True Then Text2 = Text1 - 100Else Text2 = Text1 - 105End IfEnd Sub5、Private Sub Command1_Click()s = 0If Option1.Value = True Then s =
6、Val(Text1)ElseIf Option2.Value = True Then s = Val(Text1) * 1.2Else s = Val(Text1) * 1.4End IfIf Check1.Value = 0 And Check2.Value = 1 Then s = s / 4ElseIf Check1.Value = 1 Then s = s * 1.3End IfLabel2.Caption = 总学时: & sEnd Sub6、Private Sub command1_Click()Form2.ShowForm2.ClsForm2.Print 您点中了以下; Form
7、1.List2.ListCount; 个菜:For i = 0 To Form1.List2.ListCount - 1 Form2.Print Form1.List2.List(i)NextEnd SubPrivate Sub Command2_Click()List2.RemoveItem List2.ListIndexEnd SubPrivate Sub Command3_Click()List2.ClearEnd SubPrivate Sub Command4_Click()EndEnd SubPrivate Sub Form_Load()List1.AddItem 鱼香肉丝List1
8、.AddItem 麻婆豆腐List1.AddItem 京酱肉丝List1.AddItem 水煮肉片List1.AddItem 宫保鸡丁List1.AddItem 酸菜鱼End SubPrivate Sub List1_DblClick()For i = 0 To List2.ListCount - 1 If List2.List(i) = List1.Text Then Exit ForNext iIf i = List2.ListCount Then List2.AddItem List1.TextEnd IfEnd Sub7、Private Sub Combo2_Click()Select
9、 Case Val(Combo2.Text) Case 1, 3, 5, 7, 8, 10, 12 t = 31 Case 4, 6, 9, 11 t = 30 Case 2 If Combo1.Text Mod 4 = 0 And Combo1.Text Mod 100 0 Or Combo1.Text Mod 400 = 0 Then t = 29 Else t = 28 End IfEnd SelectCombo3.ClearCombo3.Text = 日数For i = 1 To t Combo3.AddItem Str(i)NextEnd SubPrivate Sub Form_Lo
10、ad()Combo1.Text = 年份For i = 1995 To 2050 Combo1.AddItem Str(i)NextCombo2.Text = 月份For i = 1 To 12 Combo2.AddItem Str(i)NextCombo3.Text = 日数For i = 1 To 31 Combo3.AddItem Str(i)NextEnd Sub8、Private Sub HScroll1_Change()Label4.Caption = HScroll1.ValueMe.BackColor = RGB(HScroll1.Value, HScroll2.Value,
11、HScroll3.Value)End SubPrivate Sub HScroll2_Change()Label5.Caption = HScroll2.ValueMe.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)End SubPrivate Sub HScroll3_Change()Label6.Caption = HScroll3.ValueMe.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)End Sub9、Private Su
12、b Form_Load()Image1.Picture = LoadPicture(E:ghy万里图片4.jpg)End SubPrivate Sub Form_Resize()Image1.Width = Me.WidthImage1.Height = Me.HeightEnd Subv10、Dim sPrivate Sub Form_Load()Label1.Caption = 程序已经运行了:0秒Timer1.Interval = 1000Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()s = s + 1Label1.Capti
13、on = 程序已经运行了: & Str(s) & 秒End Sub11、Private Sub Command1_Click()List2.AddItem List1.TextList1.RemoveItem List1.ListIndexEnd SubPrivate Sub Command2_Click()List1.AddItem List2.TextList2.RemoveItem List2.ListIndexEnd SubPrivate Sub Form_Load()List1.AddItem 清华大学List1.AddItem 北京大学List1.AddItem 中国人民大学Lis
14、t1.AddItem 北京师范大学List1.AddItem 北京理工大学End Sub12、Private Sub Command1_Click()If Trim(Text1) Then List1.AddItem Trim(Text1) Text1 = Text1.SetFocus Label2.Caption = 院校数: & List1.ListCountElse MsgBox 请先输入院校名!End IfEnd SubPrivate Sub Command2_Click()If Trim(Text1) Then For i = 0 To List1.ListCount - 1 If
15、List1.List(i) = Trim(Text1) Then List1.RemoveItem i Text1 = Exit For End If Next If i List1.ListCount Then MsgBox 您输入的院校不存在!Else MsgBox 请先输入院校名!End IfLabel2.Caption = 院校数: & List1.ListCountEnd SubPrivate Sub Command3_Click()List1.ClearText1 = End SubPrivate Sub Command4_Click()EndEnd Sub13、Private S
16、ub Check1_Click(Index As Integer)Select Case Index Case 0 If Check1(0).Value = 1 Then Text1.FontBold = True Else Text1.FontBold = False Case 1 If Check1(1).Value = 1 Then Text1.FontItalic = True Else Text1.FontItalic = False Case 2 If Check1(2).Value = 1 Then Text1.FontUnderline = True Else Text1.Fo
17、ntUnderline = False Case 3 If Check1(3).Value = 1 Then Text1.FontStrikethru = True Else Text1.FontStrikethru = FalseEnd SelectEnd SubPrivate Sub Command1_Click()HScroll1.Value = 8For i = 0 To 3 Check1(i).Value = 0 Option1(i).Value = False Option2(i).Value = FalseNextText1.FontSize = 12Text1.FontName
18、 = 宋体Text1.ForeColor = vbBlackEnd SubPrivate Sub Command2_Click()EndEnd Sub将text1的属性MultiLine设置为“True”Private Sub Form_Load()Text1 = 好雨知时节, & vbCrLf & 当春乃发生。 & vbCrLf & 随风潜入夜, & vbCrLf & 润物细无声。HScroll1.Min = 8HScroll1.Max = 80Text1.FontSize = 12Text1.FontName = 宋体Text1.ForeColor = vbBlackEnd SubPriv
19、ate Sub HScroll1_Change()Text1.FontSize = HScroll1.ValueEnd SubPrivate Sub Option1_Click(Index As Integer)Select Case Index Case 0 Text1.FontName = 魏碑 Case 1 Text1.FontName = 华文行楷 Case 2 Text1.FontName = 隶书 Case 3 Text1.FontName = 幼圆End SelectEnd SubPrivate Sub Option2_Click(Index As Integer)Select
20、Case Index Case 0 Text1.ForeColor = vbRed Case 1 Text1.ForeColor = vbBlue Case 2 Text1.ForeColor = vbGreen Case 3 Text1.ForeColor = vbBlackEnd SelectEnd Sub14、Private Sub Command1_Click()If Option1.Value Then a = Option1.CaptionIf Option1.Value Then a = Option1.CaptionFor i = 0 To 2 If Option3(i).Va
21、lue Then b = Option3(i).CaptionNextIf Check1.Value = 1 Then c = c & & Check1.CaptionIf Check2.Value = 1 Then c = c & & Check2.CaptionIf Check3.Value = 1 Then c = c & & Check3.CaptionIf Check4.Value = 1 Then c = c & & Check4.CaptionIf Check5.Value = 1 Then c = c & & Check5.CaptionText2 = Text1 & & a
22、& & b & & 爱好有: & cEnd Sub15、Private Sub Form_Load()Timer1.Interval = 500Me.Caption = 欢迎界面Label1.Caption = 欢迎Label1.FontSize = 40Label1.FontBold = TrueLabel1.AutoSize = TrueLabel1.ForeColor = RGB(0, 0, 0)Label1.Left = (Me.ScaleWidth - Label1.Width) / 2Label1.Top = (Me.ScaleHeight - Label1.Height) / 2
23、Label2.Caption = 欢迎来到VB编程世界!Label2.AutoSize = TrueLabel2.FontSize = 14Label2.Top = Me.ScaleHeight - Label2.Height - 100Label2.ForeColor = RGB(255, 0, 0)End SubPrivate Sub Timer1_Timer()Dim r As Integer, g As Integer, b As Integerr = Int(256 * Rnd)g = Int(256 * Rnd)b = Int(256 * Rnd)Label1.ForeColor
24、= RGB(r, g, b)If Label2.Left -Label2.Width Then Label2.Left = Me.ScaleWidthElse Label2.Left = Label2.Left - 100End IfEnd Sub16、Private Sub Form_Load()X = Rnd * 100Y = Rnd * 100End SubPrivate Sub Timer1_Timer()Image1.Move Image1.Left + X, Image1.Top + YIf Image1.Left 0 Or Image1.Top Me.ScaleWidth - Image1.Width Or Image1.Top Me.ScaleHeight - Image1.Height Then X = -Rnd * 100 Y = -Rnd * 100End IfEnd Sub