北京邮电大学计算机实习报告.docx

1、北京邮电大学计算机实习报告计算机实习报告一、 算术运算测试程序题目要求：制作一个可供小学数学运算的程序，要求能计算0100正数加减乘除四则运算，如结果为小数四舍五入保留小数点后两位，根据输入题数出题，题目应为随机，每次应不一样。设计方案：使用语言为：Microsoft Visual Basic开发工具为：Microsoft Visual Studio 2008在Form1中进行编辑，利用Button控件，分别控制“加法运算”“减法运算”“乘法运算”“除法运算”和“综合运算”。单击控件分别进入Form1、2、3、4、5、6，分别进行编辑，利用textbox控件随机产生数字或者运算符以及用来填写答

2、案，利用Button控件来控制选项，利用table控件显示答案、错误提示等。流程图：部分源代码：Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Hide() Form2.Show() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

3、Button2.Click Me.Hide() Form3.Show() End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me.Hide() Form4.Show() End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Me.Hide(

4、) Form5.Show() End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Me.Hide() Form6.Show() End SubEnd ClassPublic Class Form2 Public a As Integer, c As Integer, b As String, d As Integer Private Sub Button1_Click(ByVal sender As System.O

5、bject, ByVal e As System.EventArgs) Handles Button1.Click a = Int(100 * Rnd() c = Int(100 * Rnd() d = (a + c) TextBox1.Text = Val(a) TextBox3.Text = Val(c) TextBox5.Text = End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If Val(TextB

6、ox5.Text) = Val(d) Then Label1.Text = 回答正确，继续加油！ Else Label1.Text = 不正确，再想想？加油！ End If End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Label1.Text = 答案是 & Val(d) & ,你答对了么？ End Sub Private Sub Button4_Click(ByVal sender As System.Obj

7、ect, ByVal e As System.EventArgs) Handles Button4.Click Me.Hide() Form1.Show() End Sub Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click End SubEnd ClassPublic Class Form6 Public num1, num2, k As Integer Public op As String Public n,

8、answer, score, yes, no, c As Double num1和num2是产生的两个随机数，n为产生的题目数目，yes和no为答对和答对和答错的题目数，score为分数op为运算符 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click num1 = Int(Rnd() * 101) num2 = Int(Rnd() * 101) op = Int(Rnd() * 4) Select Case op Case 0 Te

9、xtBox2.Text = + answer = num1 + num2 Case 1 TextBox2.Text = - answer = num1 - num2 Case 2 TextBox2.Text = * answer = num1 * num2 Case 3 TextBox2.Text = / If num2 = 0 Then num2 = Int(Rnd() * 101) Do While num2 = 0 num2 = Int(Rnd() * 101) Loop c = num1 / num2 answer = Int(100 * (c + 0.005) / 100 Else

10、c = num1 / num2 answer = Int(100 * (c + 0.005) / 100 End If End Select TextBox1.Text = num1 TextBox3.Text = num2 TextBox4.Text = = yes = 0 no = 0 n = yes + no k = n + 1 Label1.Text = 当前第 & k & 道题 End SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles But

11、ton3.Click If Val(TextBox5.Text) = answer Then yes = yes + 1 RichTextBox1.Text = TextBox1.Text & TextBox2.Text & TextBox3.Text & = & TextBox5.Text & 答案正确，继续努力！ Else no = no + 1 RichTextBox1.Text = 不正确，继续努力！正确答案是 & TextBox1.Text & TextBox2.Text & TextBox3.Text & = & answer n = yes + no k = n + 1 Labe

12、l1.Text = 当前第 & k & 道题 n = yes + no score = Int(yes / n + 0.005) * 100) End If TextBox5.Text = num1 = Int(Rnd() * 101) num2 = Int(Rnd() * 101) op = Int(Rnd() * 4) Select Case op Case 0 TextBox2.Text = + answer = num1 + num2 Case 1 TextBox2.Text = - answer = num1 - num2 Case 2 TextBox2.Text = * answe

13、r = num1 * num2 Case 3 TextBox2.Text = / If num2 = 0 Then num2 = Int(Rnd() * 101) Do While num2 = 0 num2 = Int(Rnd() * 101) Loop c = num1 / num2 answer = Int(100 * (c + 0.005) / 100 Else c = num1 / num2 answer = Int(100 * (c + 0.005) / 100 End If End Select TextBox1.Text = num1 TextBox3.Text = num2

14、TextBox4.Text = = End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Me.Hide() Form1.Show() End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) If Val(TextBox5.Text) = answer Then yes = yes + 1

15、 Else no = no + 1 End If n = yes + no score = Int(yes / n + 0.005) * 100) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click MsgBox(n & 道题中共答对了 & yes & 道题，得分为 & score) End Sub Private Sub PictureBox1_Click(ByVal sender As System.Object

16、, ByVal e As System.EventArgs) Handles PictureBox1.Click End SubEnd Class程序行界面部分截图：功能介绍：本四则运算软件可以自由选择加法、减法、乘法、除法运算以及混合测试，适合不同程度的小学生。在除四则运算外的部分，可以进行随机出题，并能查看提示，检查对错，直接返回主界面。在四则运算部分，可以计算当前为第几道题，提交试卷后将会弹出对话框给出成绩。并且，当答案输入为字符时，会认为该道题答案是错误的。二、倒计时器题目要求：制作一个倒计时器，输入倒计时时间后，显示剩余时间，时间到后有提示音和提示画面。支持倒计时的时间较宽，并且可以

17、使用空格控制开始和停止。设计方案：使用语言为：Microsoft Visual Basic开发工具为：Microsoft Visual Basic 6.0 中文版利用timer控件、button控件、table以及textbox控件来实现程序。流程图：源代码Dim h As Integer, m As Integer, s As IntegerPrivate Sub Command1_Click()If Command2.Enabled = False Then h = Int(Text1.Text) m = Int(Text2.Text) s = Int(Text3.Text) Comman

18、d1.Caption = 停止 Command2.Enabled = True Timer1.Enabled = TrueElse Command1.Caption = 开始 Timer1.Enabled = False h = 0 m = 0 s = 0Command2.Enabled = FalseLabel4.Caption = End IfEnd SubPrivate Sub Command2_Click()If Timer1.Enabled = True Then Command2.Caption = 继续 Timer1.Enabled = FalseElse Command2.Ca

19、ption = 暂停 Timer1.Enabled = TrueEnd IfEnd SubPrivate Sub Command3_Click() Unload MeEnd SubPrivate Sub Form_Load() Command1.Caption = 开始 Command2.Caption = 暂停 Command2.Enabled = False Command3.Caption = 退出 Text1.Text = 0 Text2.Text = 0 Text3.Text = 0 Frame1.Caption = 时间设置 Form1.Caption = 倒计时器 Label4.

20、Caption = Label5.Caption = Label6.Caption = 当前时间 Label7.Caption = 倒计时: Timer1.Enabled = False WindowsMediaPlayer1.Controls.stop End SubPrivate Sub Timer1_Timer() Label5.Caption = Time If Command1.Caption = 停止 Then s = s - 1 Label4.Caption = Str(h) + : + Str(m) + : + Str(s) If s = -1 And m 0 Then m =

21、 m - 1 s = 59 Label4.Caption = Str(h) + : + Str(m) + : + Str(s) End If If m = 0 And h 0 Then h = h - 1 m = 59 Label4.Caption = Str(h) + : + Str(m) + : + Str(s) End If If h = 0 And m = 0 And s = 0 Then Command1.Enabled = True Command2.Enabled = False Timer1.Enabled = False Label4.Caption = 倒计时完成 Wind

22、owsMediaPlayer1.Controls.play MsgBox (倒计时完成) WindowsMediaPlayer1.Controls.stop Command1.Caption = 开始 End If End IfEnd Sub程序主要运行界面截图功能介绍：本软件可以进行较宽时间段内的倒计时，倒计时之中可以停止，可以重新计时且有声音提示。三、动画题目要求：以每位同学自己为原型设计一组读书动画，时间不少于20秒，动作不重复，有故事情节，有背景音乐和与动作相符的配音。设计方案：使用软件为：Adobe Flash CS4 Professional分图层创作，主要利用刷子绘图工具。主要截图： 动画介绍：在某一天，我读书途中遇到了问题。百思而不得其解，十分烦闷。但是突然，灵光一闪，我找到了答案，坐下来继续读书，翻页。