北邮-计算机实习总结报告

电子工程学院2014计算机实习报告学院：电子工程学院班级：2012211202学号：2012210863姓名：王艺霏班内序号：24一、倒计时器程序要求：制作一个倒计时器，输入倒计时时间后，显示剩余时间，时间到后有提示音和提示画面。汇编语言：MicrosoftVisualBasic开发工具：MicrosoftVisualBasic6.0设计思路：1.设计基本框图如图：2.基本功能实现调用Timer控件，使输入时、分、秒后点击开始控件可以开始倒计时，点击停止控件可以暂停，点击复位控件可以把时间清零重新输入。剩余时间在中间空白text框中显示。编写完成运行后，如图：此时已实现倒计时器基本功能。3.实现提示音乐功能插入WindowsMediaPlayer控件，路径插入相应歌曲，设置时间到时音乐响起并且设置点击停止按钮时音乐停止。提示音乐：快门慢舞-李心艾&邱凯伟4.优化界面排版、加入背景图片、修改字体、更改控件位置大小及颜色等。如图：运行前：运行后：到时时弹出画面：源代码：PrivateSubh_Change()'时h=Int(Val(h))Ifh23ThenMsgBox时间格式不对，请重新输入'检查时间格式ElseIfh0ThenMsgBox时间格式不对，请重新输入EndIfEndSubPrivateSubm_Change()'分m=Int(Val(m))Ifm59ThenMsgBox时间格式不对，请重新输入'检查时间格式ElseIfm0ThenMsgBox时间格式不对，请重新输入EndIfEndSubPrivateSubs_Change()'秒s=Int(Val(s))Ifs59ThenMsgBox时间格式不对，请重新输入'检查时间格式ElseIfs0ThenMsgBox时间格式不对，请重新输入EndIfEndSubPrivateSubstart_Click()'对开始计时按钮进行代码编写Ifh=0Andm=0Ands=0ThenTimer1.Enabled=FalseEndIfTimer1.Enabled=TrueEndSubPrivateSubstop_Click()'对停止计时按钮进行代码编写Timer1.Enabled=Falsemusic.Controls.stopEndSubPrivateSubreset_Click()'对复位按钮进行代码编写Timer1.Enabled=Falseh=0:m=0:s=0EndSubPrivateSubForm_Load()'剩余时间显示h=0m=0s=0Text1.Text=h&时:&m&分:&s&秒music.Controls.stopEndSubPrivateSubTimer1_Timer()'对Timer控件进行代码编写Ifh=0Andm=0Ands=0ThenTimer1.Enabled=Falsemusic.Controls.play'提示音乐MsgBox时间到啦~快去学习吧T_T'提示画面ElseIfs=0Then'倒计时s=59Ifm=0Thenm=59:h=h-1Elsem=m-1EndIfElses=s-1EndIfText1.Text=h&时:&m&分:&s&秒EndSub流程图二、算术运算测试程序程序要求：设计一个可供小学数学运算的程序。0~100整数加减乘除四则运算，如结果为小数保留小数点后两位。根据输入题数出题，题目应为随机，每次应不一样。判断是否正确，如不正确给出正确答案，并计算分数，分数为正确题目的百分比。汇编语言：MicrosoftVisualBasic开发工具：MicrosoftVisualBasic6.0开始定义变量设计控件将输入时间赋给Timer控件h=0;m=0;s=0弹出提示对话框提示音乐确定关闭音乐结束设计思路：1.设计基本框图如图：2.基本功能实现题目随机：调用随机函数，使电脑随机出0~100的数字。设定加减乘除为事件，随机时间。判断正误：设定text文本框计入答案，可见性为false，若所填答案与之相等，则正误判断为正确，且在记录正确题数的text框内数字+1。计算成绩：100/题目数*题目正确数记录题数：统计点击开始控件次数，次数达到输入题目数时弹出请提交试卷对话框。如图：3.功能拓展历史记录：设计history文本框，使之记录所出题目，所填答案，答题情况，及正确答案。隐藏：如果不希望看到答题情况，可以点击“答题情况”和“历史记录”控件进行隐藏或显示。4.画面优化排版、加入背景图片、修改字体、更改控件位置大小及颜色等。如图：运行前：运行后：隐藏后：提交试卷：源代码：PrivateSubForm_Load()rnum.Text=0’默认答对数目为0EndSubPrivateSubCommand1_Click()'对开始/下一题按钮进行代码编写StaticnAsInteger’记录点击开始控件次数n=n+1Ifnnum.TextThenMsgBox已经是最后一道题啦，请提交试卷：）’出题数与题目数相等，请提交试卷ElseText1.Text=’清空出题框Text2.Text=ans.Text=Randomize’调用随机函数Text1.Text=Int(100*Rnd+1)Text2.Text=Int(100*Rnd+1)check=Int(4*Rnd+1)’随机生成事件SelectCasecheckCaseIs=1Label2.Caption=＋Text3.Text=Val(Text1)+Val(Text2)CaseIs=2Label2.Caption=－Text3.Text=Val(Text1)-Val(Text2)CaseIs=3Label2.Caption=×Text3.Text=Val(Text1)*Val(Text2)CaseElseLabel2.Caption=÷Text3.Text=Val(Text1)/Val(Text2)Text3.Text=Format(Text3.Text,0.00)EndSelectEndIftorf.Text=’清空正误框及正确答案框rans.Text=history.SelStart=Len(history.Text)history.SelText=Text1.Text&Label2.Caption&Text2.Text&=’将题目录入历史文本EndSubPrivateSubCommand2_Click()'对检验按钮进行代码编写IfVal(ans.Text)=Val(Text3.Text)Then’判断答题是否正确torf.Text=正确Elsetorf.Text=错误EndIfrans.Text=Text3.Texthistory.SelStart=Len(history.Text)history.SelText=ans.Text&vbCrLf&正误:&torf.Text&vbCrLf&正确答案:&rans.Text&vbCrLf’将答题情况及正确答案录入历史文本Iftorf.Text=正确Then’统计答题正确题目数rnum.Text=rnum.Text+1ElseIftorf.Text=错误Thenrnum.Text=rnum.TextEndIfEndSubPrivateSubCommand3_Click()'对提交试卷按钮进行代码编写DimcAsDouble’计算成绩DimdAsDoublec=100/num.Textd=c*rnum.Textd=Format(d,0)Ifd80Andd=100ThenMsgBox本次成绩为：&d&&你很棒，请继续努力：）ElseIfd60Andd=80ThenMsgBox本次成绩为：&d&&基础不够扎实，请多多练习：）ElseIfd=60ThenMsgBox本次成绩为：&d&&成绩太低啦！快抓紧学习:(EndIfEndSubPrivateSubcommand4_Click()'对历史记录按钮进行代码编写Ifhistory.Visible=FalseThen’若不可见，则可见history.Visible=TrueElseIfhistory.Visible=TrueThen’若可见，则不可见history.Visible=FalseEndIfEndSubPrivateSubCommand5_Click()'对答题情况按钮进行代码编写Iftorf.Visible=FalseThen’若不可见，则可见torf.Visible=Truerans.Visible=TrueLabel5.Visible=TrueLabel6.Visible=TrueElseIftorf.Visible=TrueThen’若可见，则不可见torf.Visible=Falserans.Visible=FalseLabel5.Visible=FalseLabel6.Visible=FalseEndIfEndSub流程图三、健康计算器程序要求：设计一个测量身体BMI指数和体脂率的健康计算器汇编语言：MicrosoftVisualBasic开发工具：MicrosoftVisualBasic6.0开始定义变量设计控件随机出题输入答案判断正误显示正误显示正确答案正确题数+1显示正误显示正确答案正确题数不变显示/隐藏答题情况/历史记录提交试卷成绩=100/题目数*正确数结束设计思路：1.设计基本框图如图：2.基本功能实现利用题目中所给公式对BMI指数和体脂率进行计算。3.功能拓展健康小贴士：结合BMI指数及体脂率给予你健康方面的建议，让你可以更健康的生活。4.界面优化运行前：运行后：求算BMI指数：求算体脂率：健康小贴士：源代码：PrivateSubCommand1_Click()'对计算BMI指数按钮进行代码编写DimaAsDoubleDimbAsDoubleDimgAsDoubleg=shengao.Texta=g*gb=weight.Text/ab=Format(b,0.0)Ifb18.5ThenMsgBoxBMI指数为&b&，体重过低，你太瘦啦！ElseIf18.5=b24ThenMsgBoxBMI指数为&b&，体重正常，继续保持：）ElseIf24=b28ThenMsgBoxBMI指数为&b&，体重超重，请控制饮食~ElseIfb=28ThenMsgBoxBMI指数为&b&，体重肥胖，请尽快减肥！！！EndIfEndSubPrivateSubCommand2_Click()'对体脂率计算按钮进行代码编写DimcAsDoubleDimdAsDoubleDimeAsDoubleDimfAsDoubleDimhAsDoublec=waistline.Text*0.74IfOption2.Value=TrueThend=waistline.Text*0.082h=d+34.89ElseIfOption1.Value=TrueThend=waistline.Text*0.082h=d+44.74EndIfe=c-hf=e/waistline.Text*100f=Format(f,0.00)IfOption2.Value=TrueThenIff=13ThenMsgBox体脂率为&f&%，不用担心，这是必要脂肪哦~ElseIf13f=20ThenMsgBox体脂率为&f&%，哇哦，你是运动员届一颗冉冉升起的新星~ElseIf20f=24ThenMsgBox体脂率为&f&%，你很健康哦~ElseIf24f=32ThenMsgBox体脂率为&f&%，有些高，但还可接受：）ElseIff32ThenMsgBox体脂率为&f&%，已属肥胖，请尽快减肥！！EndIfEndIfIfOption1.Value=TrueThenIff=5ThenMsgBox体脂率为&f&%，不用担心，这是必要脂肪哦~ElseIf5f=13ThenMsgBox体脂率为&f&%，哇哦，你是运动员届一颗冉冉升起的新星~ElseIf13f=17ThenMsg