作业帮VB输入任意一个不超过9位的正整数,求出由该整数的全部数字组成的同样位数的一个最大正整数与一个最小数
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/29 02:25:50
VB输入任意一个不超过9位的正整数,求出由该整数的全部数字组成的同样位数的一个最大正整数与一个最小数
VB输入任意一个不超过9位的正整数,求出由该整数的全部数字组成的同样位数的一个最大正整数与一个最小数
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) < ns(j) Then temp = ns(i):ns(i) = ns(j):ns(j) = temp
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)))) < Len(n) Then
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