小学期计算机实习总结报告.docx
《小学期计算机实习总结报告.docx》由会员分享，可在线阅读，更多相关《小学期计算机实习总结报告.docx（24页珍藏版）》请在冰豆网上搜索。
小学期计算机实习总结报告
小学期计算机实习总结报告
第一题、算术运算测试程序
题目要求：
制作一个可供小学数学运算的程序。
0—100整数加减乘除四则运算，如结果为小数四舍五入保留小数点后两位。
根据输入题数出题，题目应为随机，每次应不一样。
如：
题目数=3
77-55=
33*3=
100/3=
判断是否正确，如不正确给出正确答案，并计算分数，分数为正确题目的
百分比（四舍五入取整数）。
如：
77-55=22对
33*3=99对
100/3=33错结果应为33.33
分数为：
67分
设计思路：
本题我选用VB来设计，
首先是0——100整数加减乘除四则运算，故需要用到取随机数函数Rnd（）以及SelectCase语句。
其次小数四舍五入保留小数点后两位，这主要出现在除法运算中，需要用到format（）；算分数时要四舍五入取整，需要用到CInt（）
再次判断结果对错主要用到if……else……语句
大体思路确定后再根据题目要求确定需要使用的控件的种类和数量，其次以每种控件为单位将整个程序分成几块，先编写每小块的代码即每个控件的功能代码。
本题需要使用的控件为commandbutton（用于判断对错、得出分数、清空答题板和退出）、textbbox（用于输入结果）、label（用于显示所出题目）、optionbutton、（用于选择所要进行测试的题型）、picturebox（用于显示答题情况及最终分数）
分块一：
PrivateSubOption1_Click（）
Command1.Caption="确认"
Command1.Enabled=True
Text1.FontSize=18
Randomize
shu1=Int（Rnd*100+1）//取0到100的随机整数
shu2=Int（Rnd*100+1）//取0到100的随机整数
jieguo=shu1+shu2
Label1.Caption=shu1&"+"&shu2&"="
Label1.FontSize=18
EndSub//此过程执行加法运算
与此相同可写出减法运算、乘法运算和除法运算的代码，但在写除法运算代码是需注意除数不能取0，即shu2=Int（100*Rnd+1）,表示取1到100的随机数，而且结果小数超过两位的要四舍五入保留两位，即jieguo=Format（shu1/shu2,"0.00"）。
分块二：
PrivateSubOption5_Click（）
Command1.Caption="确认"
Command1.Enabled=True
DimsuijishuAsInteger,fuhaoAsString*1//定义suijishu为整型数据，fuhao为长度为1的字符串
Text1.FontSize=18
Randomize
shu1=Int（Rnd*100+1）
shu2=Int（Rnd*100+1）
suijishu=Int（Rnd*4+1）//取1到4的随机整数
SelectCasesuijishu//随机选取加减乘除运算
Case1
fuhao="+"
jieguo=shu1+shu2
Case2
fuhao="-"
jieguo=shu1-shu2
Case3
fuhao="*"
jieguo=shu1*shu2
Case4
fuhao="/"
Ifshu2<>0Then//判断除数是否为0
jieguo=Format（shu1/shu2,"0.00"）//结果形式
EndIf
EndSelect
Label1.Caption=shu1&fuhao&shu2&"="//显示所出题目
Label1.FontSize=18
EndSub
此过程主要是混合运算的代码，使用了selectcase语句
分块三:
PrivateSubCommand1_Click（）
Option1.Value=False
Option2.Value=False
Option3.Value=False
Option4.Value=False
Option5.Value=False
IfCommand1.Caption="确认"Then//判断做题者所填结果与正确结果是否相同
IfVal（Text1.Text）=jieguoThen
Picture1.PrintLabel1.Caption;Text1;"√太棒了！
"
dui=dui+1
Else
Text1.Text=""
Text1.SetFocus
Picture1.PrintLabel1.Caption;Text1;"（正确答案";jieguo;"）";"×好好再想想！
"
cuo=cuo+1
EndIf
EndIf
Text1.Text=""
EndSub
此命令按钮的功能是在做完题后检验结果对错，判断对错使用if……else语句，用Val（）函数取出text文本框中的数与正确结果进行比较进而判断对错。
判断的结果用属性picture.print在picturebox中显示出来，其间也统计处了正确和错误的题数，为计算分数做准备。
分块四：
PrivateSubCommand2_Click（）
Picture1.Print"★★★★★★★给你算算多少分★★★★★★★"
Picture1.Print"你一共做了";（dui+cuo）;"道题"
Ifdui+cuo<>0Then
Picture1.Print"你得了";CInt（dui/（dui+cuo）*100）;"分"
EndIf
EndSub
计算分数，取整使用到CInt（）函数
至此本程序的主体部分已完成，剩下的退出按钮和清空答题框按钮的代码都很容易写出，然后再找出所用的全局变量在程序开始对其定义，最后加一个工程运行过程即完成了代码的初步编写。
在VB上通过编译不断进行调试，最终得到正确的代码。
本题的代码：
DimjieguoAsSingle,shu1AsInteger,shu2AsInteger,duiAsInteger,cuoAsInteger
PrivateSubCommand1_Click（）
Option1.Value=False
Option2.Value=False
Option3.Value=False
Option4.Value=False
Option5.Value=False
IfCommand1.Caption="确认"Then
IfVal（Text1.Text）=jieguoThen
Picture1.PrintLabel1.Caption;Text1;"√太棒了！
"
dui=dui+1
Else
Text1.Text=""
Text1.SetFocus
Picture1.PrintLabel1.Caption;Text1;"（正确答案";jieguo;"）";"×好好再想想！
"
cuo=cuo+1
EndIf
EndIf
Text1.Text=""
EndSub
PrivateSubCommand2_Click（）
Picture1.Print"★★★★★★★给你算算多少分★★★★★★★"
Picture1.Print"你一共做了";（dui+cuo）;"道题"
Ifdui+cuo<>0Then
Picture1.Print"你得了";CInt（dui/（dui+cuo）*100）;"分"
EndIf
EndSub
PrivateSubForm_Load（）
Option1.Value=False
Option2.Value=False
Option3.Value=False
Option4.Value=False
Option5.Value=False
EndSub
PrivateSubCommand3_Click（）
End
EndSub
PrivateSubcommand4_click（）
Picture1.Cls
EndSub
PrivateSubOption1_Click（）
Command1.Caption="确认"
Command1.Enabled=True
Text1.FontSize=18
Randomize
shu1=Int（Rnd*100+1）
shu2=Int（Rnd*100+1）
jieguo=shu1+shu2
Label1.Caption=shu1&"+"&shu2&"="
Label1.FontSize=18
EndSub
PrivateSubOption2_Click（）
Command1.Caption="确认"
Command1.Enabled=True
DimtAsInteger
Text1.FontSize=18
Randomize
shu1=Int（Rnd*100+1）
shu2=Int（Rnd*100+1）
jieguo=shu1-shu2
Label1.Caption=shu1&"-"&shu2&"="
Label1.FontSize=18
EndSub
PrivateSubOption3_Click（）
Command1.Caption="确认"
Command1.Enabled=True
Text1.FontSize=18
Randomize
shu1=Int（Rnd*100+1）
shu2=Int（Rnd*100+1）
jieguo=shu1*shu2
Label1.Caption=shu1&"×"&shu2&"="
Label1.FontSize=18
EndSub
PrivateSubOption4_Click（）
Command1.Caption="确认"
Command1.Enabled=True
Text1.FontSize=18
Randomize
shu1=Int（Rnd*100+1）
shu2=Int（100*Rnd+1）
jieguo=Format（shu1/shu2,"0.00"）
Label1.Caption=shu1&"÷"&shu2&"="
Label1.FontSize=18
EndSub
PrivateSubOption5_Click（）
Command1.Caption="确认"
Command1.Enabled=True
DimsuijishuAs
升级会员 