早教吧作业答案频道 -->其他-->
Vb:一条长度为L的铁丝,要制作一个面积最大的矩形框.填空完成程序,输入铁丝的长度L,输出矩形面积的最PrivateSubCommand1Click()DimLAsIntegerDimchangAsIntegerDimkuaiAsIntegerDimsAsInteg
题目详情
Vb:一条长度为L的铁丝,要制作一个面积最大的矩形框.填空完成程序,输入铁丝的长度L,输出矩形面积的最
Private Sub Command1_Click()
Dim L As Integer
Dim chang As Integer
Dim kuai As Integer
Dim s As Integer
Dim smax As Integer
smax = 0
L = InputBox("请输入一条铁丝的长度:")
For chang = 1 To L \ 2
For kuai = 1 To L \ 2 - chang
s = ①
If ② Then
smax = s
End If
Next kuai
Next chang
Print ③
End Sub
Private Sub Command1_Click()
Dim L As Integer
Dim chang As Integer
Dim kuai As Integer
Dim s As Integer
Dim smax As Integer
smax = 0
L = InputBox("请输入一条铁丝的长度:")
For chang = 1 To L \ 2
For kuai = 1 To L \ 2 - chang
s = ①
If ② Then
smax = s
End If
Next kuai
Next chang
Print ③
End Sub
▼优质解答
答案和解析
①(chang/2)*(kuai/2)
②s>smax
③smax
②s>smax
③smax
看了Vb:一条长度为L的铁丝,要制...的网友还看了以下:
等周长L的圆和矩形哪个面积大?如何证明?我已经知道圆面积和正方形面积用L的表达法差一步是邻边不相等的 2020-03-30 …
在学习扇形的面积公式时,同学们推得S扇形=,并通过比较扇形面积公式与弧长公式l=,得出扇形面积的另 2020-04-24 …
(2006•太原)在学习扇形的面积公式时,同学们推得S扇形=nπR2360,并通过比较扇形面积公式 2020-04-24 …
王师傅从一块圆形铁皮上剪下一个正方形.正方形的面积是12平方厘米.阴影部分的面积是多少平方厘米从在 2020-04-27 …
一道关于VF的题题目是这样的:从键盘输入a、b、c的值,判断它们能否构成三角形的三条边.如果能构成 2020-05-13 …
如图,某广场地面的图案是用大小相同的黑、白正方形地砖镶嵌而成,图中第1个黑色L形由3个正方形组成, 2020-05-14 …
在直线l上依次摆放着七个正方形.已知斜放置的三个正方形的面积分别是1、2、3,正放置的四个正方形的 2020-05-16 …
求三角形的面积的最小值设m,n∈R,若直线l:mx+ny-1=0与x轴相交与A点,与y轴相交于B点 2020-05-20 …
已知扇形的圆心角是α,半径为R,弧长为L.若扇形的周长为60cm(2)若扇形的周长为20cm,当扇 2020-06-12 …
如图,某广场地面的图案是用大小相同的黑、白正方形地砖镶嵌而成,图中第1个黑色L形由3个正方形组成, 2020-07-01 …