如何用VB编写已知两直角边求第三边的程序

我来答个具体的吧：
这是个窗体的点击事件，代码直接输进去就行了

Private Sub Form_Click()
a = InputBox("请输入a", "输入数据")
b = InputBox("请输入b", "输入数据")
MsgBox "第三边为" + Str(Sqr(a ^ 2 + b ^ 2))
End Sub

通过公式 a^2+b^2=c^2 就行了
c=sqr(a^2+b^2)