面向对象设计实验报告.docx
- 文档编号:9488413
- 上传时间:2023-05-19
- 格式:DOCX
- 页数:17
- 大小:251.06KB
面向对象设计实验报告.docx
《面向对象设计实验报告.docx》由会员分享,可在线阅读,更多相关《面向对象设计实验报告.docx(17页珍藏版)》请在冰点文库上搜索。
面向对象设计实验报告
(1)循环语句编写:
计算1+1/2!
+1/3!
+…+1/n!
需要两个text一个command一个label
方法一:
DOWHILE
PrivateSubCommand1_Click()
Dimx,y,sum,DAsDouble
x=Int(Text1.Text)
y=Int(Text2.Text)
D=1
sum=0
DoWhilex<=y
x=x+1
D=D*(x-1)
sum=sum+1/D
Loop
Label1.Caption=Str(sum)
EndSub
PrivateSubLabel1_Click()
Label1.Caption=Str(sum)
EndSub
方法二:
dountil
Dimx,y,sum,DAsDouble
x=Int(Text1.Text)
y=Int(Text2.Text)
D=1
sum=0
Dountilx=y+1
x=x+1
D=D*(x-1)
sum=sum+1/D
Loop
Label1.Caption=Str(sum)
PrivateSubLabel1_Click()
Label1.Caption=Str(sum)
EndSub
法三:
for
DimX,Y,SUM,A,UAsDouble
X=Int(Text1.Text)
Y=Int(Text2.Text)
SUM=0
A=1
ForU=XToYStep1
A=U*A
SUM=SUM+1/A
NextU
Label1.Caption=Str(SUM)
附加:
计算1+1/2!
+1/3!
+…+1/10!
PrivateSubCommand1_Click()
Dimi,y,z,sAsDouble
i=0
s=0
y=1
Fori=1To10
y=y*i
z=1/y
s=s+z
Nexti
Print"阶乘="&Str(s)
EndSub
(2)条件语句:
关于税收计算使用if语句
需要一个command一个text一个label
PrivateSubCommand1_Click()
DimxAsDouble
x=Val(Text1.Text)
IfText1.Text=""Then
MsgBox"请重新输入"
EndIf
Ifx<1200Then
Label1.Caption=Str(x*0)
Else
Ifx<1700Then
Label1.Caption=Str(x*0.05)
Else
Ifx<3200Then
Label1.Caption=Str(x*0.01)
Else
Label1.Caption=Str(x*0.02)
EndIf
EndIf
EndIf
EndSub
判断学生成绩等级:
使用selectcase语句
PrivateSubCommand_Click()
IfText1.Text=""Then
Score=val(text1.text)
Selectcasescore
Case0to59
Print"你的成绩不及格"
Case60to69
Print"你的成绩是及格"
Case70to79
Print"你的成绩中等"
Case80to89
Print"你的成绩良好"
Case90to100
Print"你的成绩优秀"
Caseelse
Print"你输入的成绩有问题"
Endselect
Endif
Endsub
(3)如果输入正确隐藏form1输入错误出现累加的框
PrivateSubCommand1_Click()
IfText1.Text="123"Then
IfText2.Text="123"Then
Form2.Hide
Else
Form1.Show
EndIf
EndIf
EndSub
累加计算:
PrivateSubCommand1_Click()
Dimx,y,z,sumAsInteger
x=Int(Text1.Text)
y=Int(Text2.Text)
sum=0
Forz=xToyStep2
sum=sum+z
Nextz
Label1.Caption=Str(sum)
EndSub
(4)手机号抽奖:
PrivateSubCommand1_Click()
Timer1.Enabled=True
EndSub
PrivateSubCommand2_Click()
Timer1.Enabled=False
Label1.Caption=""
prg.Value=0
EndSub
PrivateSubForm_Load()
Timer1.Interval=100
Timer1.Enabled=False
prg.Value=0
EndSub
PrivateSubTimer1_Timer()
Ifprg.Value prg.Value=prg.Value+1 Label1.Caption=Str(prg.Value) Ifprg.Value=100Then prg.Value=0 prg.Enabled=False Timer1.Enabled=False EndIf Text1.Text="1" IfText2.Text=""Then Text2.Text="3" Else IfText2.Text="3"Then Text2.Text="5" Else IfText2.Text="5"Then Text2.Text="8" Else IfText2.Text="8"Then Text2.Text="3" EndIf EndIf EndIf EndIf EndIf Text3.Text=""+Str(Fix(10*Rnd())) Text4.Text=""+Str(Fix(10*Rnd())) Text5.Text=""+Str(Fix(10*Rnd())) Text6.Text=""+Str(Fix(10*Rnd())) Text7.Text=""+Str(Fix(10*Rnd())) Text8.Text=""+Str(Fix(10*Rnd())) Text9.Text=""+Str(Fix(10*Rnd())) Text10.Text=""+Str(Fix(10*Rnd())) Text11.Text=""+Str(Fix(10*Rnd())) EndSub (5)下雪花 PrivateSubCommand1_Click() Timer1.Enabled=True EndSub PrivateSubCommand2_Click() Timer1.Enabled=False EndSub PrivateSubCommand3_Click() Picture1.Refresh EndSub PrivateSubForm_Load() Timer1.Enabled=False Timer1.Interval=100 Picture1.BackColor=vbWhite EndSub PrivateSubTimer1_Timer() Picture1.CurrentX=Rnd*Picture1.ScaleWidth Picture1.CurrentY=Rnd*Picture1.ScaleHeight Picture1.FontSize=Rnd*20+5 Picture1.ForeColor=RGB(Round(Rnd*255),Round(Rnd*255),Round(Rnd*255)) Picture1.Print"*" EndSub 雪花和圆圈 DimxAsInteger PrivateSubCommand1_Click() Timer1.Enabled=True EndSub PrivateSubCommand2_Click() Timer1.Enabled=False EndSub PrivateSubCommand3_Click() Picture1.Refresh EndSub PrivateSubForm_Load() Timer1.Enabled=False Timer1.Interval=100 Picture1.BackColor=vbWhite x=0 EndSub PrivateSubTimer1_Timer() x=x+1 Picture1.CurrentX=Rnd*Picture1.ScaleWidth Picture1.CurrentY=Rnd*Picture1.ScaleHeight Picture1.FontSize=Rnd*20+5 Picture1.ForeColor=RGB(Round(Rnd*255),Round(Rnd*255),Round(Rnd*255)) IfxMod3=0Then Picture1.Print"*" Else IfxMod3=1Then Picture1.Print"O" Else Picture1.Print"#" EndIf EndIf EndSub (6)圆从小变大 DimrAsDouble PrivateSubForm_Load() r=0 Timer1.Interval=1 EndSub PrivateSubPicture1_Click() EndSub PrivateSubTimer1_Timer() Dimx,yAsDouble x=Picture1.Width y=Picture1.Height Picture1.FillStyle=0 Picture1.FillColor=RGB(Rnd*255,Rnd*255,Rnd*255) r=r+1 Picture1.Circle(x/2,y/2),r,RGB(Rnd*255,Rnd*255,Rnd*255) Ifr=Picture1.Width/2Then Picture1.Cls r=1 EndIf EndSub (7)综合题 1、首先在Asscee里面建数据库学生管理,并在其中建表学生管理(字段: 学号,姓名院系,籍贯,性别,入学成绩)如下表: 2、按一下步骤操作 开始——设置——控制面板——管理工具——数据源——系统DSN——添加——MicrosoftAccessDriver(*mdb) 在数据源名输入学生管理,数据库选择从把自己建的数据库找出来。 最后确定。 在from1从添加新的部件,一个是adodc,另一个是表格如下图所示 在表单上面添加控件,制作表单基本构架 3、在adodc1中的recordsource命令文本输入如图内容 在connectionstrition使用ODBC数据源名称寻找学生管理。 4、DateGried中的DateSource属性选择Adodc1 5、在command.Click先代码: 6运行,当输入姓名、院系、籍贯、性别,会自动查询以下信息,如图所示:
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 面向 对象 设计 实验 报告