VB程序设计实例.docx

?

?

VB程序设计实例

?

?

陈正光

在初中《信息技术》（福建教育出版社，《信息技术》教材编写组编著）八年级上册中，其中第二单元“VB程序设计基础”介绍了VB的开发环境和有关基础知识，初步体验了顺序、分支和循环结构的程序设计，让学生深刻体会到了可视化程序设计的一般过程。下面介绍本人在平时教学过程中对VB程序设计的一些体会和做法。

一、教材中有一个“电视歌手大奖赛评分”程序设计，题目是这样的：在电视歌手大奖赛中，经常有10个评委为参赛选手打分，分数为1到10分。选手的得分为去掉一个最高分和一个最低分后其余8个分数的平均值。请你编写一个程序，当用户点击“开始”按钮后，程序将提示输入各个评委的打分，输入一个并在列表框中显示一个打分，最后在列表框输出去掉的最高分、最低分以及最后得分。

我们可以对教材中的“电视歌手大奖赛评分”程序设计进行拓展引伸，设计出比较智能多用途的程序。现介绍如下。

1.程序界面设计

新建一个标准exe工程，添加如表1所示的控件，并设置控件相应的属性。（见附图1）

表1“时钟的时针和分针重合的问题”程序用到的控件及其属性说明

2.算法分析

①请输入这次大奖赛的满分分数（如10分或100分）以及评委的人数，赋值给系统的公共变量public_min和public_i。这里要求事先定义好这两个系统公共变量。

系统公共变量的定义方法：单击“工程”菜单，选择“添加模块”命令，在“Module1”框中输入Publicpublic_minAsSingle和public_iAsSingle即可。

②输入各评委的评分并计算。如果输入的数值超过事先输入的满分的值，系统则提示：“出错啦，分数超出范围。”在这里用到了For…Next循环语句、输入函数InputBox（提示信息，标题，默认值，位置）和输出函数MsgBox“”。

③输出。去掉一个最高分和一个最低分后其余分数的平均分。

3.编写事件过程

由于在“大奖赛评分系统”程序中用户单击“请先输入满分和评委人数”按钮后，开始读入满分分数和评委人数，因此：

⑴在“Command1”的“Click”事件过程中程序代码如下：

PrivateSubCommand1_Click（）

public_min=Val（InputBox（请输入本次大赛的满分分数，输入满分分数））

public_i=Val（InputBox（请输入本次大赛的评委人数，输入评委人数））

EndSub

⑵在“Command2”的“Click”事件过程中程序代码如下：

PrivateSubCommand1_Click（）

DimmaxAsSingle，minAsSingle，scoreAsSingle，sumAsSingle

DimiAsSingle

List1.Clear‘列表清空

max=0

min=public_min

sum=0

ii=public_i

Fori=1Toii

‘输入第i个评委的打分

score=Val（InputBox（请输入第i？个评委的打分，输入分数））

‘将第i个评委的分数加入列表

Ifscore=public_minThen

List1.AddItem（评委i￡oscore）

IfscoremaxThenmax=score

IfscoreminThenmin=score

sum=sum+score

Else

MsgBox出錯啦，分数超出范围

ExitSub

EndIf

Nexti

将“去掉一个最高分：”与max的值连接成字符串添加到List列表框中

List1.AddItem（去掉一个最高分：omax）

List1.AddItem（去掉一个最低分：omin）

List1.AddItem（选手最后得分o（sum-max-min）/（ii-2））

EndSub

⑶在“Command3”的“Click”事件过程中程序代码如下：

PrivateSubCommand3_Click（）

End

EndSub

二、下面针对教材的第103页和第107页的“创新活动”中的问题给出比较详细的程序编写过程。

㈠教材第103页“创新活动”的问题：在12小时制的时间中，在钟表正常走动的时候，有多少个时针和分针重合的位置？它们分别表示什么时刻（精确到秒即可）？

请编写一个界面如附图2所示的“时钟的时针和分针重合的问题”程序，单击“开始计算”按钮，程序计算并显示出答案，单击“退出”按钮，结束程序运行。

1.程序界面设计

新建一个标准exe工程，添加如表2所示的控件，并设置控件相应的属性。

?