只要判断出输入的数是奇数还是偶数就行了：可以试试以下代码.Private Sub form_click()Dim y,x '定义了两个变体变量x = InputBox("请输入一个整数","数据输入")If x = "" Then '判断输入的数是否为空值MsgBox "请输...