请问用Excel，vba编程——从键盘接收5个数，判断其中奇数偶数的个数，怎么写编程？
最新回答
宛若晴空
2024-04-21 04:49:10
你好！根据楼主的问题，大致写出如下代码，望笑纳。
（一）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个数之后，将会弹出奇偶的结果。
追问
不对呀
追答
那是你的代码有误。你把你上面的代码删除，单独输入此代码，肯定行。
热门标签
