Question

vb急求！利用inputbox函数输入一个n位整数n小于等于10,求这n个数字组成n位数的最小整

和最大整数

Answer 1

你好！
以往对于子宫脱垂的治疗多借助于子宫托，因子宫托的使用会给病人带来很多并发症，最常见者为子宫托嵌顿。老年人阴道上皮萎缩、脆弱，不耐磨擦，且老年人无性生活，虽嘱其要经常取出清洗，但病人自觉用托后无不适，常不执行，经一至数月时间，阴道受托盘摩擦，脱皮、溃烂，而后又愈合成一狭窄环，使托嵌顿。子宫脱垂是完全可以预防的，其关键在于接生人员应正确处理分娩过程，及时发现和仔细修补产道与骨盆底组织的裂伤；产妇本人应注意产时和产褥期卫生。
祝你健康！

指导意见：
目前是可以采取手术治疗的，建议最好去医院检查一下，术后以抗炎治疗为主，要多饮水，平时多吃有营养的食物来促进愈合。
医生询问：

Answer 2

Dim n As Double
        n = InputBox("请输入数字")
        Dim l As Integer
        l = Len(n)
        Dim a(l) As Integer
        Dim temp As Integer
        Dim min, max As String
        min = ""
        max = ""
        For i = 1 To l
            a(i) = Mid(n, i, 1)
        Next
        For i = 1 To l
            For j = 1 To l - i
                If a(j) > a(j + 1) Then
                    temp = a(j + 1)
                    a(j + 1) = a(j)
                    a(j) = temp
                End If
            Next j
        Next i
        For i = 1 To l
            min = min & a(i)
            max = a(i) & max
        Next
       
        MsgBox("最小值是 " & min & " 最大值是 " & max)