求vba程序

求自然数1-100之间的能被3和7同时整除的数之和S，平均值ave

代码如下：

Sub Division37()

      Dim i%, icount%, S&, ave As Double

      For i = 1 To 100

              If i Mod 3 = 0 And i Mod 7 = 0 Then

                      S = S + i

                      icount = icount + 1

              End If

      Next

      ave = S / icount

      MsgBox "自然数1-100之间的能被3和7同时整除的数共有" & icount & "个，它们的和是：" & S & Chr(10) & _

      "自然数1-100之间的能被3和7同时整除的数的平均值是：" & ave

End Sub

题名： Excel VBA程序开发自学宝典

作者： 罗刚君编著

出版者： 电子工业出版社

日期： 2009

主题： 表处理软件

学科类型： 计算机/自动化

中图法分类号： TP39113

ISBN： 978-7-121-09585-6,978-7-89464-409-1

文件大小 45373MB

下载地址

>

以上就是关于求vba程序全部的内容，包括:求vba程序、Excel VBA程序开发自学宝典(含光盘)的光盘文件、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！