下列程序的功能是：找出给定的12个数中最大的一个数，然后输出这个数以及经在原来12
option Base 1
Private Sub Form_Click()
Dim x
x = Array(57,-9, 17,42, -31,46, 11, 8, 6, -4, 3,90)
Max=1
For k=2 To 10 Step 1
If x(k) ＞ x(Max) Then
______
End If
Next k
y=______
Print Max, y
End Sub

一个三角形的底是0.4米，高是0.6米，与它等底等高的平行四边形面积是______平方米．