|
#2
风吹过b2013-05-30 08:26
新加一个 模块，在模块里写内容
 程序代码：Dim 收入 As Single, 支出 As Single Public Sub 收入计算() 收入 = Val(Form1.text1.Text) + Val(Form1.text2.Text) + Val(Form1.text3.Text) + Val(Form1.text4.Text) End Sub Public Sub 支出计算() 收入 = Val(form2.text1.Text) + Val(form2.text2.Text) + Val(form2.text3.Text) + Val(form2.text4.Text) + _ Val(form2.text5.Text) + Val(form2.text6.Text) End Sub Public Sub 显示结果() form3.Font.Size = 20 form3.ForeColor = vbBlack form3.Print "收入："; form3.ForeColor = vbRed form3.Print 收入 form3.ForeColor = vbBlack form3.Print "支出："; form3.ForeColor = vbRed form3.Print 支出 form3.ForeColor = vbBlack form3.Print "剩余："; form3.ForeColor = vbRed form3.Print 收入 - 支出 End Sub 你按下form1窗口的下一步时，在你显示 form2 之前，调用 收入 过程。 你按下form2窗口的下一步时，在你显示 form3 之前，调用 支出 过程。 然后显示 form3 后，再调用 显示结果 过程。 |
只有本站会员才能查看附件，请 登录