1. 在文本框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

 If i>j Then Exit For

 List1.AddItem Str(i)+”   ”+Str(j)+”    ”+Str(s)

 If Then max=s

 End If

 Text2.Text=Str(max)

End Sub

【考点】
常量、变量及变量的赋值;
【答案】

您现在未登录,无法查看试题答案与解析。 登录
综合题 普通
基础巩固
能力提升
变式训练
拓展培优
换一批