VB多窗体综合应用

2022-04-18 07:50:06   文档大全网     [ 字体: ] [ 阅读: ]

#文档大全网# 导语】以下是®文档大全网的小编为您整理的《VB多窗体综合应用》,欢迎阅读!
窗体,应用,综合
题目:多重窗体应用示例。输入学5课程的成绩,计算总分及平均分并显示。

本例有三个窗体form1form2form3,分别作为本应用程序的主窗体、输入窗体和输出窗体。还有一个标准模块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

相关推荐