下列VB程序的功能是：在文本框Text1中输入城市名字，在文本框Text2中输入空气指数，单击“输入”按钮，则将内容添加到列表框List1中；单击“排行”按钮时，在列表框List2中将显示空气质量排名、城市以及空气质量等级．质量等级标准为：空气指数0-50为优，51-100为良，101-200为污染，201及以上为重污染．程序运行界面如图所示．

Dim a（1To 1000）As String,b（1To 1000）As Integer,n As Integer
Private Sub Form_Load （　　）
n=1
End Sub
Private Sub Command1_Click（　　）
If Text1．Text＜＞““And Text2．Text＜＞““Then
a（n）=Text1．Text
b（n）=Val（Text2．Text）
      ①
List1．AddItem s
②
Text1．Text=““
Text2．Text=““
End If
End Sub
Private Sub Command2_Click（　　）
For i=1To n-1
For j=③Step-1
If b（j）＜b（j-1）Then
k=a（j）：a（j）=a（j-1）：a（j-1）=k
k=b（j）：b（j）=b（j-1）：b（j-1）=k
End If
Next
Next
For i=1To n-1
If b（i）＜=50Then
d=“优“
ElseIf b（i）＜=100Then
d=“良“
ElseIf b（i）＜=200Then
d=“污染“
Else
d=“重污染“
End If
s=“第“& i &“名“&“：“& a（i） &“：“& d
List2．AddItem s
Next
End Sub
（1）大括号处的程序采用的排序算法是

冒泡排序法

冒泡排序法

（2）加框处①有错，应该为

s=a（n）&“：”&b（n）

s=a（n）&“：”&b（n）

（3）②处应填写

n=n+1

n=n+1

（4）③处应填写

n to 2

n to 2

．