數(shù)組a （　?。┲邢噜弮蓚€(gè)數(shù)據(jù)無重復(fù)，現(xiàn)要查找連續(xù)最大步長(zhǎng)的升序段。具體描述如下：
（1）步長(zhǎng)指的是升序段中最后元素和最初元素的差值；
（2）有相同步長(zhǎng)的升序段則輸出最先找到的升序段。程序界面如圖所示。
實(shí)現(xiàn)上述功能的VB代碼如下：
Dim a（ 100）As Integer′用來存放數(shù)據(jù)
Dim k As Integer′用來存放數(shù)據(jù)的數(shù)組元素的個(gè)數(shù)
Private Sub Form_ Load （　?。?br />'從數(shù)據(jù)庫(kù)中讀取數(shù)據(jù)并存儲(chǔ)在相關(guān)數(shù)組變量中。并將數(shù)據(jù)輸出在文本框中。
Textl.Text=s
End Sub
Private Sub Commandl _Click （　?。?br />Dim f1ag As Boolean,pmax As Integer,mstep As Integer,steps As Integer,max As Integer,stAs String,tmax As Integer
st=“：pmax=1：mstep=0：max=0：t=0：tmax=0
Ifa（2）＞a（1）Then flag=True Else flag=False
Fori=1 Tok-I
Ifa（i+1）＞a（i） Then
If flag=True Then

mstep=mstep+a（i+1）-a（i）

mstep=mstep+a（i+1）-a（i）

t=t+I
If mstep＞max Then
max=mstep
pmax=i+1

tmax=t

tmax=t

End If
Else
mstep=a（i+1）-a（i）
t=I
If mstep＞max Then
max=mstep
pmax=i+1
tmax=I
End If
flag=True
End If
Else

flag=False

flag=False

End If
Next i
Fori=pmax-tmaxTopmax
st=st+Str（a（i））
Next i
Listl.AddItem st
End Sub
（I1）若數(shù)據(jù)為“24，7，2，16，25，68，45，32，2，23，46，67，26”則最大步長(zhǎng)的升序段為

2162568

2162568

。
（2）實(shí)現(xiàn)上述功能，請(qǐng)?jiān)跈M線處填入適當(dāng)?shù)拇a：
程序中①處填入的是

mstep=mstep+a（i+1）-a（i）

mstep=mstep+a（i+1）-a（i）

。
程序中②處填入的是

tmax=t

tmax=t

。
程序中③處填入的是

flag=False

flag=False

。