作业帮 > 综合 > 作业

【急】编程统计1000的正整数约数(因子)的个数(1和1000本身除外)

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/11/05 16:28:14
【急】编程统计1000的正整数约数(因子)的个数(1和1000本身除外)
Private Sub Command1_Click()
Dim x As Integer,i As Integer
x = 0
For i = 2 To 999
If 1000 Mod i = 0 Then x = x + 1
Next i
Print x
End Su