vba代码：从键盘接收5个数，判断其中奇数、偶数的个数

VBA (Visual Basic for Applications) 代码可以用于编写简单的程序，它通常用于Microsoft Office应用程序如Excel中。下面是一个示例，展示如何从键盘接收五个整数并判断其中奇数和偶数的数量：

Sub CountOddAndEvenNumbers()
    Dim numbers() As Integer ' 定义一个包含5个元素的数组
    Dim numCount As Integer ' 初始化计数器
    Dim oddCount As Integer ' 初始化奇数计数器
    Dim evenCount As Integer ' 初始化偶数计数器
    
    ReDim numbers(1 To 5) ' 为数组分配大小

    ' 使用For...Next循环获取用户输入
    For i = 1 To 5
        Console.WriteLine("请输入第" & i & "个数字:")
        numbers(i) = InputBox("") ' 从键盘接收数值
    Next i
    
    ' 遍历数组，检查每个数字的奇偶性
    For Each num In numbers
        If num Mod 2 = 0 Then ' 如果数字除以2余0，它是偶数
            evenCount = evenCount + 1
        Else ' 否则是奇数
            oddCount = oddCount + 1
        End If
    Next num
    
    ' 输出结果
    Console.WriteLine("奇数有：" & oddCount & ", 偶数有：" & evenCount)
End Sub

在这个代码中，我们首先创建了一个数组来存储用户输入的五个数字。然后通过循环读取用户的输入，并在之后计算奇数和偶数的个数。最后，将结果打印出来。