谁来帮俺看看这几段vb程序有什么错误啊 谢谢啊

Function xiaoyu()
xiaoyu = True
Dim n As Integer
Dim fm As Integer
Dim sum As Integer
fm = 1
sum = 0
n = 1
Do While xiaoyu = True
fm = fm * 2 * n
sum = sum + 1 / fm
n = n + 1
If fm > 10000 Then
xiaoyu = False
End If
Loop

End Function

Private Sub Command1_Click()
MsgBox sum
End Sub

Function mz(old, i)
Dim two As String
Dim three As String
Dim four As String
two = Mid(old, i, 2)
three = Mid(old, i + 2, 3)
four = Mid(old, i + 5, 4)
If Val(two) * Val(three) = Val(four) Then
mz = i
Else
mz = mz(old, i + 1)
End If
End Function

Private Sub Command1_Click()
old = Str(Text1.Text)
MsgBox i
End Sub

Function mz(old)
ll = Len(old)
old = old + Left(old, 8)
For i = 1 To ll
two = Mid(old, i, 2)
three = Mid(old, i + 2, 3)
four = Mi

谁来帮我看看这段vb程序 请帮我看看这个VB程序!!! 大家帮我看看这个VB程序 大家来帮我看看VB程序 大家帮我看看这个VB打字程序哪有问题? 各位大侠，我这有一个matlab程序，需要转换成vb或vc程序，请大家帮忙看看！谢谢！！！ VB程序有读卡机联接 谁有vb程序啊?! 有没有VB反编译程序 请帮我看看这段vb的程序