vb 一个三位正整数能被3整除,且十位数等于五,求所有满足上述条件的正整数和

hainan38 1年前 已收到1个回答 举报

想dd 幼苗

共回答了24个问题采纳率:79.2% 举报

Private Sub Command1_Click()
For i = 100 To 999
If i Mod 3 = 0 And i 10 Mod 10 = 5 Then
Print i;
n = n + 1
If n Mod 5 = 0 Then Print
s = s + i
End If
Next
Print s
End Su

1年前

4
可能相似的问题
Copyright © 2024 YULUCN.COM - 雨露学习互助 - 17 q. 0.880 s. - webmaster@yulucn.com