VB编程.找出所有三位数的升序数,就是个位数字大于十位数,十位数大于百位数.

1个回答

  • 根据你的题意,我用VB编写了如下代码,你看是不是你所需要的:

    Private Sub Command1_Click()

    Dim i,j,k,l,n

    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 Su