VB输入任意一个不超过9位的正整数，求出由该整数的全部数字组成的同样位数的一个最大正整数与一个最小数

    Option Explicit Private Sub Form_click() Dim n$, ns() As Byte, temp%, i%, j% n = InputBox("请输入一个不超过9位的正整数", , Int(1000000000 * Rnd)) If Len(n) > 9 Then MsgBox "超过9位", vbCritical: Exit Sub ns = StrConv(n, vbFromUnicode): Me。
    Cls Print "您输入的数是： "; n: Print For i = 0 To UBound(ns) - 1 For j = i To UBound(ns) If ns(i) Next j, i n = StrConv(ns, vbUnicode) Print "得到的最大数是："; n: Print Print "得到的最小数是："; StrReverse(n) ';Val(StrReverse(n)) n = StrReverse(n) If Len(Trim(Str(Val(n)))) i = Len(n) - Len(Trim(Str(Val(n)))) n = Mid(n, i 1, 1) & String(i, "0") & Mid(n, i 2) Print: Print "--------处理前面的0后------------" Print "得到的最小数是："; n End If End Sub Private Sub Form_Load() Randomize: Me。
    AutoRedraw = True Call Form_click End Sub。