专业课程实验报告三(样本)new

《专业课程实验报告三(样本)new》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、专业课程实验报告三专业：10通信工程姓名：罗斌学号：7020806093实验名称函数、过程、方法的使用实验目的1．掌握函数及过程的定义方法。2．理解和掌握常用的内部函数和方法的功能、使用。3．掌握函数及过程的实参与形参的对应关系，理解“值传递”、“地址传递”的概念。4.掌握递归的概念和使用方法5.熟悉程序设计中的常用方法。实验原理采用面向对象、事件驱动编程机制。实验内容(步骤、方法)题目:设计一个小学生做算术练习程序。计算机连续地随机给出两位数的加、减、乘、除算术题,要求学生回答,答对的打“√”，答错的打“×”。将做过的题目存放

2、在组合框(下拉列表框)中备查,并随时给出答案的正确率。说明：j为了让小学生在愉快中学习和玩耍，故乘法、除法均是两位数与个位数相乘或相除,对于除不尽的保留1位小数。k密码最多只能输3次。1．建立用户界面如图(1)、图(2)所示。图2图(1)2．窗体上设置主要对象属性值设置如下表1:其他控件属性设置如上图1、图2所示。实验日期:2011-11-17实验类型：设计(演示、验证、综合、设计)实验内容(步骤、方法)表1属性设置控件类型属性名属性值说明标签1NameLabel1显示题目caption清空文本框NameText1输入答案cap

3、tion清空标签3NameLabel3显示答题caption欢迎使用简易计算器总数正确率组合框NameCombo1Style2下拉列表框Tag0.0存放答对题数计时器EnabledFalseInterval10003.编写程序代码‘在窗体Form1的窗体模块中,设计密码代码。PrivateSubForm_Load()Text1=""EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)StaticnAsIntegerIfKeyAscii=13ThenIfLCase(Text1.Text

4、)="805098"ThenLabel1.Caption="系统正在进入请稍后...."Timer1_TimerElsen=n+1Ifn=3ThenMsgBox"对不起，你无权使用本系统。",0,"密码错误！"Text1.Enabled=FalseElseMsgBox"你还有"&Str(3-n)&"次机会",0,"对不起，密码错误"Text1.SelStart=0Text1.SelLength=Len(Text1.Text)EndIfForm10.ShowElsei=i+1EndIfEndSubEndIfEndIfEndSubP

5、rivateSubTimer1_Timer()Statici%Timer1.Enabled=TrueIfi=5ThenUnloadMeLoadForm10‘在窗体Form2的窗体模块中:设出题部分由窗体的激活(Activate)事件完成，代码为：PrivateSubForm_Activate()Dima,bAsIntegerDimp,tRandomize(Time)a=Int(10+90*Rnd)b=Int(10+90*Rnd)p=Int(4*Rnd)SelectCasepCase0Label1.Caption=a&"+"&b&

6、"="Text1.Tag=a+bCase1Ifa=10Andb>=10Thenb=b10Ifb<10ThenLabel1.Caption=a&"×"&b&"="Text1.Tag=a*bEndIfCase3Ifa=10Thenb=b10IfaModbThenLabel1.Caption=a&"÷"&b&"="Text1.Tag=For

7、mat(a/b,".#")ElseLabel1.Caption=a&"÷"&b&"="Text1.Tag=a/bEndIfEndSelectForm10.Tag=Form10.Tag+1Text1.SelStart=0Text1.Text=""EndSub答题部分由文本框的按键(KeyPress)事件完成，代码为：PrivateSubText1_KeyPress(KeyAsciiAsInteger)Dimfm,itemIfKeyAscii=13Thenfm="!@@@@@@@@@"IfVal(Text1.Text)=Text1.

8、TagThenitem=Format(Label1.Caption&Text1.Text,fm)&"√"Combo1.Tag=Combo1.Tag+1Elseitem=Format(Label1.Caption&Text1.Text,fm)&"×"EndIfCo