VB多窗体综合应用

【#文档大全网# 导语】以下是®文档大全网的小编为您整理的《VB多窗体综合应用》，欢迎阅读！

题目：多重窗体应用示例。输入学生5门课程的成绩，计算总分及平均分并显示。

本例有三个窗体form1、form2和form3，分别作为本应用程序的主窗体、输入窗体和输出窗体。还有一个标准模块module1，对窗体间共用的全局变量进行了说明。

Form1窗体：如下图所示，这是主窗体，运行后看到的第一个窗体。单击“输入成绩”按钮显示form2，单击“计算成绩”按钮显示form3.



Form2窗体：如下图所示，这是在主窗体上单击“输入成绩”按钮后弹出的窗体。改窗体上有5个用于输入学生成绩的文本框和一个“返回”按钮。



Form3窗体：如下图所示，这是在主窗体上单击“计算成绩”按钮后弹出的窗体。该窗体上有两个用于显示学生平均成绩和总分的文本框和一个“返回”按钮。




具体步骤：

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, sPhysics 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

注：本实验的关键在于

① 需在标准模块中存放多窗体间共用的全局变量； ② 需很清楚窗体间命令启动时要跳跃到的窗体。

本文来源：https://www.wddqxz.cn/7527c93851d380eb6294dd88d0d233d4b14e3f29.html