作者biox ()
看板Visual_Basic
标题[.NET] 想请问有关直角三角形的程式
时间Wed Dec 20 11:16:16 2006
就是请使用者输入两个边长在询问是否包含斜边
再算出第三边长
如果按有包含的话那个回圈是可以执行的
问题出在如果按下没有包含的时候是会卡住的 程式就当了@@"
所以请问一下这是什麽问题？
程式码如下；
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim a, b As Double
Dim temp As Double
a = Val(InputBox("第一个边长："))
b = Val(InputBox("第一个边长："))
If b > a Then
temp = a
a = b
b = temp
End If
Dim x As DialogResult
Dim c As Integer = 0
x = MessageBox.Show("是否包含斜边长？", "斜边",
MessageBoxButtons.YesNo)
If x.Yes Then
Do Until a ^ 2 = b ^ 2 + c ^ 2
c = c + 1
Loop
Else
Do Until c ^ 2 = a ^ 2 + b ^ 2
c = c + 1
Loop
End If
Label1.Text = c
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.224.142.19