- 分享
- 0
- 人气
- 0
- 主题
- 17
- 帖子
- 30
- UID
- 542730
- 积分
- 31
- 阅读权限
- 11
- 注册时间
- 2013-1-19
- 最后登录
- 2014-3-4
- 在线时间
- 162 小时
|
本帖最后由 mysinyics 于 2013-9-26 04:58 AM 编辑
这个是我用MS VISUAL STUDIO 2012制作的VB程式
第一个form1
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Hide()
form2_load()
End Sub
Private Sub form2_load()
Form2.Show()
End Sub
End Class
第二个form2
Public Class Form2
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Hide()
form3_load()
End Sub
Private Sub form3_load()
Form3.Show()
End Sub
End Class
第三3个form3
Public Class Form3
Dim x, y, z As String
Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
x = Val(Form1.TextBox1.Text) + Val(Form1.TextBox2.Text)
y = Val(Form2.TextBox1.Text) + Val(Form2.TextBox2.Text)
z = x - y
Label1.Text = z
End Sub
End Class
我的程式可以执行了,非常谢谢大家的帮忙
|
|