百科知识

电脑/网络

求出能被各位数字之和整除的所有三位数

2018-04-06 05:05:34红***
求出能被各位数字之和整除的所有三位数。：Private Sub Command1_Click() Dim i As Integer For i = 100 ?

最佳回答

  • Private Sub Command1_Click() Dim i As Integer For i = 100 To 999 If i Mod (Val(Mid(i, 1, 1)) + Val(Mid(i, 2, 1)) + Val(Mid(i, 3, 1))) = 0 Then Debug.Print i End If Next i End Sub
    2018-04-06 10:30:16
  • trythis的回答要修改一下，否则如果超过三位数就会出错 Private Sub Command1_Click() Dim i As Integer For i = 100 To 999 这行要修改: If i Mod (int(i/100) + int((i-int(i/100))/10) + int(i-(int(i/100) + int(i-int(i/100)/10)))) = 0 Then Debug.Print i End If Next i End Sub
    2018-04-06 06:30:16
    • 很赞哦！ (220)

    相关文章