三位正整数,要求百位数大于十位数,十位数大于个位数 求有多少个这样的数
问题描述：
三位正整数,要求百位数大于十位数,十位数大于个位数 求有多少个这样的数
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的前面