北邮 计算机实习总结报告

1、电子工程学院2014计算机实习报告 学院： 电子工程学院 班级： 2012211202 学号： 2012210863 姓名： 王艺霏 班内序号： 24 1、 倒计时器程序要求：制作一个倒计时器，输入倒计时时间后，显示剩余时间，时间到后有提示音和提示画面。汇编语言：Microsoft Visual Basic开发工具：Microsoft Visual Basic 6.0设计思路：1. 设计基本框图如图：2. 基本功能实现调用Timer控件，使输入时、分、秒后点击开始控件可以开始倒计时，点击停止控件可以暂停，点击复位控件可以把时间清零重新输入。剩余时间在中间空白text框中显示。编写完成运行后，如

2、图：此时已实现倒计时器基本功能。3. 实现提示音乐功能插入Windows Media Player控件，路径插入相应歌曲，设置时间到时音乐响起并且设置点击停止按钮时音乐停止。提示音乐：快门慢舞-李心艾&邱凯伟4. 优化界面排版、加入背景图片、修改字体、更改控件位置大小及颜色等。如图：运行前：运行后：到时时弹出画面：源代码：Private Sub h_Change() '时h = Int(Val(h)If h > 23 ThenMsgBox "时间格式不对，请重新输入" '检查时间格式ElseIf h < 0 ThenMsgBox &quo

3、t;时间格式不对，请重新输入"End IfEnd SubPrivate Sub m_Change() '分m = Int(Val(m)If m > 59 ThenMsgBox "时间格式不对，请重新输入" '检查时间格式ElseIf m < 0 ThenMsgBox "时间格式不对，请重新输入"End IfEnd SubPrivate Sub s_Change() '秒s = Int(Val(s)If s > 59 ThenMsgBox "时间格式不对，请重新输入" '检查时

4、间格式ElseIf s < 0 ThenMsgBox "时间格式不对，请重新输入"End IfEnd SubPrivate Sub start_Click() '对开始计时按钮进行代码编写If h = 0 And m = 0 And s = 0 ThenTimer1.Enabled = FalseEnd IfTimer1.Enabled = TrueEnd SubPrivate Sub stop_Click() '对停止计时按钮进行代码编写Timer1.Enabled = Falsemusic.Controls.stopEnd SubPrivate S

5、ub reset_Click() '对复位按钮进行代码编写Timer1.Enabled = Falseh = 0: m = 0: s = 0End SubPrivate Sub Form_Load() '剩余时间显示h = 0m = 0s = 0Text1.Text = h & "时: " & m & "分: " & s & "秒 "music.Controls.stopEnd SubPrivate Sub Timer1_Timer() '对Timer控件进行代码编写If

6、 h = 0 And m = 0 And s = 0 ThenTimer1.Enabled = Falsemusic.Controls.play '提示音乐MsgBox "时间到啦快去学习吧T_T" '提示画面ElseIf s = 0 Then '倒计时s = 59If m = 0 Thenm = 59: h = h - 1Elsem = m - 1End IfElses = s - 1End IfText1.Text = h & "时: " & m & "分: " & s &a

7、mp; "秒 " End Sub流程图开始定义变量设计控件将输入时间赋给Timer控件h=0;m=0;s=0弹出提示对话框提示音乐确定关闭音乐结束2、 算术运算测试程序程序要求：设计一个可供小学数学运算的程序。0100整数加减乘除四则运算，如结果为小数保留小数点后两位。根据输入题数出题，题目应为随机，每次应不一样。判断是否正确，如不正确给出正确答案，并计算分数，分数为正确题目的百分比。汇编语言：Microsoft Visual Basic开发工具：Microsoft Visual Basic 6.0设计思路：1. 设计基本框图如图：2. 基本功能实现题目随机：调用随机函数，

8、使电脑随机出0100的数字。设定加减乘除为事件，随机时间。判断正误：设定text文本框计入答案，可见性为false，若所填答案与之相等，则正误判断为正确，且在记录正确题数的text框内数字+1。计算成绩：100/题目数*题目正确数记录题数：统计点击开始控件次数，次数达到输入题目数时弹出请提交试卷对话框。如图：3. 功能拓展历史记录：设计history文本框，使之记录所出题目，所填答案，答题情况，及正确答案。隐藏：如果不希望看到答题情况，可以点击“答题情况”和“历史记录”控件进行隐藏或显示。4. 画面优化排版、加入背景图片、修改字体、更改控件位置大小及颜色等。如图：运行前：运行后：隐藏后：提交试

9、卷：源代码：Private Sub Form_Load()rnum.Text = 0默认答对数目为0End SubPrivate Sub Command1_Click() '对开始/下一题按钮进行代码编写Static n As Integer记录点击开始控件次数n = n + 1If n > num.Text Then MsgBox "已经是最后一道题啦，请提交试卷：）"出题数与题目数相等，请提交试卷Else Text1.Text = ""清空出题框 Text2.Text = "" ans.Text = "&q

10、uot; Randomize调用随机函数 Text1.Text = Int(100 * Rnd + 1) Text2.Text = Int(100 * Rnd + 1) check = Int(4 * Rnd + 1)随机生成事件 Select Case check Case Is = 1 Label2.Caption = "" Text3.Text = Val(Text1) + Val(Text2) Case Is = 2 Label2.Caption = "" Text3.Text = Val(Text1) - Val(Text2) Case Is

11、= 3 Label2.Caption = "×" Text3.Text = Val(Text1) * Val(Text2) Case Else Label2.Caption = "÷" Text3.Text = Val(Text1) / Val(Text2) Text3.Text = Format(Text3.Text, "0.00") End SelectEnd Iftorf.Text = ""清空正误框及正确答案框rans.Text = ""history.SelStar

12、t = Len(history.Text)history.SelText = Text1.Text & Label2.Caption & Text2.Text & "="将题目录入历史文本End SubPrivate Sub Command2_Click() '对检验按钮进行代码编写If Val(ans.Text) = Val(Text3.Text) Then判断答题是否正确 torf.Text = "正确"Else torf.Text = "错误"End Ifrans.Text = Text3.Tex

13、thistory.SelStart = Len(history.Text)history.SelText = ans.Text & vbCrLf & "正误:" & torf.Text & vbCrLf & "正确答案:" & rans.Text & vbCrLf将答题情况及正确答案录入历史文本If torf.Text = "正确" Then统计答题正确题目数 rnum.Text = rnum.Text + 1 ElseIf torf.Text = "错误"

14、Then rnum.Text = rnum.TextEnd IfEnd SubPrivate Sub Command3_Click() '对提交试卷按钮进行代码编写Dim c As Double计算成绩Dim d As Doublec = 100 / num.Textd = c * rnum.Textd = Format(d, "0")If d > 80 And d <= 100 Then MsgBox "本次成绩为：" & d & " " & "你很棒，请继续努力：）"

15、 ElseIf d > 60 And d <= 80 Then MsgBox "本次成绩为：" & d & " " & "基础不够扎实，请多多练习：）" ElseIf d <= 60 Then MsgBox "本次成绩为：" & d & " " & "成绩太低啦！快抓紧学习:("End IfEnd SubPrivate Sub command4_Click() '对历史记录按钮进行代码编写If hist

16、ory.Visible = False Then若不可见，则可见 history.Visible = True ElseIf history.Visible = True Then若可见，则不可见 history.Visible = FalseEnd IfEnd SubPrivate Sub Command5_Click() '对答题情况按钮进行代码编写If torf.Visible = False Then若不可见，则可见 torf.Visible = True rans.Visible = True Label5.Visible = True Label6.Visible = Tr

17、ue ElseIf torf.Visible = True Then若可见，则不可见 torf.Visible = False rans.Visible = False Label5.Visible = False Label6.Visible = FalseEnd IfEnd Sub流程图开始定义变量设计控件随机出题输入答案判断正误显示正误显示正确答案正确题数不变显示正误显示正确答案正确题数+1 显示/隐藏答题情况/历史记录提交试卷成绩=100/题目数*正确数结束三、健康计算器程序要求：设计一个测量身体BMI指数和体脂率的健康计算器汇编语言：Microsoft Visual Basic开发工

18、具：Microsoft Visual Basic 6.0设计思路：1. 设计基本框图如图：2. 基本功能实现利用题目中所给公式对BMI指数和体脂率进行计算。3. 功能拓展健康小贴士：结合BMI指数及体脂率给予你健康方面的建议，让你可以更健康的生活。4. 界面优化运行前：运行后： 求算BMI指数：求算体脂率：健康小贴士：源代码：Private Sub Command1_Click()'对计算BMI指数按钮进行代码编写Dim a As DoubleDim b As DoubleDim g As Doubleg = shengao.Texta = g * gb = weight.Text /

19、 ab = Format(b, "0.0")If b < 18.5 Then MsgBox "BMI指数为" & b & "，体重过低，你太瘦啦！" ElseIf 18.5 <= b < 24 Then MsgBox "BMI指数为" & b & "，体重正常，继续保持：）" ElseIf 24 <= b < 28 Then MsgBox "BMI指数为" & b & "，体重超重，请控制

20、饮食" ElseIf b >= 28 Then MsgBox "BMI指数为" & b & "，体重肥胖，请尽快减肥！"End IfEnd SubPrivate Sub Command2_Click()'对体脂率计算按钮进行代码编写Dim c As DoubleDim d As DoubleDim e As DoubleDim f As DoubleDim h As Doublec = waistline.Text * 0.74If Option2.Value = True Thend = waistline.Te

21、xt * 0.082h = d + 34.89ElseIf Option1.Value = True Thend = waistline.Text * 0.082h = d + 44.74End Ife = c - hf = e / waistline.Text * 100f = Format(f, "0.00")If Option2.Value = True Then If f <= 13 Then MsgBox "体脂率为" & f & "%，不用担心，这是必要脂肪哦" ElseIf 13 < f &l

22、t;= 20 Then MsgBox "体脂率为" & f & "%，哇哦，你是运动员届一颗冉冉升起的新星" ElseIf 20 < f <= 24 Then MsgBox "体脂率为" & f & "%，你很健康哦" ElseIf 24 < f <= 32 Then MsgBox "体脂率为" & f & "%，有些高，但还可接受：）" ElseIf f > 32 Then MsgBox &quo

23、t;体脂率为" & f & "%，已属肥胖，请尽快减肥！" End IfEnd IfIf Option1.Value = True Then If f <= 5 Then MsgBox "体脂率为" & f & "%，不用担心，这是必要脂肪哦" ElseIf 5 < f <= 13 Then MsgBox "体脂率为" & f & "%，哇哦，你是运动员届一颗冉冉升起的新星" ElseIf 13 < f <=

24、 17 Then MsgBox "体脂率为" & f & "%，你很健康哦" ElseIf 17 < f <= 25 Then MsgBox "体脂率为" & f & "%，有些高，但还可接受：）" ElseIf f > 25 Then MsgBox "体脂率为" & f & "%，已属肥胖，请尽快减肥！" End IfEnd IfEnd SubPrivate Sub tips_Click()'对健康小

25、贴士按钮进行代码编写Dim a As DoubleDim b As DoubleDim g As Doubleg = shengao.Texta = g * gb = weight.Text / ab = Format(b, "0.0")If b < 18.5 Then MsgBox "你瘦得有些不健康哦。建议平时多吃蛋白质丰富的食品如鸡蛋牛奶。也要适当采取高热量饮食和多吃肥肉，让身体保持在正常水平平时多喝水，注意休息。运动和水果也是不能缺少的必需品哦。" ElseIf 18.5 <= b < 24 Then MsgBox "你体重很正常，继续保持适度饮食就好。加强锻炼，才能有一个更加强健的体魄！平时多喝水，注意休息。水果也是不能缺少的必需品哦。" ElseIf 24 <= b < 28 Then MsgBox "你虽然略重但无需担心。多采取有氧运动，养成正常的作息时间，控