编写VB程序 输入一个整数 判断是奇数或是偶数、正数或是负数 VB输入一个正整数编程判断奇数还是偶数

VB\u4e2d\u8f93\u5165\u4e00\u4e2a\u6b63\u6574\u6570\uff0c\u7f16\u5199\u7a0b\u5e8f\u5224\u65ad\u8be5\u6570\u662f\u5947\u6570\u8fd8\u662f\u5076\u6570\uff0c\u754c\u9762\u5982\u4e0b\uff1a

Private Sub Command1_Click() Dim n As Long n = Val(Text1.Text) If n Mod 2 = 0 Then Label2.Caption = "\u662f\u5076\u6570" Else Label2.Caption = "\u662f\u5947\u6570" End If End Sub

\u5e0c\u671b\u91c7\u7eb3

Private Sub Command1_Click()
Dim a As String
Dim n As Long

a = InputBox("\u8f93\u5165\u4e00\u4e2a\u6b63\u6574\u6570", "\u8f93\u5165")
n = CLng(a)
If n Mod 2 = 0 Then
Print n; "\u662f\u5076\u6570"
Else
Print n; "\u662f\u5947\u6570"
End If
End Sub

dim x as integer
x=Val(inputbox("输入一个整数："))
if x mod 2 =0 then
msgbox "偶数！"
else
msgbox "奇数！"
end of
If x >0 Then msgbox "正数！"
If x <0 Then msgbox "负数！"

扩展阅读：从小c到大 ... vb中产生10个随机整数 ... vb 随机产生一个范围的数 ... vb怎么判断是否是整数 ... 新手怎么学代码编程 ... vb定义整数 ... vba自学编程网站 ... vb中正整数怎么表示 ... c#输入一个整数判断奇偶 ...