《北邮计算机实习总结报告》由会员分享，可在线阅读，更多相关《北邮计算机实习总结报告（25页珍藏版）》请在金锄头文库上搜索。
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 59 ThenMsgBox 时间格式不对，请重新输入 检查时间格式ElseIf m 59 ThenMsgB
3、ox 时间格式不对，请重新输入 检查时间格式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
4、 = Val(Text1) + Val(Text2) 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 = 清空正误框及正确答案框
5、rans.Text = history.SelStart = 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(hi
6、story.Text)history.SelText = 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计算成绩Di
7、m d As Doublec = 100 / 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 =
8、 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 = True ElseIf torf.Visible = True Then若可见，则不可见 torf.Visible = F
