1. (2021·柯桥模拟) 有如下VB程序段：

s1="BUBBLESORT"：s2="”

i=1：j= Len(s1)

Do While i<j

    If Mid(s1, i, 1)< Mid(s1, j, 1) Then

        s2=s2+Mid(s1, j, 1)

    Else

        s2=s2+Mid(s1, i, 1)

    End If

    i=i+1: j=j-1

Loop

Label1.Caption=s2

执行该程序段后，标签Label1上显示的内容是（   ）