VB编程.找出所有三位数的升序数,就是个位数字大于十位数,十位数大于百位数.
问题描述：
VB编程.找出所有三位数的升序数,就是个位数字大于十位数,十位数大于百位数.
我写了一个
Private Sub Text1_Change()
Dim x As Integer,y As Integer
If x
答
根据你的题意,我用VB编写了如下代码,你看是不是你所需要的：Private Sub Command1_Click()Dim i,j,k,l,nFor i = 100 To 999 '所有的三位数j = i \ 100 '百位上的数k = (i - 100 * j) \ 10 '十位上的数l = i - 100 * ...