在文本框Text1中输入一个矩形的周长,单击“求解”按钮Command1,在列表框List1中显示构成这个矩形的长和宽(整数)及他的面积,在文本框Text2中输出构成这个矩形的最大面积。程序运行时界面如下图所示:
程序代码如下所示,请补充完整。
Private Sub Command1_Click()
Dim i As Integer,j As Integer,s As Single,zc As Integer
Dim max As Integer
zc=Val(Text1.Text)
max=0
If zc Mod 2=1 Then
List1.AddItem ”该周长的矩形长度和宽度不是整数!”
Else
List1.AddItem ”宽度 长度 面积”
For i=1 To zc \2
{#blank#}1{#/blank#}
If i>j Then Exit For
{#blank#}2{#/blank#}
List1.AddItem Str(i)+” ”+Str(j)+” ”+Str(s)
If {#blank#}3{#/blank#}Then max=s
End If
Text2.Text=Str(max)
End Sub