作业帮 > 数学 > 作业

试编写一程序,用以判断一个五位整数n各位数字的奇偶性,并求出它们的

来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/05/16 16:16:10
试编写一程序,用以判断一个五位整数n各位数字的奇偶性,并求出它们的
和.
运行结果提示
偶数个数:2
奇数个数:3
'判断一个五位整数n各位数字的奇偶性,并求其和程序
Sub NumJiou(n&)
Dim jiou&(1),i&,j&
For i = 1 To 5
j = Val(Mid(n,i,1)) Mod 2
jiou(j) = jiou(j) + 1
Next
Print "偶数个数:" & jiou(0)
Print "奇数个数:" & jiou(1)
End Sub
NumJiou 12345