我想做个简单的编程-- 判断他是否是男性

Private Sub Command1_Click()
Dim a As String
a = InputBox("他是男性吗?")
If a = "男" Then
MsgBox ("正确")
Else
MsgBox ("错误")
End If
End Sub

把a 定义为字符型的，而你的a=int(a)只是把a当作整型来取整，还有当a=右边，右边如果是字符型的话，要用上双引号

dim a
a=inputbox("他是男性吗?")
a=str(a)
if a="男" then
msgbox("正确")
else
msgbox("错误",17)
end if

简直是大错特错
dim a as object
a=inputbox("他是男性吗?")
a=cstr(a)
if a="男" then
msgbox("正确")
else
msgbox("错误")
end if

我靠,你还没有弄清楚那个数据类型

太简单了挖