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

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

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

3、ElseIf s num.Text Then MsgBox 已经是最后一道题啦，请提交试卷：）出题数与题目数相等，请提交试卷Else Text1.Text = 清空出题框 Text2.Text = ans.Text = 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(Te

4、xt2) Case Is = 2 Label2.Caption = Text3.Text = Val(Text1) - Val(Text2) Case Is = 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.Se

5、lStart = 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.Texthistory.SelStart = Len(history.Text)history.Sel

6、Text = ans.Text & vbCrLf & 正误: & torf.Text & vbCrLf & 正确答案: & rans.Text & vbCrLf将答题情况及正确答案录入历史文本If torf.Text = 正确 Then统计答题正确题目数 rnum.Text = rnum.Text + 1 ElseIf torf.Text = 错误 Then rnum.Text = rnum.TextEnd IfEnd SubPrivate Sub Command3_Click() 对提交试卷按钮进行代码编写Dim c As Double计算成绩Dim d As Doublec = 100 /

7、 num.Textd = c * rnum.Textd = Format(d, 0)If d 80 And d 60 And d = 80 Then MsgBox 本次成绩为： & d & & 基础不够扎实，请多多练习：） ElseIf d = 60 Then MsgBox 本次成绩为： & d & & 成绩太低啦！快抓紧学习:(End IfEnd SubPrivate Sub command4_Click() 对历史记录按钮进行代码编写If history.Visible = False Then若不可见，则可见 history.Visible = True ElseIf history.V

8、isible = 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 = True ElseIf torf.Visible = True Then若可见，则不可见 torf.Visible = False rans.Visible

9、= False Label5.Visible = False Label6.Visible = FalseEnd IfEnd Sub流程图开始定义变量设计控件随机出题输入答案判断正误显示正误显示正确答案正确题数不变显示正误显示正确答案正确题数+1 显示/隐藏答题情况/历史记录提交试卷成绩=100/题目数*正确数结束三、健康计算器程序要求：设计一个测量身体BMI指数和体脂率的健康计算器汇编语言：Microsoft Visual Basic开发工具：Microsoft Visual Basic 6.0设计思路：1. 设计基本框图如图：2. 基本功能实现利用题目中所给公式对BMI指数和体脂率进行计算

10、。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 / ab = Format(b, 0.0)If b 18.5 Then MsgBox BMI指数为 & b & ，体重过低，你太瘦啦！ ElseIf 18.5 = b

11、 24 Then MsgBox BMI指数为 & b & ，体重正常，继续保持：） ElseIf 24 = 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.Text

12、* 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 = 20 Then MsgBox 体脂率为 & f & %，哇哦，你是运动员届一颗冉冉升起的新星 ElseIf 20

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

14、5 Then MsgBox 体脂率为 & f & %，已属肥胖，请尽快减肥！ End IfEnd IfEnd SubPrivate Sub tips_Click()对健康小贴士按钮进行代码编写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 你瘦得有些不健康哦。建议平时多吃蛋白质丰富的食品如鸡蛋牛奶。也要适当采取高热量饮食和多吃肥肉，让身体保持在正常水平平时多喝水，注意休息。运动和水果也是

15、不能缺少的必需品哦。 ElseIf 18.5 = b 24 Then MsgBox 你体重很正常，继续保持适度饮食就好。加强锻炼，才能有一个更加强健的体魄！平时多喝水，注意休息。水果也是不能缺少的必需品哦。 ElseIf 24 = b = 28 Then MsgBox 你是不是也因为过于肥胖而行动不便呢？每天坚持运动，坚持早睡早起，规律三餐，少吃晚饭。其他时间饿了就拿水果代替吧相信在你的努力之下一定会瘦下来光彩照人的！End IfEnd Sub流程图：开始定义变量设计控件选择性别填入身高、腰围、体重填入身高、腰围、体重计算BMI指数计算BMI指数确认确认计算体脂率计算体脂率确认确认健康小贴士确

16、认结束四、动画动画要求：以每位同学自己为原型设计一组舞蹈或者体育运动动画，时间不少于20s，动作不重复。设计工具：Adobe Flash CS6 Professional Adobe Photoshop CS6 Professional制作流程：1. 在纸上绘出人物基本头部轮廓，身子轮廓。手机拍照后导入电脑用PS进行修改。如图： 2. 其他配件上网搜索眼睛：桌子：电脑：教室（背景）：3.利用PS把人的手臂、眉毛、眼睛分别分层如图：图层赏析（部分版）：手臂解析：其余不一一列举。整体图：4. 将以上存成psd格式文件，导入Adobe Flash CS6 Professional中，并把每个图层都转为原件。导入背景。如图：5. 将两臂分别连接骨骼。设计动作，并在不同