VB第四次上机作业.docx
- 文档编号:10930804
- 上传时间:2023-02-23
- 格式:DOCX
- 页数:12
- 大小:293.74KB
VB第四次上机作业.docx
《VB第四次上机作业.docx》由会员分享,可在线阅读,更多相关《VB第四次上机作业.docx(12页珍藏版)》请在冰豆网上搜索。
VB第四次上机作业
VB程序设计上机作业
第三次
姓名:
苗守举
学号:
20097321
班级:
铁工二班
2010年12月19日
第162页第13题
程序代码:
PrivateSubCheck1_Click(IndexAsInteger)
IfCheck1(0).Value=1Then
Text1.FontBold=True
Else
Text1.FontBold=False
EndIf
IfCheck1
(1).Value=1Then
Text1.FontUnderline=True
Else
Text1.FontUnderline=False
EndIf
IfCheck1
(2).Value=1Then
Text1.FontItalic=True
Else
Text1.FontItalic=False
EndIf
IfCheck1(3).Value=1Then
Text1.FontStrikethru=True
Else
Text1.FontStrikethru=False
EndIf
EndSub
PrivateSubCommand1_Click()
Option1(0).Value=0:
Option1
(1).Value=0
Option1
(2).Value=0:
Option1(3).Value=0
Option2(0).Value=0:
Option2
(1).Value=0
Option2
(2).Value=0:
Option2(3).Value=0
Check1(0).Value=0:
Check1
(1).Value=0
Check1
(2).Value=0:
Check1(3).Value=0
Text1.FontSize=8
Text1.ForeColor=vbBlack
Text1.Font="仿宋"
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
PrivateSubForm_Load()
Text1.FontSize=8
Text1.Font="仿宋"
EndSub
PrivateSubHScroll1_Change()
Text1.FontSize=HScroll1.Value
EndSub
PrivateSubOption1_Click(IndexAsInteger)
SelectCaseIndex
Case0
Text1.Font="黑体"
Case1
Text1.Font="隶书"
Case2
Text1.Font="楷体"
Case3
Text1.Font="宋体"
EndSelect
EndSub
PrivateSubOption2_Click(IndexAsInteger)
SelectCaseIndex
Case0
Text1.ForeColor=vbRed
Case1
Text1.ForeColor=vbGreen
Case2
Text1.ForeColor=vbBlue
Case3
Text1.ForeColor=vbBlack
EndSelect
EndSub
运行界面:
第162页16题
程序代码:
OptionExplicit
DimxAsInteger
DimyAsInteger
PrivateSubForm_Load()
Randomize
x=Rnd*100
y=Rnd*100
EndSub
PrivateSubTimer1_Timer()
IfImage1.Left+Image1.Width>Form1.WidthOrImage1.Left<0OrImage1.Height+Image1.Top>Form1.HeightOrImage1.Top<0Then
Randomize
x=Rnd*100
y=Rnd*100
EndIf
IfImage1.Left+Image1.Width>Form1.WidthThen
x=-x
ElseIfImage1.Height+Image1.Top>Form1.HeightThen
y=-y
EndIf
Image1.MoveImage1.Left+x,Image1.Top+y
EndSub
运行界面:
第181页第1题
程序代码:
PrivateSubmc_Click()
Text3.Text=Val(Text1.Text)*Val(Text2.Text)
EndSub
PrivateSubmchu_Click()
Text3.Text=Val(Text1.Text)/Val(Text2.Text)
EndSub
PrivateSubmj_Click()
Text3.Text=Val(Text1.Text)+Val(Text2.Text)
EndSub
PrivateSubmjian_Click()
Text3.Text=Val(Text1.Text)-Val(Text2.Text)
EndSub
PrivateSubmq_Click()
Text1.Text=""
Text2.Text=""
Text3.Text=""
EndSub
PrivateSubms_Click()
r=Val(InputBox("请输入上限"))
k=Val(InputBox("请输入下限"))
EndSub
PrivateSubmsheng_Click()
Ifk=0Then
k=100
r=1
EndIf
Randomize
Text1.Text=Int(Rnd*(k-r)+r)
Text2.Text=Int(Rnd*(k-r)+r)
EndSub
PrivateSubmt_Click()
UnloadMe
EndSub
PrivateSubText1_Change()
EndSub
运行界面:
第234页第四题
程序代码:
PrivateTypestu
xhAsString*6
xmAsString*10
psAsSingle
ksAsSingle
EndType
PrivatewjAsString
Privatea(1To100)Asstu
PrivateiAsInteger
Privateb(1To30)AsSingle
PrivateSubCommand1_Click()
wj=InputBox("输入文件路径及名称:
","输入提示")
i=i+1
a(i).xh=InputBox("输入学号:
","输入提示")
a(i).xm=InputBox("输入姓名:
","输入提示")
a(i).ps=InputBox("输入平时成绩:
","输入提示")
a(i).ks=InputBox("输入考试成绩:
","输入提示")
Open"wj"ForAppendAs#1
Print#1,a(i).ps;a(i).ks
Close#1
EndSub
PrivateSubCommand2_Click()
DimjAsInteger
Forj=1Toi
Text1.Text=Text1.Text+vbCrLf+a(j).xh+""+a(j).xm+""+Str(a(j).ps)+""+Str(a(j).ks)+""
Next
EndSub
PrivateSubCommand3_Click()
DimjAsInteger
Forj=1Toi
b(j)=(a(j).ps+a(j).ks)/2
Text2.Text=Text2.Text+vbCrLf+a(j).xh+""+a(j).xm+""+Str(b(j))+""
Next
EndSub
PrivateSubCommand4_Click()
DimjAsInteger
Forj=1Toi
Open"wj"ForAppendAs#1
Print#1,a(j).xh;a(j).xm;b(j)
Close#1
Next
EndSub
运行界面:
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 第四 上机 作业