Private Sub Command1_Click()
Dim a As Long, b As Long, x As Long, c As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
x = Val(Text4.Text)
c = x * b / 1200
Text3.Text = c
Text4.Text = x + a + c
Text5.Text = Val(Text5.Text) + 1
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024