北京邮电大学计算机实习报告Word文档格式.docx
《北京邮电大学计算机实习报告Word文档格式.docx》由会员分享，可在线阅读，更多相关《北京邮电大学计算机实习报告Word文档格式.docx（18页珍藏版）》请在冰豆网上搜索。
Form3.Show（）
PrivateSubButton3_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton3.Click
Form4.Show（）
PrivateSubButton4_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton4.Click
Form5.Show（）
PrivateSubButton5_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton5.Click
Form6.Show（）
EndClass
PublicClassForm2
PublicaAsInteger,cAsInteger,bAsString,dAsInteger
a=Int（100*Rnd（））
c=Int（100*Rnd（））
d=（a+c）
TextBox1.Text=Val（a）
TextBox3.Text=Val（c）
TextBox5.Text="
"
IfVal（TextBox5.Text）=Val（d）Then
Label1.Text="
回答正确，继续加油！
Else
不正确，再想想？
加油！
EndIf
答案是"
&
Val（d）&
"
你答对了么？
Form1.Show（）
PrivateSubPictureBox1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesPictureBox1.Click
PublicClassForm6
Publicnum1,num2,kAsInteger
PublicopAsString
Publicn,answer,score,yes,no,cAsDouble'
num1和num2是产生的两个随机数，n为产生的题目数目，yes和no为答对和答对和答错的题目数，score为分数op为运算符
num1=Int（Rnd（）*101）
num2=Int（Rnd（）*101）
op=Int（Rnd（）*4）
SelectCaseop
Case0
TextBox2.Text="
+"
answer=num1+num2
Case1
-"
answer=num1-num2
Case2
*"
answer=num1*num2
Case3
/"
Ifnum2=0Then
DoWhilenum2=0
Loop
c=num1/num2
answer=Int（100*（c+0.005））/100
EndSelect
TextBox1.Text=num1
TextBox3.Text=num2
TextBox4.Text="
="
yes=0
no=0
n=yes+no
k=n+1
当前第"
k&
道题"
PrivateSubButton3_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton3.Click
IfVal（TextBox5.Text）=answerThen
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）
PrivateSubButton4_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）
MsgBox（n&
道题中共答对了"
yes&
道题，得分为"
score）
程序行界面部分截图：
功能介绍：
本四则运算软件可以自由选择加法、减法、乘法、除法运算以及混合测试，适合不同程度的小学生。
在除四则运算外的部分，可以进行随机出题，并能查看提示，检查对错，直接返回主界面。
在四则运算部分，可以计算当前为第几道题，提交试卷后将会弹出对话框给出成绩。
并且，当答案输入为字符时，会认为该道题答案是错误的。
二、倒计时器
制作一个倒计时器，输入倒计时时间后，显示剩余时间，时间到后有提示音和提示画面。
支持倒计时的时间较宽，并且可以使用空格控制开始和停止。
MicrosoftVisualBasic6.0中文版
利用timer控件、button控件、table以及textbox控件来实现程序。
源代码
DimhAsInteger,mAsInteger,sAsInteger
PrivateSubCommand1_Click（）
IfCommand2.Enabled=FalseThen
h=Int（Text1.Text）
m=Int（Text2.Text）
s=Int（Text3.Text）
Command1.Caption="
停止"
Command2.Enabled=True
Timer1.Enabled=True
Else
开始"
Timer1.Enabled=False
h=0
m=0
s=0
Command2.Enabled=False
Label4.Caption="
EndIf
EndSub
PrivateSubCommand2_Click（）
IfTimer1.Enabled=TrueThen
Command2.Caption="
继续"
暂停"
PrivateSubCommand3_Click（）
UnloadMe
PrivateSubForm_Load（）
Command2.Enabled=False
Command3.Caption="
退出"
Text1.Text="
0"
Text2.Text="
Text3.Text="
Frame1.Caption="
时间设置"
Form1.Caption="
倒计时器"
Label4.Caption="
Label5.Caption="
Label6.Caption="
当前时间"
Label7.Caption="
倒计时:
WindowsMediaPlayer1.Controls.stop
PrivateSubTimer1_Timer（）
Label5.Caption=Time
IfCommand1.Caption="
Then
s=s-1
Label4.Caption=Str（h）+"
:
+Str（m）+"
+Str（s）
Ifs=-1Andm>
0Then
m=m-1
s=59
Ifm=0Andh>
h=h-1
m=59
Ifh=0Andm=0Ands=0Then
Command1.Enabled=True
倒计时完成"
WindowsMediaPlayer1.Controls.play
MsgBox（倒计时完成）
程序主要运行界面截图
本软件可以进行较宽时间段内的倒计时，倒计时之中可以停止，可以重新计时且有声音提示。
三、动画
以每位同学自己为原型设计一组读书动画，时间不少于20秒，动作不重复，有故事情节，有背景音乐和与动作相符的配音。
使用软件为：
AdobeFlashCS4Professional
分图层创作，主要利用刷子绘图工具。
主要截图：
动画介绍：
在某一天，我读书途中遇到了问题。
百思而不得其解，十分烦闷。
但是突然，灵光一闪，我找到了答案，坐下来继续读书，翻页。
升级会员 