北邮计算机实习总结报告

电子工程学院2014计算机实习报告 学院： 电子工程学院 班级： 2012211202 学号： 2012210863 姓名： 王艺霏 班内序号： 24 1、 倒计时器程序要求：制作一个倒计时器，输入倒计时时间后，显示剩余时间，时间到后有提示音和提示画面。汇编语言：Microsoft Visual Basic开发工具：Microsoft Visual Basic 6.0设计思路：1. 设计基本框图如图：2. 基本功能实现调用Timer控件，使输入时、分、秒后点击开始控件可以开始倒计时，点击停止控件可以暂停，点击复位控件可以把时间清零重新输入。剩余时间在中间空白text框中显示。编写完成运行后，如图：此时已实现倒计时器基本功能。3. 实现提示音乐功能插入Windows Media Player控件，路径插入相应歌曲，设置时间到时音乐响起并且设置点击停止按钮时音乐停止。提示音乐：快门慢舞-李心艾&邱凯伟4. 优化界面排版、加入背景图片、修改字体、更改控件位置大小及颜色等。如图：运行前：运行后：到时时弹出画面：源代码：Private Sub h_Change() '时h = Int(Val(h)If h > 23 ThenMsgBox "时间格式不对，请重新输入" '检查时间格式ElseIf h < 0 ThenMsgBox "时间格式不对，请重新输入"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 "时间格式不对，请重新输入" '检查时间格式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 Sub 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 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 & "秒 " End Sub流程图开始定义变量设计控件将输入时间赋给Timer控件h=0;m=0;s=0弹出提示对话框提示音乐确定关闭音乐结束2、 算术运算测试程序程序要求：设计一个可供小学数学运算的程序。0100整数加减乘除四则运算，如结果为小数保留小数点后两位。根据输入题数出题，题目应为随机，每次应不一样。判断是否正确，如不正确给出正确答案，并计算分数，分数为正确题目的百分比。汇编语言：Microsoft Visual Basic开发工具：Microsoft Visual Basic 6.0设计思路：1. 设计基本框图如图：2. 基本功能实现题目随机：调用随机函数，使电脑随机出0100的数字。设定加减乘除为事件，随机时间。判断正误：设定text文本框计入答案，可见性为false，若所填答案与之相等，则正误判断为正确，且在记录正确题数的text框内数字+1。计算成绩：100/题目数*题目正确数记录题数：统计点击开始控件次数，次数达到输入题目数时弹出请提交试卷对话框。如图：3. 功能拓展历史记录：设计history文本框，使之记录所出题目，所填答案，答题情况，及正确答案。隐藏：如果不希望看到答题情况，可以点击“答题情况”和“历史记录”控件进行隐藏或显示。4. 画面优化排版、加入背景图片、修改字体、更改控件位置大小及颜色等。如图：运行前：运行后：隐藏后：提交试卷：源代码：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 = "" 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 = 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.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(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 = "错误" 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 & " " & "你很棒，请继续努力：）" ElseIf 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.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