帮我看看我的代码有什么问题

最新推荐文章于 2024-04-15 14:58:51 发布

gracefuljinli

最新推荐文章于 2024-04-15 14:58:51 发布

阅读量283

点赞数 1

文章标签： command c

本文链接：https://blog.csdn.net/gracefuljinli/article/details/2418762

版权

Private Sub Command1_Click()
Dim a, b, c, d As Double
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""

a = (Val(Text5.Text) - Val(Text6.Text)) / Val(Text5.Text)
b = (Val(Text7.Text) - Val(Text8.Text)) / Val(Text7.Text)
c = (Val(Text9.Text) - Val(Text10.Text)) / Val(Text9.Text)
d = (Val(Text11.Text) - Val(Text12.Text)) / Val(Text11.Text)
Increase(a,b,c,d)
End Sub

Private Sub Increase(ByVal x1 As Double, ByVal x2 As Double, ByVal x3 As Double, ByVal x4 As Double)
Text1.Text = Str(x1)
Text2.Text = Str(x2)
Text3.Text = Str(x3)
Text4.Text = Str(x4)
End Sub