合数4484有很多约数,有多少个约数

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/27 17:33:19

合数4484有很多约数,有多少个约数
合数4484有很多约数,有多少个约数

合数4484有很多约数,有多少个约数
4484=2*2*19*59
约数:
(2+1)×(1+1)×(1+1)=12个
答:有12个约数.

Option Explicit
Private Sub Command1_Click()
Dim i As Integer, n As Integer
For i = 1 To 4484
If 4484 Mod i = 0 Then n = n + 1
Next
Print n
End Sub

4484=2^2*13*59,
所以它的约数的个数为(2+1)*(1+1)*(1+1)=12个