先画一个文本框再画一个命令按钮在代码里写入PrivateSubCommand1_Click()Dima%a=text1.textIfaMod2=0ThenPrint"你输入的数字"&a&"是偶数."ElsePrint"你输入的数字"&a&"是奇数."EndIfEndSub当然这里没有验证如果你输入的不是数字是别的什么不保证不出错