编写VB程序 输入一个整数 判断是奇数或是偶数、正数或是负数
1个回答
展开全部
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 "负数！"
x=Val(inputbox("输入一个整数："))
if x mod 2 =0 then
msgbox "偶数！"
else
msgbox "奇数！"
end of
If x >0 Then msgbox "正数！"
If x <0 Then msgbox "负数！"
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
