Question

如何用vb编程一个提取男女生

Answer 1

Private Sub Form1_Load()
    Dim userId As String
    userId=InputBox("请输入身份证号码：")
    If Right(Trim(userId),1)="1" Then
        MsgBox "是男的"
    Else
        MsgBox "是女的"
    End If
End Sub

Answer 2

vb连接数据库，使用sql语句，得到查询结果。