VB多窗体综合应用

2022-04-18 07:50:06 第一文档网 [ 字体：小中大 ] [

阅读： ] [

说明：文章内容仅供预览，部分内容可能不全。下载后的文档，内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的，是否完整无缺。下载word有问题请添加QQ：admin处理，感谢您的支持与谅解。

【#第一文档网# 导语】以下是®第一文档网的小编为您整理的《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.dywdw.cn/7527c93851d380eb6294dd88d0d233d4b14e3f29.html