小李編寫 VB 程序，功能如下：?jiǎn)螕簟吧蓴?shù)組”按鈕 Command1，則隨機(jī)生成 13 個(gè) 取值范圍是 1～13 的正整數(shù)，分別存儲(chǔ)到數(shù)組 a 中，對(duì)數(shù)組 a 的元素進(jìn)行升序排列，并在標(biāo)簽 label1 中顯示；再單擊“連續(xù)數(shù)”按鈕 Command2，則在排序后的數(shù)組 a 中查找連續(xù)個(gè)數(shù)最多（忽 略重復(fù)數(shù)值）的一組數(shù)值（即：連續(xù)數(shù)），若有兩組連續(xù)數(shù)個(gè)數(shù)一樣多，則取數(shù)值小的一組，將連續(xù)數(shù)顯示在標(biāo)簽 label2 中．運(yùn)行界面如圖所示．

若實(shí)現(xiàn)上述功能的程序如下，請(qǐng)?jiān)跈M線處填寫合適代碼，使程序正常運(yùn)行．Dim a（1To 13）As Integer
Dim n As Integer
Private Sub Command1_Click （　　）
Dim i As Integer,s As String,j As String Randomize
n=13
For i=1To n
a（i）=Int（Rnd*13）+1Next i
For i=1To n-1  For j=i+1To n

If a（j）＜a（i） Then
t=a（j）：

①a（j）=a（i）

①a（j）=a（i）

：a（i）=t End If
Next j Next i
s=““
For i=1To n
s=s+Str（a（i））
If

②i＜＞13

②i＜＞13

Then s=s+“，“Next i
Label1．Caption=s End Sub
Private Sub Command2_Click

③（　?。?/div>

③（　?。?/div>
Dim i As Integer,j As Integer Dim t As Integer,k As Integer
Dim max As Integer'存儲(chǔ)連續(xù)數(shù)個(gè)數(shù)最大值 Dim begin As Integer'存儲(chǔ)連續(xù)數(shù)開始的數(shù)值 k=1
max=1
For i=2To 13
If a（i）=a（i-1）+1Or a（i）=a（i-1）Then If

④a（i）＜＞a（i-1）

④a（i）＜＞a（i-1）

Then k=k+1
If k＞max Then max=k
begin=

⑤a（i+1-max）

⑤a（i+1-max）

End If
Else
k=1End If
Next i s=““
For j=begin To begin+max-1s=s+Str（j）
Next j Label2．Caption=s
End Sub.