试题

试题 试卷

logo

题型:综合题 题类:常考题 难易度:普通

浙教版信息技术基础第三章 信息的加工

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

举一反三
返回首页

试题篮