求流程图和编写vb代码 20
展开全部
程序有，流程图自己画。
Const MaxC = 200 '斜边最大值
Const SideA = 15 '固定的一条直角边
'更改以上两个值，可以计算不同条件下的三角形
Sub Calculate()
Dim SideB As Long, SideC As Double
For SideB = 1 To MaxC
SideC = Sqr(SideA * SideA + SideB * SideB)
If SideC = Int(SideC) And SideC <= MaxC Then
Debug.Print "A=" & SideA & ",B=" & SideB & ",C=" & SideC
End If
Next
End Sub
Const MaxC = 200 '斜边最大值
Const SideA = 15 '固定的一条直角边
'更改以上两个值，可以计算不同条件下的三角形
Sub Calculate()
Dim SideB As Long, SideC As Double
For SideB = 1 To MaxC
SideC = Sqr(SideA * SideA + SideB * SideB)
If SideC = Int(SideC) And SideC <= MaxC Then
Debug.Print "A=" & SideA & ",B=" & SideB & ",C=" & SideC
End If
Next
End Sub
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
