请问如何编写程序判断一个数是不是偶数，Clear_Zero快来帮我！

sihonglaoren 2011-05-15 08:29:09

请问如何编写程序判断一个数是不是偶数，Clear_Zero快来帮我！

要代码

...全文

525 28 打赏收藏转发到动态举报

写回复

用AI写文章

28 条回复

切换为时间正序

请发表友善的回复…

发表回复

sihonglaoren 2011-05-17

打赏
举报

[Quote=引用 26 楼 zhao4zhong1 的回复:]
Decimal 数据类型

Decimal 变量存储为 96 位（12 个字节）无符号的整型形式，并除以一个 10 的幂数。这个变比因子决定了小数点右面的数字位数，其范围从 0 到 28。变比因子为 0（没有小数位）的情形下，最大的可能值为 +/-79,228,162,514,264,337,593,543,950,335。而在有 28 个小数位的情况下，最大值为 +/-7.9228……
[/Quote]
晕，看不懂。你不如Clear_Zero姐姐说得清楚。

赵4老师 2011-05-17

打赏
举报

Decimal 数据类型

Decimal 变量存储为 96 位（12 个字节）无符号的整型形式，并除以一个 10 的幂数。这个变比因子决定了小数点右面的数字位数，其范围从 0 到 28。变比因子为 0（没有小数位）的情形下，最大的可能值为 +/-79,228,162,514,264,337,593,543,950,335。而在有 28 个小数位的情况下，最大值为 +/-7.9228162514264337593543950335，而最小的非零值为 +/-0.0000000000000000000000000001。

注意此时，Decimal 数据类型只能在 Variant中使用，也就是说，不能声明一变量为 Decimal 的类型。不过可用 Cdec 函数，创建一个子类型为 Decimal 的 Variant。

赵4老师 2011-05-17

打赏
举报

1后面10的1亿次方个0是不是偶数？

可见编写的程序永远赶不上人脑。

sihonglaoren 2011-05-17

打赏
举报

[Quote=引用 21 楼 zhao4zhong1 的回复:]
0.2是不是偶数？
[/Quote]
当然不是。叔叔，帮帮我吧。

sihonglaoren 2011-05-17

打赏
举报

[Quote=引用 22 楼 sysdzw 的回复:]
楼主可以用autohotkey。。。
[/Quote]
什么乱七八糟的。

帝企鹅已被占用 2011-05-17

打赏
举报

[Quote=引用 27 楼 sihonglaoren 的回复:]
晕，看不懂。你不如Clear_Zero姐姐说得清楚。
[/Quote]
叫姐姐没用的，要叫妹妹，还有点可能。

神马都能聊 2011-05-16

打赏
举报

[Quote=引用 9 楼 zdingyun 的回复:]
https://forum.csdn.net/PointForum/Forum/UserTopicList.aspx?user=sihonglaoren
[/Quote]
很精彩...

sihonglaoren 2011-05-16

打赏
举报

[Quote=引用 16 楼 sysdzw 的回复:]
引用 2 楼 sihonglaoren 的回复:

这个答案不行，clear_zero呢？
不要光说“不行”二字，有什么出错提示或者现象吗？你的数据和期望结果是什么？如果你光靠这个方式吸引驴MM的注意，那么得到的回复应该“别问我，一边玩去。”
[/Quote]
我说不行就是不行，关你什么事。

无·法 2011-05-16

打赏
举报

[Quote=引用 2 楼 sihonglaoren 的回复:]

这个答案不行，clear_zero呢？
[/Quote]不要光说“不行”二字，有什么出错提示或者现象吗？你的数据和期望结果是什么？如果你光靠这个方式吸引驴MM的注意，那么得到的回复应该“别问我，一边玩去。”

用户　昵称 2011-05-16

打赏
举报

期待能行的代码。

z_wenqian 2011-05-16

打赏
举报

If x And 1 Then 奇数 else 偶数

无·法 2011-05-16

打赏
举报

楼主可以用autohotkey。。。

yangzn76 2011-05-16

打赏
举报

[Quote=引用 3 楼 pctgl 的回复:]

if xxx and 1 = 0 then msgbox 偶数 else 奇数

最快的方法
[/Quote]

赵4老师 2011-05-16

打赏
举报

0.2是不是偶数？

xslslx 2011-05-16

打赏
举报

[Quote=引用 14 楼 z_wenqian 的回复:]
If x And 1 Then 奇数 else 偶数
[/Quote]

14楼超级搞笑啊……
楼主也很搞笑啊，自己找自己啊……囧一下

wwhunter1214 2011-05-16

打赏
举报

期待中。。。。。。

sihonglaoren 2011-05-15

打赏
举报

不行，你们的代码都不行。

zdingyun 2011-05-15

打赏
举报

以下是clear_zero在
LZ的问帖http://topic.csdn.net/u/20110515/00/8ab660ad-9f0e-4192-932b-b249b1941ad3.html#replyachor
的回复.

[Quote=引用 3 楼 clear_zero 的回复:]
是要考我么？

是不是一直加阿加的
dim i as integer
dim intSum as integer
for i=1 to 100
sum=sum+i
next
debug.print sum

你是不是要下个套给我钻？人家都点名批评我乐
[/Quote]

[Quote=引用 4 楼 clear_zero 的回复:]
我脑子笨，反应慢
题我可以答，分不要给我哈。随便你怎么结

我怕被锁，用这个号好多年，没有马甲。我不在乎那些分，但是好多文字我都没有保存

拜托，谢谢
[/Quote]

波导终结者 2011-05-15