怎么将汉字赋予变量a??

int（）函数里 里面必须输入一个数值 出错就是这里的问题

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=int(a) '<<<<<<<<<<<<<<<<<<<<我猜这句是想去空格吧改为： a = trim(a)

if a="男" then
msgbox("正确")
else
msgbox("错误")
end if

没什么要求,直接用:Dim a as String
a="我是中国人"
a=int(a)也要改为：
a=trim(a)

dim a
a=inputbox("他是男性吗?")
a=int(a)

这个什么意思，搞不懂！

没什么要求,直接用:Dim a as String
a="我是中国人
"