作业帮 > 数学 > 作业

三位正整数,要求百位数大于十位数,十位数大于个位数 求有多少个这样的数

来源:学生作业帮 编辑:拍题作业网作业帮 分类:数学作业 时间:2024/04/29 22:33:03
三位正整数,要求百位数大于十位数,十位数大于个位数 求有多少个这样的数
Private Sub Command1_Click()
For i = 100 To 999
j = 0
a = Int(i / 100)
b = Int(i / 10) Mod 10
c = i Mod 10
If a - b > 0 And b - c > 0 Then
j = j + 1
End If
Next i
Print j
End Sub
j=0 放在for的前面