下面程序的功能是找出给定的12个数中最大的一个数，然后输出这个数以及它在原来12个数中的位置。请在下划线处填入适当的内容，将程序补充完整。
Option Base 1
Private Sub Form_Click0
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