admin 管理员组文章数量: 1184232
2024年3月27日发(作者：for循环i++和++i的区别)
Public Class Form1
Public zt As Integer
Public fh As Integer
Public x, y As Single
Private Sub Form1_Load(ByVal sender As
rgs) Handles
zt = 1
fh = 0
= 0
x = 0
y = 0
End Sub
Private Sub Button1_Click(ByVal sender
rgs) Handles
, ByVal e
As Object, ByVal e
As
As
If zt = 1 Then
= * 10 + 1
zt = 2
ElseIf zt = 2 Then
= * 10 + 1
ElseIf zt = 3 Then
= 1
zt = 4
ElseIf zt = 4 Then
= * 10 + 1
End If
End Sub
Private Sub Button2_Click(ByVal sender
rgs) Handles
As Object, e AsByVal
If zt = 1 Then
= * 10 + 2
zt = 2
ElseIf zt = 2 Then
= * 10 + 2
ElseIf zt = 3 Then
= 2
zt = 4
ElseIf zt = 4 Then
= * 10 + 2
End If
End Sub
Private Sub Button3_Click(ByVal sender
rgs) Handles
As Object, e AsByVal
If zt = 1 Then
= * 10 + 3
zt = 2
ElseIf zt = 2 Then
= * 10 + 3
ElseIf zt = 3 Then
= 3
zt = 4
ElseIf zt = 4 Then
= * 10 + 3
End If
End Sub
Private Sub Button11_Click(ByVal sender As
rgs) Handles
, ByVal e As
If zt = 2 Then
x =
fh = 1
zt = 3
ElseIf zt = 3 Then
fh = 1
End If
End Sub
Private Sub Button13_Click(ByVal sender
rgs) Handles
If zt = 2 Then
x =
fh = 3
zt = 3
As , ByVal e As
ElseIf zt = 3 Then
fh = 3
End If
End Sub
Private Sub Button12_Click(ByVal sender
rgs) Handles
If zt = 2 Then
x =
fh = 2
zt = 3
ElseIf zt = 3 Then
fh = 2
End If
End Sub
As , ByVal e As
Private Sub Button14_Click(ByVal sender As , ByVal e As
rgs) Handles
If zt = 2 Then
x =
fh = 4
zt = 3
ElseIf zt = 3 Then
fh = 4
End If
End Sub
Private Sub Button15_Click(ByVal sender
rgs) Handles
x = 0
y = 0
As , ByVal e As
= 0
fh = 0
zt = 1
End Sub
Private Sub Button16_Click(ByVal sender
rgs) Handles
If zt = 4 Then
y =
If fh = 1 Then
= x + y
ElseIf fh = 2 Then
= x - y
ElseIf fh = 3 Then
= x * y
As , ByVal e As
ElseIf fh = 4 Then
= x / y
End If
End If
End Sub
Private Sub Button4_Click(ByVal sender As
rgs) Handles
If zt = 1 Then
= * 10 + 4
zt = 2
ElseIf zt = 2 Then
= * 10 + 4
ElseIf zt = 3 Then
= 4
e As , ByVal
zt = 4
ElseIf zt = 4 Then
= * 10 + 4
End If
End Sub
Private Sub Button5_Click(ByVal sender As
rgs) Handles
If zt = 1 Then
= * 10 + 5
zt = 2
ElseIf zt = 2 Then
= * 10 + 5
ElseIf zt = 3 Then
= 5
e , ByVal
zt = 4
ElseIf zt = 4 Then
= * 10 + 5
End If
End Sub
Private Sub Button6_Click(ByVal sender
rgs) Handles
If zt = 1 Then
= * 10 + 6
zt = 2
ElseIf zt = 2 Then
= * 10 + 6
ElseIf zt = 3 Then
= 6
As Object, e AsByVal
zt = 4
ElseIf zt = 4 Then
= * 10 + 6
End If
End Sub
Private Sub Button7_Click(ByVal sender
rgs) Handles
If zt = 1 Then
= * 10 + 7
zt = 2
ElseIf zt = 2 Then
= * 10 + 7
ElseIf zt = 3 Then
= 7
As Object, e AsByVal
zt = 4
ElseIf zt = 4 Then
= * 10 + 7
End If
End Sub
Private Sub Button8_Click(ByVal sender
rgs) Handles
If zt = 1 Then
= * 10 + 8
zt = 2
ElseIf zt = 2 Then
= * 10 + 8
ElseIf zt = 3 Then
= 8
As Object, e AsByVal
zt = 4
ElseIf zt = 4 Then
= * 10 + 8
End If
End Sub
Private Sub Button9_Click(ByVal sender
rgs) Handles
If zt = 1 Then
= * 10 + 9
zt = 2
ElseIf zt = 2 Then
= * 10 + 9
ElseIf zt = 3 Then
= 9
As Object, e AsByVal
zt = 4
ElseIf zt = 4 Then
= * 10 + 9
End If
End Sub
Private Sub Button10_Click(ByVal sender
rgs) Handles
If zt = 1 Then
= * 10 + 0
zt = 2
ElseIf zt = 2 Then
= * 10 + 0
ElseIf zt = 3 Then
= 0
As Object, e AsByVal
zt = 4
ElseIf zt = 4 Then
= * 10 + 0
End If
End Sub
End Class
版权声明：本文标题：VB计算器程序代码 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/p/1711528260a598458.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论