计算机实习报告Word文档下载推荐.docx
- 文档编号:18354964
- 上传时间:2022-12-15
- 格式:DOCX
- 页数:47
- 大小:1.11MB
计算机实习报告Word文档下载推荐.docx
《计算机实习报告Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《计算机实习报告Word文档下载推荐.docx(47页珍藏版)》请在冰豆网上搜索。
5.若在规定时间内完成测试并进行提交,则测试结束。
6.通过点击界面的yoursituation可观看自己的测试情况,其测试情况包括每道题目,自己填入的答案,每道题的正误判断,总体测试分数。
7.通过点击界面的reset,该测试系统进行重置,表现为答题数目,测试时间,出题窗口,答题情况的重置。
从而可进行下一次的测试。
8.附加功能,在系统界面上看随时查看当前时间。
e)设计流程:
或
f)程序代码
PublicClassForm1
Dimy,z,k,a,bAsInteger
Dimm,iAsSingle
Dimscore,gradeAsInteger
Dims,dAsString
PrivateSubListView1_SelectedIndexChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)
EndSub
小学运算程序初始化
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
ListBox1.Visible=False
ListBox1.Items.Clear()
TextBox1.Text="
"
TextBox2.Text="
Label7.Visible=False
Label6.Visible=False
Label1.Text="
a?
b"
TextBox2.Visible=True
Label1.Visible=True
TextBox1.Visible=True
y=TextBox3.Text
Ify<
=0Then
MsgBox("
pleaseinputtherightnumber"
)
Else
k=y
TextBox3.Enabled=False
Label5.Text=k
Button2.Enabled=True
Label3.Text=10*y
a=Label3.Text
score=0
grade=0
Label7.Text=score
Timer1.Enabled=True
EndIf
EndSub
考试时间倒计时
PrivateSubTimer1_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimer1.Tick
Ifa>
0Then
a=a-1
Label3.Text=a
Else:
Timer1.Enabled=False
Beep()
timeisup"
Button2.Enabled=False
Button3.Enabled=False
判断输入答案是否正确,并填入listview中,以便观察答题情况
PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click
DimxiaosongAsString
SelectCasez
Case1
If(Val(TextBox1.Text)=m+i)Then
right"
score=score+1
error,theansweris"
&
Str(m+i)
Case2
If(Val(TextBox1.Text)=m-i)Then
Str(m-i)
Case3
If(Val(TextBox1.Text)=m*i)Then
error,theansweris"
Str(m*i)
Case4
xiaosong=Format((m/i),"
0.00"
If(Val(TextBox1.Text)=xiaosong)Then
Format(m/i,"
EndSelect
ListBox1.Items.Add(TextBox2.Text)
grade=100*score/y
Label7.Text=grade
If(grade=100)Then
theexamisover"
If(k>
1)Then
k=k-1
Label5.Text=0
随机出题程序
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
Randomize()
z=Int(Rnd()*4+1)
m=Int(Rnd()*100)
i=Int(Rnd()*100)
Label1.Text=Str(m)&
"
+"
Str(i)
Ifm<
iThen
b=m
m=i
i=b
-"
*"
Ifi=0Then
i=1
/"
s=InputBox("
pleaseinputyouranswer"
TextBox1.Text=s
ListBox1.Items.Add(Label1.Text&
="
s)
Button3.Enabled=True
PrivateSubLabel7_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesLabel7.Click
PrivateSubLinkLabel1_LinkClicked(ByValsenderAsSystem.Object,ByValeAsSystem.Windows.Forms.LinkLabelLinkClickedEventArgs)
界面设计
PrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.Click
TextBox3.Text=0
TextBox3.Enabled=True
Label3.Text=0
Label5.Text="
n"
Label7.Text=0
PrivateSubLabel9_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesLabel9.Click
PrivateSubTimer2_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimer2.Tick
Label9.Text=TimeString
PrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton5.Click
TextBox2.Visible=False
Label1.Visible=False
TextBox1.Visible=False
Label6.Visible=True
Label7.Visible=True
ListBox1.Visible=True
EndClass
2、倒计时器(15分)
制作一个倒计时器,输入倒计时时间后,显示剩余时间,时间到后有提示音和提示画面。
界面美观,操作便捷,程序无bug,功能有创意。
自行输入时间,进行倒数计时,在倒计时结束时,要有提示音和提示窗口。
1.可以进行小时,分钟,秒三种形式的倒计时。
并且,用户可自己设定时间。
2.在进行倒计时过程中,可在任意时刻进行暂停,继续,重置。
(点击pause进行暂停,点击continue进行继续,点击reset进行重置)。
3.在倒计时结束时,系统将会有明显的提示音乐和画面。
4.除倒计时功能外,界面上还有日历,时钟,以及可以自行填写的待办事务栏。
e)设计流程
Dimhour,minute,secondAsInteger
倒计时时钟初始化
Label5.Visible=False
IfTextBox1.Text=0AndTextBox3.Text=0AndTextBox5.Text=0Then
pleaseinputtherighttime"
ElseIfTextBox1.Text>
59OrTextBox1.Text<
0OrTextBox3.Text>
59OrTextBox3.Text<
0OrTextBox5.Text<
0OrTextBox5.Text>
24Then
error"
second=TextBox1.Text
minute=TextBox3.Text
hour=TextBox5.Text
Ifsecond=0Andminute>
minute=minute-1
second=59
ElseIfminute=0Andsecond=0Andhour>
hour=hour-1
minute=59
TextBox2.Text=second
TextBox4.Text=minute
TextBox6.Text=hour
Button4.Enabled=True
倒计时功能的实现
Ifsecond>
second=second-1
ElseIfsecond=0Andminute>
Ifsecond=0Andminute=0Andhour=0Then
Label5.Visible=True
TextBox2.Text=0
TextBox4.Text=0
TextBox6.Text=0
My.Computer.Audio.Play(My.Resources.abc,_
AudioPlayMode.Background)
timeisover"
PrivateSubDateTimePicker1_ValueChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesDateTimePicker1.ValueChanged
PrivateSubTextBox3_TextChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTextBox3.TextChanged
PrivateSubTextBox4_TextChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTextBox4.TextChanged
PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
Label7.Text=TimeString
TextBox1.Text=0
TextBox4.Text="
TextBox5.Text=0
TextBox6.Text="
My.Computer.Audio.Stop()
PrivateSubAxWindowsMediaPlayer1_Enter(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)
PrivateSubTextBox5_TextChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTextBox5.TextChanged
3、制作动画
动画:
以每位同学自己为原型设计一组功夫动画(
时间不少于20秒,动作不重复。
b)运用软件:
flash8.0
c)预期效果:
在动画中,将描述一场格斗比赛。
并配有相应的声效,背景音乐。
编排人物的走路,敬礼,擂台上的移动,和对手的互动(包括直拳,踢腿,防御,飞踢,勾拳等动作)。
在绘制这些动作的时候,我采用的是影片剪辑功能。
d)动画截图
4、矩阵计算器(20分)
a)题目要求:
可输入矩阵,并最大可进行10*10矩阵运算,完成矩阵加法,乘法,转置,求秩的运算。
b)运用语言:
c
输入矩阵,按提示完成矩阵运算。
可选矩阵加法,矩阵乘法,矩阵转置,矩阵求秩。
并正确完成运算
输入任意矩阵(最大为10*10的矩阵),可以根据自己意愿选择运算的方式,进行矩阵加法,矩阵乘法,矩阵转置,矩阵求秩。
#include<
stdio.h>
string.h>
#defineMAX255
typedefstruct
{intm,n;
inta[MAX][MAX];
}matrix;
矩阵乘法
voidMatrixMul(floata[MAX],floatb[MAX],floatc[MAX],int
m,intn,intk)
{
inti,j,l,u;
for(i=0;
i<
=m-1;
i++)
for(j=0;
j<
=k-1;
j++)
u=i*k+j;
c[u]=0.0;
for(l=
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 实习 报告