三位正整数,要求百位数大于十位数,十位数大于个位数 求有多少个这样的数Private Sub Command1_Click()For i = 100 To 999j = 0a = Int(i / 100)b = Int(i / 10) Mod 10c = i Mod 10If a - b > 0 And b - c > 0 Thenj = j + 1End IfNext iPrint jEnd Sub

三位正整数,要求百位数大于十位数,十位数大于个位数 求有多少个这样的数
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