用VB求 介于A,B间的所有升序数

来源：百度知道 编辑：UC知道 时间：2024/05/31 16:30:35
A.B是手动输入的任意两个数
所谓升序数即后一位比前一位大,例123 456 146 178 ....

Private Sub Command1_Click()
Dim a%, b%, i%, j%, m As Boolean
a = Val(InputBox("请输入数A吧!"))
b = Val(InputBox("请输入数B吧!"))
For i = a To b
m = True
For j = 1 To Len(CStr(i)) - 1
If Val(Mid(CStr(i), j, 1)) >= Val(Mid(CStr(i), j + 1, 1)) Then m = False: Exit For
Next
If m = True Then Print i
Next
End Sub

dim i, a , b as integer
a=inputbox(" ")
b=inputbox("")
if a>b then
for i=b to a
dim c(len(i)) as integer
for j=0 to len(i)-1
c(j)=mid(i,j+1,1)
next j
for k=1 to len(i)-1
if c(k)<c(k-1) then
exit for
else
debug print i
end if
next k
next i
else
将a 与b 对调
end if