VB 列出 内所有 同时被 和 乘除的自然数

来源：百度知道 编辑：UC知道 时间：2024/06/01 01:25:50
急~!

Private Sub Form_Click()
Cls
Me.AutoRedraw = True
For i = 1 To 9999 '将9999换成你的范围上限
c = CStr(i)
S = 0
For j = 1 To Len(c)
S = S + Val(Mid(c, j, 1))
Next
If i Mod S = 0 Then
Print Tab((k Mod 30) * 5 + 1); c;
k = k + 1
End If
Next
End Sub