...vba编程——从键盘接收5个数,判断其中奇数偶数的个数,怎么写编程...
发布网友
发布时间：2024-07-02 11:01
共1个回答
热心网友
时间：2024-08-25 04:28
你好！根据楼主的问题，大致写出如下代码，望笑纳。
（一）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个数之后，将会弹出奇偶的结果。
