vb问题当用户单击窗体时，弹出对话框由用户输入任意整数，提示框显示所输入整数的奇偶性
1个回答
展开全部
private sub form_click()
dim n
n=val(inputbox("输入任意整数："))
if n mod 2 =0 then
msgbox "您输入的是偶数"
else
msgbox "您输入的是奇数"
endif
end sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
