2016-10-06 16:13发布
解决方案1:
中国学网 www.xue163.co
以下是代码:
Private Sub Command1_Click()
Dim a, b, c, x, y As String
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
x = (-b + √(b * b - 4 * a * c)) / (2 * a)
y = (-b - √(b * b - 4 * a * c)) / (2 * a)
Label5.Caption = "x"
Label6.Caption = "y"
End Sub
解决方案2:
你要将数学符号与VB函数区分,VB不支持数学的 √的
它要用sqr函数有
最多设置5个标签!
解决方案1:
中国学网 www.xue163.co
以下是代码:
Private Sub Command1_Click()
Dim a, b, c, x, y As String
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
x = (-b + √(b * b - 4 * a * c)) / (2 * a)
y = (-b - √(b * b - 4 * a * c)) / (2 * a)
Label5.Caption = "x"
Label6.Caption = "y"
End Sub
解决方案2:
你要将数学符号与VB函数区分,VB不支持数学的 √的
它要用sqr函数有
一周热门 更多>