UC知道13：25前用QBASIC求勾股定理
来源：百度知道 编辑：UC知道 时间：2024/05/26 11:30:49
快快快
程序怎么写
已知直角三角形的两条直角边求斜边的长
程序怎么写
已知直角三角形的两条直角边求斜边的长
Private Sub Command1_Click()
Dim a, b, c As Long
Dim question As String
a = InputBox(直角边1的长, , 0)
b = InputBox(直角边2的长, , 0)
c = Sqr(a ^ 2 + b ^ 2)
question = "斜边的长是" & Str(c)
MsgBox question
End Sub
老大，那是VB呀！
改变一下：
CLS
INPUT "A=",A
INPUT "B=",B
C=SQR(A^2+B^2)
PRINT LTRIM$(STR$(C))
END