找出其中的最大值和对应的输入位置。请在空白处填入适当语句，使程序可以完成指定的功能。

问题：

找出其中的最大值和对应的输入位置。请在空白处填入适当语句，使程序可以完成指定的功能。
Private Sub Command12_Click()
max=0
maxn=0
For i=1 To 10
num=Val(InputBox("请输入第"＆i＆"个大于0的整数:"))
If (11) Then
max=num
maxn= (12)
End If
Next i
MsgBox("最大值为第"＆maxn＆"个输入的"＆max)
End Sub