作业帮 > 数学 > 作业

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

来源:学生作业帮 编辑:神马作文网作业帮 分类:数学作业 时间:2024/09/20 08:37:09
vb 一个三位正整数能被3整除,且十位数等于五,求所有满足上述条件的正整数和
vb 一个三位正整数能被3整除,且十位数等于五,求所有满足上述条件的正整数和
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