《VB多窗体综合应用.docx》由会员分享，可在线阅读，更多相关《VB多窗体综合应用.docx（2页珍藏版）》请在三一办公上搜索。
1、VB多窗体综合应用题目：多重窗体应用示例。输入学生5门课程的成绩，计算总分及平均分并显示。 本例有三个窗体form1、form2和form3，分别作为本应用程序的主窗体、输入窗体和输出窗体。还有一个标准模块module1，对窗体间共用的全局变量进行了说明。 Form1窗体：如下图所示，这是主窗体，运行后看到的第一个窗体。单击“输入成绩”按钮显示form2，单击“计算成绩”按钮显示form3. Form2窗体：如下图所示，这是在主窗体上单击“输入成绩”按钮后弹出的窗体。改窗体上有5个用于输入学生成绩的文本框和一个“返回”按钮。 Form3窗体：如下图所示，这是在主窗体上单击“计算成绩”按钮后弹出
2、的窗体。该窗体上有两个用于显示学生平均成绩和总分的文本框和一个“返回”按钮。 具体步骤： 1.在标准模块存放多窗体间共用的全局变量声明： sChinese As Single, sEnglish As Single 2.在form1窗体中添加三个命令按钮，输入以下代码： Sub Command1_Click Form1.Hide Form2.Show End Sub Sub Command2_Click Form1.Hide Form3.Show End Sub Private Sub Command3_Click End End Sub Public sMath As Single, sPh
3、ysics As Single, sChemistry As Single, 3.在form2窗体中添加五个标签控件、5个文本框控件和1个命令按钮，编写如下代码： Sub Command1_Click sMath = Val(Text1.Text) sPhysics = Val(Text2.Text) sChemistry = Val(Text3.Text) sChinese = Val(Text4.Text) sEnglish = Val(Text5.Text) Form2.Hide Form1.Show End Sub 4.在form4中添加2个标签控件、一个命令按钮和两个文本框控件，编写如下代码： Private Sub Command1_Click End End Sub Sub form_activate Dim stotal As Single stotal = sMath + sPhysics + sChemistry + sChinese + sEnglish Text1.Text = stotal / 5 Text2.Text = stotal End Sub 注：本实验的关键在于 需在标准模块中存放多窗体间共用的全局变量； 需很清楚窗体间命令启动时要跳跃到的窗体。
