北京邮电大学计算机实习报告Word文档格式.docx

1、 Form3.Show（） Private Sub Button3_Click（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles Button3.Click Form4.Show（） Private Sub Button4_Click（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles Button4.Click Form5.Show（） Private Sub Button5_Click（ByVal sender As Sy

2、stem.Object, ByVal e As System.EventArgs） Handles Button5.Click Form6.Show（）End ClassPublic Class Form2 Public a As Integer, c As Integer, b As String, d As Integer a = Int（100 * Rnd（） c = Int（100 * Rnd（） d = （a + c） TextBox1.Text = Val（a） TextBox3.Text = Val（c） TextBox5.Text = If Val（TextBox5.Text）

3、 = Val（d） Then Label1.Text = 回答正确，继续加油！ Else不正确，再想想？加油！ End If答案是 & Val（d） & ,你答对了么？ Form1.Show（） Private Sub PictureBox1_Click（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles PictureBox1.ClickPublic Class Form6 Public num1, num2, k As Integer Public op As String Public n, answer

4、, score, yes, no, c As Double num1和num2是产生的两个随机数，n为产生的题目数目，yes和no为答对和答对和答错的题目数，score为分数op为运算符 num1 = Int（Rnd（） * 101） num2 = Int（Rnd（） * 101） op = Int（Rnd（） * 4） Select Case op Case 0 TextBox2.Text = + answer = num1 + num2 Case 1- answer = num1 - num2 Case 2* answer = num1 * num2 Case 3/ If num2 = 0

5、 Then Do While num2 = 0 Loop c = num1 / num2 answer = Int（100 * （c + 0.005） / 100 End Select TextBox1.Text = num1 TextBox3.Text = num2 TextBox4.Text = = yes = 0 no = 0 n = yes + no k = n + 1当前第 k &道题Private Sub Button3_Click（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles Button3

6、.Click If Val（TextBox5.Text） = answer Then yes = yes + 1 RichTextBox1.Text = TextBox1.Text & TextBox2.Text & TextBox3.Text & TextBox5.Text &答案正确，继续努力！ no = no + 1 RichTextBox1.Text = 不正确，继续努力！正确答案是 TextBox1.Text & answer score = Int（yes / n + 0.005） * 100） Private Sub Button4_Click（ByVal sender As S

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

8、以使用空格控制开始和停止。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） Command1.Caption = 停止 Command2.Enabled = True Ti

9、mer1.Enabled = TrueElse开始 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 = 继续暂停Private Sub Command3_Click（） Unload MePrivate Sub Form_Load（） Command2.Enabled = False Command3.Cap

10、tion = 退出 Text1.Text = 0 Text2.Text = Text3.Text = Frame1.Caption = 时间设置 Form1.Caption = 倒计时器 Label4.Caption = Label5.Caption = Label6.Caption = 当前时间 Label7.Caption = 倒计时: WindowsMediaPlayer1.Controls.stop Private Sub Timer1_Timer（） Label5.Caption = Time If Command1.Caption = Then s = s - 1 Label4.C

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