vb多窗体综合应用

《vb多窗体综合应用》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、题目：多重窗体应用示例。输入学生5门课程的成绩，计算总分及平均分并显zKo本例有三个窗体forml、form2和form3,分别作为本应用程序的主窗体、输入窗体和输出窗体。还有一个标准模块modulel,对窗体间共用的全局变量进行了说明。Forml窗体：如下图所示，这是主窗体，运行后看到的第一个窗体。单击“输入成绩”按钮显示form2,单击“计算成绩”按钮显示form3.倉多重窗体应用程序口回冈输入成绩计算成绩结束Form2窗体：如下图所示，这是在主窗体上单击“输入成绩”按钮后弹出的窗体。改窗体上有5个用于输

2、入学生成绩的文本框和一个“返回”按钮。Form3窗体：如下图所示，这是在主窗体上单击“计算成绩”按钮后弹出的窗体。该窗体上有两个用于显示学生平均成绩和总分的文本框和一个“返回”按钮。具体步骤：1・在标准模块存放多窗体间共用的全局变量声明：PublicsMathAsSingle,sPhysicsAsSingle,sChemistryAsSingle,sChineseAsSingle,sEnglishAsSingle2.在forml窗体中添加三个命令按钮，输入以下代码:SubCommandl_Click()For

3、ml.HideForm2.ShowEndSubSubCommand2_Click()Forml.HideForm3.ShowEndSubPrivateSubCommand3_Click()EndEndSub2.在form2窗体中添加五个标签控件、5个文本框控件和1个命令按钮，编写如下代码：SubCommand1_Click()sMath=Val(Textl.Text)sPhysics=Val(Text2.Text)sChemistry=Vai(Text3.Text)sChinese=Val(Text4.Tex

4、t)sEnglish=Val(TextS.Text)Form2.HideForm1.ShowEndSub4•在form4屮添加2个标签控件、一个命令按钮和两个文本框控件，编写如下代码：PrivateSubCommandl_Click()EndEndSubSubform_activate()DimstotalAsSinglestotal=sMath+sPhysics+sChemistry+sChinese+sEnglishText1.Text二stotal/5Text2.Text=stotalEndSub注：本

5、实验的关键在于①需在标准模块中存放多窗体间共用的全局变量;②需很清楚窗体间命令启动吋要跳跃到的窗体。