數組a （　　）中相鄰兩個數據無重復，現要查找連續最大步長的升序段。具體描述如下：
（1）步長指的是升序段中最后元素和最初元素的差值；
（2）有相同步長的升序段則輸出最先找到的升序段。程序界面如圖所示。
實現上述功能的VB代碼如下：
Dim a（ 100）As Integer′用來存放數據
Dim k As Integer′用來存放數據的數組元素的個數
Private Sub Form_ Load （　　）
'從數據庫中讀取數據并存儲在相關數組變量中。并將數據輸出在文本框中。
Textl.Text=s
End Sub
Private Sub Commandl _Click （　　）
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）若數據為“24，7，2，16，25，68，45，32，2，23，46，67，26”則最大步長的升序段為

2162568

2162568

。
（2）實現上述功能，請在橫線處填入適當的代碼：
程序中①處填入的是

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

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

。
程序中②處填入的是

tmax=t

tmax=t

。
程序中③處填入的是

flag=False

flag=False

。