子程序和函数未定义 VB

Option Explicit
Private Function isprime(i As String) As String

Dim x, y, w As Integer
If numberic(i) Then

If Val(i) < 0 Then
isprime = "输入正整数"
Text1.SetFocus
End If
End If
y = Sqr(i)
For x = 2 To y
If i Mod x = 0 Then
isprime = "非质数"
End If
If x > y Then
isprime = "是质数"
End If

End Function

Private Sub Command1_Click()

Dim p As String
p = Text1
Text2 = isprime(p)
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

vb子程序或函数未定义 函数和子程序未定义怎么修改啊 VB子程序未定义错误 哪位VB高手帮我看下，我程序错哪了？说我子程序或函数未定义 定义子程序和函数的问题！！急 VB为何总提示“函数未定义”？晕S vb调用子程序 vb 中 Adodc1未定义 vb hour 未定义 子过程或函数未定义