vb中,任意读入一个字符串,然后用冒泡法将其中的各个字符按ASCII码值从大到小排列后输出。求代码

你好,支原体主要是直接性接触感染,与患有非淋菌性尿道炎的病人性交时.还有间接接触感染,使用患有非淋菌性尿道炎的病人用过的衣裤,床上用品,毛巾,浴盆,抽水马桶等以及产道感染.此病是完全可以治愈的,但是应得到正规的治疗.

对于衣原体的感染,只要没有症状,那么支原体只是它在人体内的正常寄居,这是正常的,不必担心.如果的确有临产症状表现,那当然需要治疗了.衣原体的致病能力弱于其他的病原体,所以真的出现炎症而且检查出支原体阳性时,首先要考虑有无其他病原体.

你好.支原体感染不是很严重.支原体多与宿主共存,不表现感染症状,仅仅在某些条件下如：机体免疫力下降等引起机会性感染,并且会常常合并一些其他的病原体从而共同致病.
感染人类的支原体有十余种,以人型支原体及解脲支原体感染最常见,人型支原体感染常常会引起阴道炎,宫颈炎和输卵管炎,解脲支原体感染则常常引起非淋菌性尿道炎；另外肺炎支原体,生殖道支原体等可引起母儿感染.所以如果您打算要小孩的话还是先治疗为好.
人型支原体和解脲支原体对多种抗生素均敏感,所以即使感染,只要尽早就医,接受正规治疗很快就会痊愈.希望下面的治疗方案对您有所帮助：如果您是孕妇当首选红霉素250mg,口服,每日4次,连续口服14天即可.如果您不是孕妇可选用四环素或克林霉素.如果是新生儿选用红霉素25-40mg每公斤体重,分4次静滴,或者口服红霉素7-14天即可.
看了以上解答希望您不必过于担心,平时生活多注意个人卫生,尤其是性生活前后都要做好相应的外阴清洁,平时生活规律,饮食清淡健康,避免精神过度紧张,以免引起机会感染及合并感染.
感谢您的提问,希望我的回答能够对您有所帮助,祝您健康!

Dim str As String = "sdcfggkhojungjsdieswwqdf"
        Dim str1 As String = ""
        Dim l As Integer = Len(str)
        Dim a() As Integer
        ReDim a(l)
        For i = 1 To l
            a(i) = Asc(Mid(str, 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
        str = str & vbCrLf
        For i = 1 To l
            str1 = str1 & Chr(a(i))
        Next
        TextBox6.Text = str & str1
运行结果：
sdcfggkhojungjsdieswwqdf
cdddeffggghijjknoqsssuww