我的一个VB的程序问题！

Private Function prime(n As Integer) As Boolean
Dim s As String, l As Integer, k As Integer, tem As Long, i As Integer
s = CStr(n)
l = Len(s)
For i = 1 To l
If i <> l Then
tem = Val(Mid(s, i, 1)) + Mid(s, i + 1, 1)
Else
tem = Val(Mid(s, 1, 1)) + Mid(s, l, 1)
End If
For k = 2 To Sqr(tem)
If tem Mod k > 0 Then Exit Function
Next k
Next i
primr = True
End Function
这个程序找人解释下，要很清楚的！我自己分析的有点晕了，
还有，tem = Val(Mid(s, i, 1)) + Mid(s, i + 1, 1)
这个为什么不能写成tem = Val(Mid(s, i, 1) + Mid(s, i + 1, 1)）呢？请高人指点我哦！

我的一个VB的程序问题！ 我VB程序的一个小问题 一个VB程序的问题 一个关于VB程序的问题 一个关于vb编程序的问题 一个VB串口通信程序的问题。 一个简单的VB程序问题 一个关于安装VB程序的问题 关于一个VB程序的问题 关于vb程序的一个问题