第9、10章实验题与期末综合练习题编程题

《第9、10章实验题与期末综合练习题编程题》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第9、10章上机实验题与期末综合练习编程题一、第9章上机实验题第2小题PrivateSubCmd1_Click()Txt1.Visible=TrueEndSubPrivateSubCmd2_Click()Txt1.Visible=FalseEndSubPrivateSubCmd3_Click()DoCmd.CloseEndSub第3小题PrivateSubCmd1_Click()‘[+]按钮Lab1.Caption="+"Txt3.Value=Val(Txt1.Value)+Val(Txt2.Value)EndSubPrivateSubC

2、md2_Click()‘[-]按钮Lab1.Caption=Cmd2.CaptionTxt3.Value=CSng(Txt1.Value)-CSng(Txt2.Value)EndSubPrivateSubCmd7_Click()‘[清除]按钮Txt1.Value=""Txt2.Value=""Txt3.Value=""EndSub第4小题PrivateSubCmd1_Click()‘[计算]按钮代码DimsAsInteger,nAsInteger,iAsIntegerTxt1.Value=""s=0‘求和的初值n=CInt(InputBo

3、x("请输入一个大于1的正整数","输入一个整数"))Fori=2TonStep2s=s+iNextiTxt1.Value="[1,"&n&"]之间的所有偶数之和是："&sEndSub第5小题PrivateSubCmd1_Click()‘[降序排序]按钮代码DimiAsInteger,jAsInteger,a(10)AsSingleTxt1.Value="排序前的原数据序列是："Fori=1To10‘输入10个数并在文本框1显示a(i)=InputBox("请输入一个数")Txt1.Value=Txt1.Value&a(i)&""Next

4、iFori=1To9‘降序排序10个数Forj=i+1To10Ifa(i)

5、andomuum(r)‘调用20次子过程Txt1.Value=Txt1.Value&r&"，"NextiEndSubSubrandomuum(x)‘产生一个随机整数的子过程Randomizex=Int((999-100+1)*Rnd+100)EndSub第7小题PrivateSubCmd1_Click()‘[求圆周长]按钮代码Dimk!Txt1.Value=""k=CSng(InputBox("请输入半径值："))Txt1.Value="半径为"&k&"的圆的周长是"&girth(k)EndSubPrivateFunctiongirth(

6、rAsSingle)AsSingle‘求圆周长函数过程Ifr<=0ThenMsgBox"圆的半径必须是正数！",vbCritical,"警告"girth=0ExitFunctionEndIfgirth=2*r*3.14159EndFunction二、第10章上机实验题第2小题（方法1）PrivateSubCmd0_Click()DimwksAsWorkspace'声明工作区对象变量DimdbsAsDatabase'声明数据库对象变量Setwks=DBEngine.Workspaces(0)'打开默认工作区（即0号工作区）Setdbs=wk

7、s.Databases(0)'打开当前数据库（即0号数据库）Lab0.Caption=dbs.Name'Name是Database对象变量的属性EndSub第2小题（方法2）PrivateSubCmd0_Click()DimdbsAsDatabase'声明数据库对象变量Setdbs=CurrentDb()'打开当前数据库Lab0.Caption=dbs.Name'Name是Database对象变量的属性EndSub第3小题（方法1）PrivateSubCmd0_Click()DimwksAsWorkspace'声明工作区对象变量Dimdb

8、sAsDatabase'声明数据库对象变量DimtbeAsTableDef'声明表对象变量DimfedAsField'声明字段对象变量DimidxAsIndex'声明索引对象变量Setwks=