熱心網(wǎng)友

Private Sub Command1_Click()Dim i As IntegerFor i = 100 To 999If i Mod (Val(Mid(i, 1, 1)) + Val(Mid(i, 2, 1)) + Val(Mid(i, 3, 1))) = 0 ThenDebug.Print iEnd IfNext iEnd Sub

熱心網(wǎng)友

trythis的回答要修改一下，否則如果超過(guò)三位數(shù)就會(huì)出錯(cuò)Private Sub Command1_Click()Dim i As IntegerFor 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 ThenDebug.Print iEnd IfNext iEnd Sub