200分悬赏,在三位数中,百位数比十位数小,十位数比个位数小的数有几个?VB程序怎么写,Fori=100To999'所有的三位数j=i\100'百位上的数k=(i-100*j)\10'十位上的数l=i-100*j-10*k'个位

Question

200分悬赏,在三位数中,百位数比十位数小,十位数比个位数小的数有几个?
VB程序怎么写,
For i = 100 To 999 '所有的三位数
j = i \ 100 '百位上的数
k = (i - 100 * j) \ 10 '十位上的数
l = i - 100 * j - 10 * k '个位上的数
If (l > k And k > j) Then '个位数字大于十位数，十位数大于百位数。
Print i;
n = n + 1 '记录满足条件的个数
If (n Mod 20 = 0) Then '每20个换行
Print
End If
End If
Next i
End Sub

Answer 1

Private Sub Form_Click()
Dim i As Integer,s As Long,n As Integer
i = 100
Do While i >= 100 And i