数组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

。