VBA 计算被7整除的数字个数

Question

用VBA循环结构程序 的 代码怎么写啊

Answer 1

VBA 计算被7整除的数字个数的程序：
Sub aaa()
Dim n As Integer, i As Integer, he As Integer
n = Application.InputBox("请输入自然数", "最大值", 0, , , , , 1)
For i = 0 To n
If i Mod 21 = 0 Then
he = he + i
End If
Next
MsgBox he ^ (1 / 2)
End Sub

Visual Basic for Applications（VBA）是Visual Basic的一种宏语言，是微软开发出来在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展Windows的应用程式功能，特别是Microsoft Office软件。也可说是一种应用程式视觉化的Basic 脚本。该语言于1993年由微软公司开发的的应用程序共享一种通用的自动化语言--------Visual Basic For Application(VBA)，实际上VBA是寄生于VB应用程序的版本。微软在1994年发行的Excel5.0版本中，即具备了VBA的宏功能。

Answer 2

这是无限循环的吧？你这么弄猴年马月计算得完呀，总得有个上限吧？

我拿上限5000来给你举例吧。

for i = 0 to 5000
if i mod 7 = 0 then
记录该值
end if
next i本回答被提问者采纳

Answer 3

示例：在10000个整数中找出被7整除的数字个数到n中
sub sss()
n=0
for i=1 to 10000
if i mod 7=0 then n=n+1
next
debug.print "n=";n
end sub
结果：n=1428