VB编程中,从1-100中随机产生一个随机数并判断它的奇偶性。跪求各位大神,代码怎么写

如题所述

            Dim s As Integer = Int(Rnd() * (100 + 1))
            If s Mod 2 Then
                MsgBox("奇数: <" & s.ToString & ">")
            Else
                MsgBox("偶数: <" & s.ToString & ">")
            End If

温馨提示:答案为网友推荐,仅供参考