求个位数字

vb中求100到1000之间的水

Private Sub Form_Load() 1，装载窗体时不能运行Print应改为form_click Dim a, b, c, i As Integer For i = 100 To 1000 a = i / 100 '百位上的数 2，你把整除符号记错了，此处应将"/"改为"\" b = (i / 10) Mod 10 '十位上的数 3,此处应改为b=(i-a*100)\10 c = i Mod 10 '个位上的数 If 100 * a + 10 * b + c = a * a * a + b * b * b + c * c * c Then Print i ...全部

  Private Sub Form_Load() 1，装载窗体时不能运行Print应改为form_click Dim a, b, c, i As Integer For i = 100 To 1000 a = i / 100 '百位上的数 2，你把整除符号记错了，此处应将"/"改为"\" b = (i / 10) Mod 10 '十位上的数 3,此处应改为b=(i-a*100)\10 c = i Mod 10 '个位上的数 If 100 * a + 10 * b + c = a * a * a + b * b * b + c * c * c Then Print i '因100 * a + 10 * b + c =i，可以简化程序改为i End If Next i End Sub 修改后为： Private Sub form_click() Dim a, b, c, i As Integer For i = 100 To 1000 a = i \ 100 '百位上的数 b = (i - a * 100) \ 10 '十位上的数 c = i mod 10 '个位上的数 If a ^ 3 + b ^ 3 + c ^ 3 = i Then Print i End If Next i End Sub 结果有5个，其中1000，a=10, b=0, c=0 10*10*10 + 0 =1000 。
  收起