请问用Excel，vba编程——从键盘接收5个数，判断其中奇数偶数的个数，怎么写编程？

Question

如题所述

Answer 1

你好！根据楼主的问题，大致写出如下代码，望笑纳。

（一）VBA程序代码：

Sub input_n()
Dim j1, j2, j3, str1
On Error Resume Next

For j1 = 0 To 4  '执行5次循环
 j2 = InputBox("数值=", "请输入数值")  '输入对话框
 j3 = j3 & " " & j2  '数据拼接
 If j2 Mod 2 = 0 Then  '如果余数是0，则为偶数
  str1 = str1 & " " & "偶数"
 Else
  str1 = str1 & " " & "奇数"
 End If
Next

MsgBox "输入的数据：" & Chr(13) & j3 & Chr(13) & str1  '弹窗提示

End Sub

（二）程序运行之后，将会弹出输入框，依次输入5个数之后，将会弹出奇偶的结果。

追问

不对呀

追答

那是你的代码有误。你把你上面的代码删除，单独输入此代码，肯定行。