如何提取数据的偶数和奇数

用自定义函数解决：

Function ji(x As Range)

ji = xValue

For i = 2 To 8 Step 2

ji = Replace(ji, i, "")

Next

End Function

Function ou(x As Range)

ou = xValue

For i = 1 To 9 Step 2

ou = Replace(ou, i, "")

Next

End Function

代码如下：

        Dim i as Integer

         For i =0 to 100

            If i Mod 2 =1   

               then i = i + 1

            End if

         DebugPrint  i

       End sub

上面的是求奇数的和，如果是求偶数和的话，把 if 后面改为：i Mod 2 = 0 就ok了~

整数中,能被2整除的数是偶数,不能被2整除的数是奇数,偶数可用2k表示,奇数可用2k+1表示,这里k是整数

特别提示：奇数包括正奇数、负奇数

关于奇数和偶数,有下面的性质：

（1）奇数不会同时是偶数；两个连续整数中必是一个奇数一个偶数

（2）奇数跟奇数的和是偶数；偶数跟奇数的和是奇数；任意多个偶数的和是偶数

（3）两个奇（偶）数的差是偶数；一个偶数与一个奇数的差是奇数

（4）若a、b为整数,则a+b与a-b有相同的奇偶性,即a+b与a-b同为奇数或同为偶数

（5）n个奇数的乘积是奇数,n个偶数的乘积是2n的倍数；顺式中有一个是偶数,则乘积是偶数,即：A＊B＊C＊…＊偶数＊X＊Y＝偶数,式中A、B、C、…X、Y皆为整数,公式可简化为：奇数＊偶数＝偶数

(6) 奇数的个位是0、5；偶数的个位是0、2、4、6、8（0是个特殊的偶数2002年国际数学协会规定,零为偶数我国2004年也规定零为偶数小学规定0为最小的偶数,但是在初中学习了负数,出现了负偶数时,0就不是最小的偶数了）

DECLARE @x int,@y int,@i int

SELECT @i=1,@x=0,@y=0

WHILE(@i<=100) --1至100

BEGIN

IF(@i%2=1) --奇数

SET @x=@x+@i@i

ELSE --偶数

SET @y= @y+@i@i

SET @i = @i +1 --i自增1

END

SELECT @x,@y

注意你的逗号，要用英文的，不要用中文的，

已经编译好了，可以用的。

以上就是关于如何提取数据的偶数和奇数全部的内容，包括:如何提取数据的偶数和奇数、用access中sql计算1到100奇数和或偶数和、什么是偶数列,什么是奇数列等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！