作业帮 > 综合 > 作业

用VB编程,求出个位数为6、能被3整除、且十位数是偶数的三位数共有多少个

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/28 23:56:54
用VB编程,求出个位数为6、能被3整除、且十位数是偶数的三位数共有多少个
Private Sub Command1_Click()
For i = 100 To 999
If Mid(i,2,1) Mod 2 = 0 And Mid(i,3,1) Mod 3 = 0 And Mid(i,3,1) Mod 6 = 0 Then Print i
Next
End Su