怎么在键盘上输入十个整数,分别求奇数个数和偶数个数，VBA作业用低级的语言

发布网友 发布时间：2022-04-29 15:56

我来回答

共1个回答

热心网友 时间：2023-10-17 08:18

Sub 计算偶数奇数的个数()

Dim arr, arr1, n, m, mm

arr = [a1:a9] '根据自己的要求定义区域

 For Each arr1 In arr

  n = arr1 Mod 2 '求每个单元格值的余数

  If n = 0 Then m = m + 1 '余数为0则是偶数，计算偶数个数

  If n = 1 Then mm = mm + 1 '余数为1则是奇数，计算奇数个数

 Next

 MsgBox "偶数个数为：" & m & "--奇数个数为：" & mm

End Sub

热心网友 时间：2023-10-17 08:18

Sub 计算偶数奇数的个数()

Dim arr, arr1, n, m, mm

arr = [a1:a9] '根据自己的要求定义区域

 For Each arr1 In arr

  n = arr1 Mod 2 '求每个单元格值的余数

  If n = 0 Then m = m + 1 '余数为0则是偶数，计算偶数个数

  If n = 1 Then mm = mm + 1 '余数为1则是奇数，计算奇数个数

 Next

 MsgBox "偶数个数为：" & m & "--奇数个数为：" & mm

End Sub

热心网友 时间：2023-10-17 08:18

Sub 计算偶数奇数的个数()

Dim arr, arr1, n, m, mm

arr = [a1:a9] '根据自己的要求定义区域

 For Each arr1 In arr

  n = arr1 Mod 2 '求每个单元格值的余数

  If n = 0 Then m = m + 1 '余数为0则是偶数，计算偶数个数

  If n = 1 Then mm = mm + 1 '余数为1则是奇数，计算奇数个数

 Next

 MsgBox "偶数个数为：" & m & "--奇数个数为：" & mm

End Sub

热心网友 时间：2023-10-17 08:18

Sub 计算偶数奇数的个数()

Dim arr, arr1, n, m, mm

arr = [a1:a9] '根据自己的要求定义区域

 For Each arr1 In arr

  n = arr1 Mod 2 '求每个单元格值的余数

  If n = 0 Then m = m + 1 '余数为0则是偶数，计算偶数个数

  If n = 1 Then mm = mm + 1 '余数为1则是奇数，计算奇数个数

 Next

 MsgBox "偶数个数为：" & m & "--奇数个数为：" & mm

End Sub

热心网友 时间：2023-10-17 08:18

Sub 计算偶数奇数的个数()

Dim arr, arr1, n, m, mm

arr = [a1:a9] '根据自己的要求定义区域

 For Each arr1 In arr

  n = arr1 Mod 2 '求每个单元格值的余数

  If n = 0 Then m = m + 1 '余数为0则是偶数，计算偶数个数

  If n = 1 Then mm = mm + 1 '余数为1则是奇数，计算奇数个数

 Next

 MsgBox "偶数个数为：" & m & "--奇数个数为：" & mm

End Sub

热心网友 时间：2023-10-17 08:18

Sub 计算偶数奇数的个数()

Dim arr, arr1, n, m, mm

arr = [a1:a9] '根据自己的要求定义区域

 For Each arr1 In arr

  n = arr1 Mod 2 '求每个单元格值的余数

  If n = 0 Then m = m + 1 '余数为0则是偶数，计算偶数个数

  If n = 1 Then mm = mm + 1 '余数为1则是奇数，计算奇数个数

 Next

 MsgBox "偶数个数为：" & m & "--奇数个数为：" & mm

End Sub

热心网友 时间：2023-10-17 08:18

Sub 计算偶数奇数的个数()

Dim arr, arr1, n, m, mm

arr = [a1:a9] '根据自己的要求定义区域

 For Each arr1 In arr

  n = arr1 Mod 2 '求每个单元格值的余数

  If n = 0 Then m = m + 1 '余数为0则是偶数，计算偶数个数

  If n = 1 Then mm = mm + 1 '余数为1则是奇数，计算奇数个数

 Next

 MsgBox "偶数个数为：" & m & "--奇数个数为：" & mm

End Sub