设有一个一维数组a保存了10根钢筋的长度(分别是:5、14、2、6、15、20、4、34、7、10),从中选3根围成一个面积最大的三角形,并输出3根钢筋的长度和围成三角形的面积。 Private Sub Form_Click() Dim i%, j%, k%, s!, d!, m!, x%, y%, z% a = Array(5, 14, 2, 6, 15, 20, 4, 34, 7, 10) For i = 0 To 9 '第1根钢筋编号 For j =(1)________ '第2根钢筋编号 For h = j + 1 To 9 '第3根钢筋编号 If a(i) + a(j) > a(h) And a(i) + a(h) > a(j) And (2)_________ Then '判断能构成三角形 d = (a(i) + a(j) + a(h)) / 2 s = Sqr((d - a(i)) * (d - a(j)) * (d - a(h)) * d) If s > m Then m = s: x = i:(3)_________: z = h '记录构成较大面积三角形钢筋编号 End If Next h, j, i Print a(x); a(y); a(z); m End Sub