小学期计算机实习总结报告Word格式.docx
- 文档编号:15938013
- 上传时间:2022-11-17
- 格式:DOCX
- 页数:24
- 大小:2.62MB
小学期计算机实习总结报告Word格式.docx
《小学期计算机实习总结报告Word格式.docx》由会员分享,可在线阅读,更多相关《小学期计算机实习总结报告Word格式.docx(24页珍藏版)》请在冰豆网上搜索。
百分比(四舍五入取整数)。
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="
DimsuijishuAsInteger,fuhaoAsString*1//定义suijishu为整型数据,fuhao为长度为1的字符串
shu1=Int(Rnd*100+1)
shu2=Int(Rnd*100+1)
suijishu=Int(Rnd*4+1)//取1到4的随机整数
SelectCasesuijishu//随机选取加减乘除运算
Case1
fuhao="
jieguo=shu1+shu2
Case2
-"
jieguo=shu1-shu2
Case3
*"
jieguo=shu1*shu2
Case4
/"
Ifshu2<
>
0Then//判断除数是否为0
jieguo=Format(shu1/shu2,"
)//结果形式
EndIf
EndSelect
fuhao&
//显示所出题目
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
(正确答案"
;
jieguo;
)"
×
好好再想想!
cuo=cuo+1
此命令按钮的功能是在做完题后检验结果对错,判断对错使用if……else语句,用Val()函数取出text文本框中的数与正确结果进行比较进而判断对错。
判断的结果用属性picture.print在picturebox中显示出来,其间也统计处了正确和错误的题数,为计算分数做准备。
分块四:
PrivateSubCommand2_Click()
Picture1.Print"
★★★★★★★给你算算多少分★★★★★★★"
你一共做了"
(dui+cuo);
道题"
Ifdui+cuo<
0Then
你得了"
CInt(dui/(dui+cuo)*100);
分"
EndIf
计算分数,取整使用到CInt()函数
至此本程序的主体部分已完成,剩下的退出按钮和清空答题框按钮的代码都很容易写出,然后再找出所用的全局变量在程序开始对其定义,最后加一个工程运行过程即完成了代码的初步编写。
在VB上通过编译不断进行调试,最终得到正确的代码。
本题的代码:
DimjieguoAsSingle,shu1AsInteger,shu2AsInteger,duiAsInteger,cuoAsInteger
Then
PrivateSubForm_Load()
PrivateSubCommand3_Click()
End
PrivateSubcommand4_click()
Picture1.Cls
PrivateSubOption2_Click()
DimtAsInteger
PrivateSubOption3_Click()
Text1.FontSize=18
PrivateSubOption4_Click()
shu2=Int(100*Rnd+1)
)
÷
DimsuijishuAs
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 小学 计算机 实习 总结报告