面向对象程序(vb)设计实习报告模板.doc
《面向对象程序(vb)设计实习报告模板.doc》由会员分享，可在线阅读，更多相关《面向对象程序(vb)设计实习报告模板.doc（8页珍藏版）》请在冰豆网上搜索。
（本报告为vb实习报告，封面请自行填写）
实习报告
题目:
所属系、部:
班级:
姓名:
学号:
指导教师:
2011年6月
一、实习目的
熟练掌握面向对象的概念、特点和基本的程序设计方法，熟悉使用常用的算
法解决实际问题。
二、实习时间
2011年6月13日-17日
三、实习地点
教学楼A302机房
四、实习内容
1、编写程序，将乘法“九九表”存入数组中，单击显示按扭，可以在当前窗口中显示出来；单击交换按扭后，弹出输入框，根据输入框里输入的数据交换乘法“九九表”中任意两行对应的数。
《99乘法表交换》设计代码
Dima（9）
Dimb（9）
PrivateSubCommand1_Click（）
Fori=1To9
a（i）=i
Forj=1Toi
Printa（i）&"*"&a（j）&"=";a（i）*a（j）;
Nextj
Print
Nexti
EndSub
PrivateSubCommand2_Click（）
Fori=1To9
a（i）=i
Nexti
Dimm%,n%
m=InputBox（"输入第一行号"）
n=InputBox（"输入第二行号"）
Fori=1To9
a（i）=i
Ifi=mThen
图1-1《99乘法表交换》设计界面
Fork=1Ton
b（k）=k
Printn&"*"&b（k）&"=";n*b（k）;
Nextk
Print
i=i+1
EndIf
Ifi=nThen
Fork=1Tom
b（k）=k
Printm&"*"&b（k）&"=";m*b（k）;
Nextk
Print
i=i+1
EndIf
Forj=1Toi
Printa（i）&"*"&a（j）&"=";a（i）*a（j）;
Nextj
Print
Nexti
EndSub
图1-1《99乘法表交换》运行界面
2、由随机函数产生10道一位整数与两位整数相加的加法题。
产生的加法题依次显示在屏幕上，每产生一道题后，由用户输入答案，如果答案正确，记10分；如果答案错误，允许第二次输入答案，第二次输入答案正确，记5分，错误记0分。
最后给出总得分。
《十道加法题》设计代码
PrivateSubCommand1_Click（）
s=0
Fori=1To10
a=Int（10*Rnd）
b=Int（10+10*Rnd）
m="第"&i&"题"&a&"+"&b
c=Val（InputBox（m&"第一次回答","作答"））
Ifa+b=cThen
s=s+10
n=m&"10分"
Else
c=Val（InputBox（m&"第二次回答","作答"））
Ifa+b=cThen
s=s+5
n=m&"5分"
Else
n=m&"0分"
EndIf
EndIf
Form1.Printn
Form1.Print"当前得分",s,"分"
Print
Nexti
Form1.Print"总分";s
EndSub
PrivateSubCommand2_Click（）
End
EndSub
PrivateSubForm_Load（）
Form1.AutoRedraw=True
Form1.Print"加法题，单击“开始答题”开始，"
EndSub
图2-1《十道加法题》设计界面
图2-2《十道加法题》运行界面
2、设计一个用户登录检测程序，若用户输入的用户名和密码均无误，显示“欢迎使用本系统”，否则提示用户名或密码错误，请用户重新输入。
若用户名或密码连续三次输入错误，则显示“对不起，您不是本系统的合法用户”，然后退出。
要求系统一共有三个用户，且每个用户对应不同的密码。
《登录界面》设计代码
Dimi%
PrivateSubCommand1_Click（）
Dima$,b$,c$,q,w,e
a="liuyang"
b="linning"
c="lanjun"
q=123
w=456
e=789
If（Text1.Text=aAndText2.Text=q）Or（Text1.Text=bAndText2.Text=w）Or（Text1.Text=cAndText2.Text=e）Then
Label3.Caption="密码正确，欢迎使用本系统"
Print"密码正确，欢迎使用本系统"
Else
Label3.Caption="密码错误，请重新输入"
Text2.Text=""
EndIf
i=i+1
Ifi=3Then
MsgBox"你不是合法用户",48
End
EndIf
EndSub
图3-2《登录窗口》运行界面
图3-1《登录窗口》设计界面
4、编写程序，计算你从出生当天开始计算，到2011年5月31（本题程序计算出生至当前日期）日一共经过了多少天。
要求：
1、出生日期从键盘输入
2、正确处理和判断闰年问题
《出生天数计算》设计代码
PrivateSubCommand1_Click（）
a=Year（Now）
b=Month（Now）
c=Day（Now）
Print"系统当前日期"
Printa,b,c
d=Val（InputBox（"请输入出生年份"））
e=Val（InputBox（"请输入出生月份"））
f=Val（InputBox（"请输入出生日期"））
Fori=d+1Toa-1
IfiMod400=oThen
m=1
ElseIfiMod4=0Then
IfiMod100<>0Then
m=1
Else
m=0
EndIf
Else
m=0
EndIf
Ifm=1Then
k=k+366
Else
k=k+365
EndIf
Nexti
Fori=e+1To12'开始累计出生那一年月份
Ifi=1Ori=3Ori=5Ori=7Ori=8Ori=10Ori=12Then
k=k+31
ElseIfi=4Ori=6Ori=9Ori=11Then
k=k+30
ElseIfi=2Then
k=k+28'考虑出生下一月份为2月是同时为闰年
EndIf
Nexti
Fori=1Tob-1'开始累计今年月份
Ifi=1Ori=3Ori=5Ori=7Ori=8Ori=10Ori=12Then
k=k+31
ElseIfi=4Ori=6Ori=9Ori=11Then
k=k+30
ElseIfi=2Then
k=k+28'
EndIf
Nexti
Ife=1Ore=3Ore=5Ore=7Ore=8Ore=10Ore=12Then
k=k+（31-f）
ElseIfe=4Ori=6Ori=9Ori=11Then
k=k+（30-f）
ElseIfe=2Then
k=k+（28-f）
EndIf
k=k+c
Print
Print"出生至今共";k;"天"
EndSub
PrivateSubCommand2_Click（）
End
图4-2《出生天数计算》运行界面
图4-1《出生天数计算》设计界面
EndSub
5、将一张面值为100元的人民币等值换成100张零钞，面额有5元、1元和0.5元三种，要求每种零钞不少于1张，问有哪几种组合？
要求：
1、将可能的组合情况输出到非窗体的任意一种控件中即可
2、输出格式美观大方
《换钱》设计代码
PrivateSubCommand1_Click（）
DimxAsInteger,yAsInteger,zAsInteger
Picture1.Print"五元","一元","0.5元"
Forx=1To100
Fory=1To100
z=100-x-y
If5*x+y+0.5*z=100ThenPicture1.Printx,y,z
Nexty
Nextx
EndSub
图5-1《换钱》运行界面
五、实习总结
经过了接近一周的实习，真正的在机器上设计和运行
升级会员 