num=thisform.text1.value
if empty(num)
messagebox("数据不要为空")
else
if mod(num,2)=0
thisform.label2.caption="该数卖键是一个偶晌配核数"
else
thisform.label2.caption="该数是一个奇宴掘数"
endif
endif
判断奇偶是除以2, 余数为0就是陵族困偶数,余数为1就是奇数, 使尺念用函数mod()举例如下:
clear
input '请输入一个整数:' to n
ys=mod(n,2)
do case
case ys=0
?'是偶数'
case ys=1
?'是奇穗旦数'
endcase
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)