EXCEL高手用VBA解所有能被7和9至少一个数
编写一个VBA程序求解10到1000内所有能被7和9中至少一个数带队的整数的个数
正确如下
编写一个VBA程序求解10到1000内所有能被7和9中至少一个数整除的整数的个数
第1个回答 2015-11-14
Sub geshu()
Dim i%, j%
For i = 10 To 1000
If i Mod 7 = 0 Or i Mod 9 = 0 Then
j = j + 1
End If
Next
MsgBox j
End Sub
Dim i%, j%
For i = 10 To 1000
If i Mod 7 = 0 Or i Mod 9 = 0 Then
j = j + 1
End If
Next
MsgBox j
End Sub
第2个回答 2015-11-14
带队是什么意思?追问
编写一个VBA程序求解10到1000内所有能被7和9中至少一个数整除的整数的个数
追答Sub main()
For i = 10 To 1000
If i Mod 7 = 0 Or i Mod 9 = 0 Then
k = k + 1
End If
Next i
MsgBox k
End Sub