Question

使用VB.NET编写一个程序

使用一根长度为Lcm的铁丝，制作一个面积为S的矩形框，要求计算出满足这种条件的矩形的高h和宽w。

Answer 1

Dim L As Integer = 10
Dim S As Integer = 3
For i = 0 To L
If i > L / 2 Then
Exit For
End If
If i * (L - i) = S Then
MsgBox("长：" + CStr(L - i) + vbCrLf + "宽:" + CStr(i))
End If
Next

追问

h 和w在哪里？

追答

H就是长= L - i
W就是宽 = i

追问

不对

追答

那这个通过一元二次方程公式求解的方式呢？

Dim L As Integer = 6
Dim S As Integer = 5
Dim H As Decimal = 0
Dim W As Decimal = 0

If L * L < 4 * S Then
MsgBox("根据一元二次方程公式，该组合不存在")
Else
H = (L + Math.Sqrt(L * L - 4 * S)) / 2
W = (L - Math.Sqrt(L * L - 4 * S)) / 2
MsgBox("长：" + H.ToString("N2") + vbCrLf + "宽：" + W.ToString("N2"))
End If

追问

乱来的吧，连个按钮都没有，你真的会吗？

追答

都已经写到这种份上了，你居然还说连个按钮都没有。难道我还要建个项目文件给你？

Answer 2

Dim intL As Integer = 0
Dim intS As Integer = 0
Dim intH As Integer = 0
Dim intW As Integer = 0

intL = me.textbox1.text
intS = me.textbox2.text

For inti As Integer = 0 To intL/2
IF inti * (intL - inti) = intS Then
IF inti < (intL - inti) then
intH = inti
intW = intL - inti
ELSE
intW = inti
intH = intL - inti
END IF

END IF
NEXT

追问

拜托自已试过可以再写答案好吗？

追答

我远程都给你写了得了？脑残吧