VB程序设计 第九章课后习题答案
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
第九章课后习题答案一、选择题
二、填空题
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.ListCount; "个菜：" For i = 0 To Form1.List2.ListCount - 1
Form2.Print Form1.List2.List(i)
Next
End Sub
Private Sub Command2_Click()
List2.RemoveItem List2.ListIndex
End Sub
Private Sub Command3_Click()
List2.Clear
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Form_Load()
List1.AddItem "鱼香肉丝"
List1.AddItem "麻婆豆腐"
List1.AddItem "京酱肉丝"
List1.AddItem "水煮肉片"
List1.AddItem "宫保鸡丁"
List1.AddItem "酸菜鱼"
End Sub
Private Sub List1_DblClick()
For i = 0 To List2.ListCount - 1
If List2.List(i) = List1.Text Then Exit For
Next i
If i = List2.ListCount Then
List2.AddItem List1.Text
End If
End Sub
7、
Private Sub Combo2_Click()
Select 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