使用VB.NET编写一个程序使用一根长度为Lcm的铁丝,制作一个面积为S的矩形框,要求计算出满足这种条件的矩形的高h和宽w.

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