请教：编译错误！

gq402402

Private Sub 身份证号码1_Exit(Cancel As Integer)
If Len(Me![身份证号码1]) = 15 Then
If Right(身份证号码1, 2, 1) = 2 Then
Me![性别1] = "女"
ElseIf Right(身份证号码1, 2, 1) = 1 Then
Me![性别1] = "男"
End If
End Sub
运行的时候提示编译错误：错误的参数号或无效的属性赋值，然后光标停放在right上，请问这是为什么?

[ 本帖最后由 gq402402 于 2007-11-26 15:47 编辑 ]

kangking

多了一个参数,right()这个函数只有两个参数,一个是字串,一个是数字,该数字表示从右边开始取几个字符.

gq402402

问题已经解决了，呵呵，是我函数用法错了
谢谢大家了

kangking

Public Sub sex()
Dim a As String

a = "460107198502123365"

If Len(a) = 15 Then
    If Right(a, 1) Mod 2 = 1 Then
        MsgBox "这家伙是个男的!"
    Else
        MsgBox "这可是个女的哦!"
    End If
Else
    If Mid(a, 17, 1) Mod 2 = 1 Then
        MsgBox "这家伙是个男的!"
    Else
        MsgBox "这可是个女的哦!"
    End If
   
End If

End Sub

gq402402

非常谢谢两位的帮助了~~问题解决了，心情愉快ING~~~~