HELP!!!


我有两个问题想请教
下面第一个请帮忙看一下到底哪里错了，程序不能运行：
Option Base 1
Private Sub Form_click()
Dim min As Single, i As Integer, n As Integer
Dim a()
n = CInt(Val(InputBox("输入元素个数")))
ReDim a(1 To n)
For i = 1 To n
a(i) = CSng(Val(InputBox("输入第" & Str(i) & "个数")))
Next i
Print minnumber(a())
End Sub
Private Function minnumber(ParamArray nums()) As Single
Dim x, minnum As Single
minnum = 3.4E+38
For Each x In nums
If minnum > x Then minnum = x
Next x
minnumber = minnum
End Function
第二个，程序是对的，但看不懂是什么意思：
 
Private Sub Form_Click()
Dim x As Integer, y As Integer
x = 1
For y = 1 To 50
If x >= 10 Then
Exit For
End If
If x Mod 2 = 1 Then
x = x + 5
Else
x = x - 3
End If
Next y
Print x
End Sub