VB程序设计 第九章课后习题答案.docx
- 文档编号:30519612
- 上传时间:2023-08-16
- 格式:DOCX
- 页数:15
- 大小:16.86KB
VB程序设计 第九章课后习题答案.docx
《VB程序设计 第九章课后习题答案.docx》由会员分享,可在线阅读,更多相关《VB程序设计 第九章课后习题答案.docx(15页珍藏版)》请在冰豆网上搜索。
VB程序设计第九章课后习题答案
第九章课后习题答案
一、选择题
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—下拉式列表框Style2
2、文本框列表框
3、Inteval500
4、Scroll
5、List0Clear
6、没有方法,也没有外观
四、设计题
1、
PrivateSubOption1_Click()
Text1.FontSize=10
EndSub
PrivateSubOption2_Click()
Text1.FontSize=12
EndSub
PrivateSubOption3_Click()
Text1.FontSize=14
EndSub
PrivateSubOption4_Click()
Text1.ForeColor=RGB(255,0,0)
EndSub
PrivateSubOption5_Click()
Text1.ForeColor=RGB(0,255,0)
EndSub
PrivateSubOption6_Click()
Text1.ForeColor=RGB(0,0,255)
EndSub
2、
PrivateSubCombo1_Click()
SelectCaseCombo1.ListIndex
Case0
Text1.FontSize=10
Case1
Text1.FontSize=14
Case2
Text1.FontSize=18
Case3
Text1.FontSize=Val(Combo1.Text)
EndSelect
EndSub
PrivateSubCombo2_Click()
SelectCaseCombo2.ListIndex
Case0
Text1.ForeColor=RGB(255,0,0)
Case1
Text1.ForeColor=RGB(0,255,0)
Case2
Text1.ForeColor=RGB(0,0,255)
EndSelect
EndSub
PrivateSubForm_Load()
Show
Combo1.Text="字体"
Combo1.AddItem"10"
Combo1.AddItem"14"
Combo1.AddItem"18"
Combo1.AddItem"22"
Combo2.Text="颜色"
Combo2.AddItem"红色"
Combo2.AddItem"绿色"
Combo2.AddItem"蓝色"
EndSub
3、
PrivateSubOption1_Click(IndexAsInteger)
SelectCaseOption1(Index).Index
Case0
label1.Left=0
Case1
label1.Left=(Me.ScaleWidth-label1.Width)/2
Case2
label1.Left=Me.ScaleWidth-label1.Width
EndSelect
EndSub
4、
PrivateSubCommand1_Click()
IfOption1.Value=TrueThen
Text2=Text1-100
Else
Text2=Text1-105
EndIf
EndSub
5、
PrivateSubCommand1_Click()
s=0
IfOption1.Value=TrueThen
s=Val(Text1)
ElseIfOption2.Value=TrueThen
s=Val(Text1)*1.2
Else
s=Val(Text1)*1.4
EndIf
IfCheck1.Value=0AndCheck2.Value=1Then
s=s/4
ElseIfCheck1.Value=1Then
s=s*1.3
EndIf
Label2.Caption="总学时:
"&s
EndSub
6、
PrivateSubcommand1_Click()
Form2.Show
Form2.Cls
Form2.Print"您点中了以下";Form1.List2.ListCount;"个菜:
"
Fori=0ToForm1.List2.ListCount-1
Form2.PrintForm1.List2.List(i)
Next
EndSub
PrivateSubCommand2_Click()
List2.RemoveItemList2.ListIndex
EndSub
PrivateSubCommand3_Click()
List2.Clear
EndSub
PrivateSubCommand4_Click()
End
EndSub
PrivateSubForm_Load()
List1.AddItem"鱼香肉丝"
List1.AddItem"麻婆豆腐"
List1.AddItem"京酱肉丝"
List1.AddItem"水煮肉片"
List1.AddItem"宫保鸡丁"
List1.AddItem"酸菜鱼"
EndSub
PrivateSubList1_DblClick()
Fori=0ToList2.ListCount-1
IfList2.List(i)=List1.TextThenExitFor
Nexti
Ifi=List2.ListCountThen
List2.AddItemList1.Text
EndIf
EndSub
7、
PrivateSubCombo2_Click()
SelectCaseVal(Combo2.Text)
Case1,3,5,7,8,10,12
t=31
Case4,6,9,11
t=30
Case2
IfCombo1.TextMod4=0AndCombo1.TextMod100<>0OrCombo1.TextMod400=0Then
t=29
Else
t=28
EndIf
EndSelect
Combo3.Clear
Combo3.Text="日数"
Fori=1Tot
Combo3.AddItemStr(i)
Next
EndSub
PrivateSubForm_Load()
Combo1.Text="年份"
Fori=1995To2050
Combo1.AddItemStr(i)
Next
Combo2.Text="月份"
Fori=1To12
Combo2.AddItemStr(i)
Next
Combo3.Text="日数"
Fori=1To31
Combo3.AddItemStr(i)
Next
EndSub
8、
PrivateSubHScroll1_Change()
Label4.Caption=HScroll1.Value
Me.BackColor=RGB(HScroll1.Value,HScroll2.Value,HScroll3.Value)
EndSub
PrivateSubHScroll2_Change()
Label5.Caption=HScroll2.Value
Me.BackColor=RGB(HScroll1.Value,HScroll2.Value,HScroll3.Value)
EndSub
PrivateSubHScroll3_Change()
Label6.Caption=HScroll3.Value
Me.BackColor=RGB(HScroll1.Value,HScroll2.Value,HScroll3.Value)
EndSub
9、
PrivateSubForm_Load()
Image1.Picture=LoadPicture("E:
\ghy\万里图片\4.jpg")
EndSub
PrivateSubForm_Resize()
Image1.Width=Me.Width
Image1.Height=Me.Height
EndSubv
10、
Dims
PrivateSubForm_Load()
Label1.Caption="程序已经运行了:
0秒"
Timer1.Interval=1000
Timer1.Enabled=True
EndSub
PrivateSubTimer1_Timer()
s=s+1
Label1.Caption="程序已经运行了:
"&Str(s)&"秒"
EndSub
11、
PrivateSubCommand1_Click()
List2.AddItemList1.Text
List1.RemoveItemList1.ListIndex
EndSub
PrivateSubCommand2_Click()
List1.AddItemList2.Text
List2.RemoveItemList2.ListIndex
EndSub
PrivateSubForm_Load()
List1.AddItem"清华大学"
List1.AddItem"北京大学"
List1.AddItem"中国人民大学"
List1.AddItem"北京师范大学"
List1.AddItem"北京理工大学"
EndSub
12、
PrivateSubCommand1_Click()
IfTrim(Text1)<>""Then
List1.AddItemTrim(Text1)
Text1=""
Text1.SetFocus
Label2.Caption="院校数:
"&List1.ListCount
Else
MsgBox"请先输入院校名!
"
EndIf
EndSub
PrivateSubCommand2_Click()
IfTrim(Text1)<>""Then
Fori=0ToList1.ListCount-1
IfList1.List(i)=Trim(Text1)Then
List1.RemoveItemi
Text1=""
ExitFor
EndIf
Next
Ifi>List1.ListCountThenMsgBox"您输入的院校不存在!
"
Else
MsgBox"请先输入院校名!
"
EndIf
Label2.Caption="院校数:
"&List1.ListCount
EndSub
PrivateSubCommand3_Click()
List1.Clear
Text1=""
EndSub
PrivateSubCommand4_Click()
End
EndSub
13、
PrivateSubCheck1_Click(IndexAsInteger)
SelectCaseIndex
Case0
IfCheck1(0).Value=1ThenText1.FontBold=TrueElseText1.FontBold=False
Case1
IfCheck1
(1).Value=1ThenText1.FontItalic=TrueElseText1.FontItalic=False
Case2
IfCheck1
(2).Value=1ThenText1.FontUnderline=TrueElseText1.FontUnderline=False
Case3
IfCheck1(3).Value=1ThenText1.FontStrikethru=TrueElseText1.FontStrikethru=False
EndSelect
EndSub
PrivateSubCommand1_Click()
HScroll1.Value=8
Fori=0To3
Check1(i).Value=0
Option1(i).Value=False
Option2(i).Value=False
Next
Text1.FontSize=12
Text1.FontName="宋体"
Text1.ForeColor=vbBlack
EndSub
PrivateSubCommand2_Click()
End
EndSub
'将text1的属性MultiLine设置为“True”
PrivateSubForm_Load()
Text1="好雨知时节,"&vbCrLf&"当春乃发生。
"&vbCrLf&"随风潜入夜,"&vbCrLf&"润物细无声。
"
HScroll1.Min=8
HScroll1.Max=80
Text1.FontSize=12
Text1.FontName="宋体"
Text1.ForeColor=vbBlack
EndSub
PrivateSubHScroll1_Change()
Text1.FontSize=HScroll1.Value
EndSub
PrivateSubOption1_Click(IndexAsInteger)
SelectCaseIndex
Case0
Text1.FontName="魏碑"
Case1
Text1.FontName="华文行楷"
Case2
Text1.FontName="隶书"
Case3
Text1.FontName="幼圆"
EndSelect
EndSub
PrivateSubOption2_Click(IndexAsInteger)
SelectCaseIndex
Case0
Text1.ForeColor=vbRed
Case1
Text1.ForeColor=vbBlue
Case2
Text1.ForeColor=vbGreen
Case3
Text1.ForeColor=vbBlack
EndSelect
EndSub
14、
PrivateSubCommand1_Click()
IfOption1.ValueThena=Option1.Caption
IfOption1.ValueThena=Option1.Caption
Fori=0To2
IfOption3(i).ValueThenb=Option3(i).Caption
Next
IfCheck1.Value=1Thenc=c&" "&Check1.Caption
IfCheck2.Value=1Thenc=c&" "&Check2.Caption
IfCheck3.Value=1Thenc=c&" "&Check3.Caption
IfCheck4.Value=1Thenc=c&" "&Check4.Caption
IfCheck5.Value=1Thenc=c&" "&Check5.Caption
Text2=Text1&""&a&""&b&""&"爱好有:
"&c
EndSub
15、
PrivateSubForm_Load()
Timer1.Interval=500
Me.Caption="欢迎界面"
Label1.Caption="欢迎"
Label1.FontSize=40
Label1.FontBold=True
Label1.AutoSize=True
Label1.ForeColor=RGB(0,0,0)
Label1.Left=(Me.ScaleWidth-Label1.Width)/2
Label1.Top=(Me.ScaleHeight-Label1.Height)/2
Label2.Caption="欢迎来到VB编程世界!
"
Label2.AutoSize=True
Label2.FontSize=14
Label2.Top=Me.ScaleHeight-Label2.Height-100
Label2.ForeColor=RGB(255,0,0)
EndSub
PrivateSubTimer1_Timer()
DimrAsInteger,gAsInteger,bAsInteger
r=Int(256*Rnd)
g=Int(256*Rnd)
b=Int(256*Rnd)
Label1.ForeColor=RGB(r,g,b)
IfLabel2.Left<-Label2.WidthThen
Label2.Left=Me.ScaleWidth
Else
Label2.Left=Label2.Left-100
EndIf
EndSub
16、
PrivateSubForm_Load()
X=Rnd*100
Y=Rnd*100
EndSub
PrivateSubTimer1_Timer()
Image1.MoveImage1.Left+X,Image1.Top+Y
IfImage1.Left<0OrImage1.Top<0Then
X=Rnd*100
Y=Rnd*100
ElseIfImage1.Left>Me.ScaleWidth-Image1.WidthOrImage1.Top>Me.ScaleHeight-Image1.HeightThen
X=-Rnd*100
Y=-Rnd*100
EndIf
EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB程序设计 第九章课后习题答案 VB 程序设计 第九 课后 习题 答案