作业帮 > 综合 > 作业

vb中编写简单程序编写简单程序,随机输入几个数,判断其是偶数还是奇数,然后最后是计算出你所输入的数奇偶数分别的个数

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/15 19:00:39
vb中编写简单程序
编写简单程序,随机输入几个数,判断其是偶数还是奇数,然后最后是计算出你所输入的数奇偶数分别的个数
    tmp = InputBox("随便输入几个数,用逗号隔开就可以了.")
    s = Split(tmp, ",")
    u = UBound(s)
    For i = 0 To u
        If Val(s(i)) Mod 2 = 1 Then
            qs = qs + 1
        Else
            os = os + 1
        End If
    Next
    Print qs & "个奇数," & os & "个偶数"