《实验六VBA代码的编写与应用》实验指导书Word文件下载.docx
- 文档编号:20775931
- 上传时间:2023-01-25
- 格式:DOCX
- 页数:19
- 大小:732.59KB
《实验六VBA代码的编写与应用》实验指导书Word文件下载.docx
《《实验六VBA代码的编写与应用》实验指导书Word文件下载.docx》由会员分享,可在线阅读,更多相关《《实验六VBA代码的编写与应用》实验指导书Word文件下载.docx(19页珍藏版)》请在冰豆网上搜索。
三、实验步骤
实验6.1
1.窗体名称:
A简单动画
2.利用【在设计视图中创建窗体】创建一个窗体,窗体名称如上
3.通过属性视窗对窗体的“格式”选项卡中进行如下设置:
1滚动条:
两者均无
2记录选择器:
否
3导航按钮:
4分隔线:
5自动调整:
6自动居中:
是
7最大最小化按钮:
无
4.通过属性视窗对窗体的“数据”选项卡中进行如下设置:
1允许编辑:
2允许删除:
3允许增加:
5.将窗体的背景图片设置为您所下载到的“雪景.JPG”,图片类型为“嵌入”,图片缩放模式设置为“拉伸”
6.从工具箱中拖一个“图像”控件到窗体中,其图片文件为所下载到的“豹子1.png”,然后将该控件的名称修改为“Tiger”(很遗憾:
我不记得“豹子”的英语单词啦!
)。
7.将窗体的“计时器间隔”属性设置为“100”,这意味着每隔100毫秒窗体将产生1次“计时器触发”事件(如下图所示)
8.
如图所示,在窗体的“属性”视窗中切换到“事件”选项卡,找到“计时器触发”事件
9.
在上图中单击该事件名称右边标记为三个句点(…)的按钮,系统将显示:
10.
如上图所示从对话框中选择“代码生成器”,然后单击【确定】按钮,系统引领您进入VBA代码编辑窗口,并为您生成了该窗体的计时器触发事件(Timer)处理过程(过程名:
Form_Timer)的轮廓:
11.
现在,请在Form_Timer过程中编写如下代码:
以上过程中,Static是静态变量声明语句,Rem是注释语句,If是判断语句,相信您一定知道If、Then、Else、End这样一些关键字的含义并据此了解到该语句的用途。
If语句的用法请参阅教材P177之8.4.2条件语句
12.本窗体程序中,通过设置窗体的“计时器间隔”(TimerInterval)属性,可使得每隔一定的时间间隔(程序中设置的是100毫秒),就会产生一次“计时器触发”(Timer)事件,即每隔一定的时间间隔就会自动调用过程Form_Timer并执行其中的代码。
然后,利用静态变量在其被声明、赋值后值不会重新初始化的特点,我们声明了一个名为iCount的静态整数变量来跟踪并改变“计时器触发”事件产生时要显示的图片(号)。
通过在连续的“计时器触发”事件处理中连续地显示“豹子1.png、豹子2.png……豹子8.png”8张预先设计好的图片,再配合背景图片,来达成豹子在雪地上奔跑的动画效果。
不过遗憾的是,由于没有实现场景的移动,因此,给到我们的效果是豹子始终在原地奔跑!
13.
完成以上操作后,请保存并关闭VBA环境,回到窗体设计视图后,再切换到“窗体视图”,您将看到或许是您这一辈子所完成的第一个动画作品的效果:
实验6.2
B外部表数据统计
2.参照实验6.1的2~4步创建并设置窗体
3.在窗体中拖放4个标签、4个文本框、1个按钮,共9个控件
4.4个标签的文本依次设置为:
学生人数,平均年龄,最大年龄,最小年龄
5.4个文本框的名称依次设置为:
txtCount,txtAvg,txtMax,txtMin,并将其“文本对齐”全部设置为“右”
6.为唯一的命令按钮的“单击”事件编写代码以实现如下功能(参考教材P173例8-12):
1用Dim语句声明1个整数变量:
i
2
调用MsgBox函数以显示如下消息框并将消息框的返回值赋值给上述变量i:
您应该通过帮助文档查找MsgBox函数以了解其用法及示例
3通过If语句判断变量i的值是否vbNo,如果是该vb库常数,则执行如下语句结束本过程的执行:
ExitSub
4用Dim语句声明3个整数变量:
iCount,iMax,iMin
5用Dim语句声明1个双精度型变量:
iAvg
6通过DCount函数计算“学生”表中国会1、2班的学生人数,将计算结果赋值给iCount,再将iCount设置到txtCount控件内
7通过DMax函数计算“学生”表中国会1、2班年龄最大的学生的年龄,将计算结果赋值给iMax,再将iMax设置到txtMax控件内
8通过DMin函数计算“学生”表中国会1、2班年龄最小的学生的年龄,将计算结果赋值给iMin,再将iMin设置到txtMin控件内
9通过DAvg函数计算“学生”表中国会1、2班全部学生的平均年龄,将计算结果四舍五入(保留1位小数)后赋值给iAvg,再将iAvg设置到txtAvg控件内
提示:
四个统计函数的条件中可使用Like关键字编写要满足的条件,涉及年龄的计算需使用到DateDiff、Date函数,而四舍五入需使用Round函数。
您应该尝试着在帮助文档中查找这里涉及的每一个函数的用法及示例,否则,考试时怎么办?
7.为窗体的“打开”事件编写代码以实现如下功能:
1将窗体的“标题”(Caption)属性设置为你的完整学号+姓名
2将4个文本框的“背景色”(BackColor)属性设置为绿色RGB(0,255,0)
完成以上操作后,请保存并关闭VBA环境,回到窗体设计视图后,再切换到“窗体视图”,您的窗体的运行时截图应类似:
实验6.3
C确定成绩等级(If版)
3.在窗体中拖放2个标签、2个文本框、2个按钮,共6个控件
4.2个标签的文本依次设置为:
成绩,等级
5.2个文本框的名称依次设置为:
txtScore,txtClass
6.2个命令按钮的文本依次设置为:
等级,退出
7.
为【退出】命令按钮的“单击”事件编写如下代码,以显示如下消息框要求用户确认是否退出,如用户选择【确定】,则调用DoCmd对象的Close命令关闭当前窗体退出:
为【等级】命令按钮的“单击”事件编写如下代码,以根据用户在txtScore文本框中输入的成绩确定相应的等级并显示于txtClass文本框中(务必理解并掌握这里展示的嵌套If语句的语法及用途):
实验6.4
D确定成绩等级(Select版)
2.
本实验创建的窗体及其功能与实验6.3中窗体及其功能完全一样,也是确定用户所输入的成绩相应的等级:
3.所不同的是,该实验不再使用嵌套If语句而是使用所谓的“多项选择语句”(SelectCase)语句来判断成绩的等级。
多项选择语句又称为“开关语句”,非常适用于数据分布在多个区间内的情形,详细的资料参见教材P180之“8.4.3多项选择语句”。
具体到本实验而言,您可以复制上一个实验中的窗体后,将【等级】命令按钮之Click事件的
处理代码替换成如下代码即可:
实验6.5
E计算正方形的周长和面积
2.创建如下样式的窗体:
3.具体要求:
1用户点击【计算】按钮时,根据边长计算正方形的周长、面积,并显示于相应的文本框内
2用户点击【关闭】按钮时,关闭当前窗体
实验6.6
F简单计算器
创建如下样式的窗体:
1用户单击【确定】按钮实现算术运算(+、-、*、/)
2用户单击【清空】按钮清空四个文本框中的内容
3用户单击【退出】按钮时关闭本窗体
实验6.7
F计算行李托运费
创建如下样式的窗体以进行行李托运费的计算:
3.行李托运费的收费标准是为:
150kg以内(包括50kg):
按0.20元/kg计费
超过50kg时:
超出部分按0.50元/kg计费
即:
4.请根据上述收费标准编写程序代码计算行李托运费:
1用户单击【计算】按钮时根据行李重量及收费标准计算应付费用
2用户单击【清除】按钮时清除两个文本框中的内容
实验6.8
G计算销售折扣
创建如下样式的窗体以进行销售折扣率的计算:
3.销售折扣率的计算标准为:
销量大于1000时,折扣率为30%;
销量在500-999范围内时,折扣率为20%;
销量在100-499范围内时,折扣率为10%;
销量在50-99范围内时,折扣率为5%;
销量小于50时无折扣(0)
5.请根据上述折扣率计算标准编写程序代码以计算折扣率:
1用户单击【计算】按钮时计算与用户所输入的销量相应的折扣率
2用户单击【退出】按钮时关闭本窗体
实验6.9
H计算阶乘
创建如下样式的窗体以计算自然数n的阶乘n!
(n!
=1*2*3*…*n):
1
用户单击【计算】按钮时计算并显示阶乘值,参考代码:
四、实验报告
1.窗体运行时截图:
答:
2.您对本课程的看法与建议(不少于200字):
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 实验六VBA代码的编写与应用 实验 VBA 代码 编写 应用 指导书
![提示](https://static.bdocx.com/images/bang_tan.gif)