用access中sql计算1到100奇数和或偶数和

发布网友发布时间：2022-04-24 03:23

共1个回答

热心网友时间：2023-09-24 04:32

代码如下：

   Sub Proce1()
        Dim i as Integer
         For i =0 to 100
            If i Mod 2 =1
               then i = i + 1
            End if
         Debug.Print  i
       End sub

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

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com