在一个长度为 n 的数字序列中，如果相邻元素差的绝对值经过升序排序后正好是 1 到 n-1，则认定该序列存在着“有趣的跳跃”。例如：数字序列 1、4、2、3 的相邻数字差的绝对值分别为 3、2、1，排序后是 1、2、3，则说明该序列存在着“有趣的跳跃”。
小明编写了 VB 程序用于数字序列的检测，程序运行界面如图所示。在文本框 Text1 中逐个输入数字，依 次存储到数组 a 中，并在列表框 List1 中显示。单击“判断”按钮 Command1，将原始数字序列相邻数字差 的绝对值依次存储到数组 b 中，并对数组 b 进行升序排序后在列表框 List2 中显示；若输入的数字序列存在“有趣的跳跃”，则在文本框 Text2 中输出“yes”，否则输出“no”。
（1）若输入序列 3、13、24、35、47、30，单击“判断”按钮后，文本框 Text2 中将显示

no

no

。
（2）实现上述功能的 VB 程序如下，请在横线处填入合适代码。Dim n As Integer'存储序列的元素个数
Dim a（1To 100）As Integer'存储原始数字序列
Dim b（1To 100）As Integer'存储相邻数字的差值绝对值 Private Sub Form_Load （　　）
n=0End Sub
Private Sub Text1_KeyPress（KeyAscii As Integer） If KeyAscii=13Then
n=n+1
①
List1．AddItem str（a（n）） Text1．Text=““
End If End Sub
Private Sub Command1_Click （　　）
Dim i As Integer,j As Integer,k As Integer,m As Integer Dim flag As Boolean
m=n-1
For i=1To m
b（i）=②
Next i
For i=2To m k=b（i）
For j=i-1To 1Step-1
If k＞b（j） Then Exit For b（j+1）=b（j）
Next j
③=k
Next i flag=True
For i=1To m List2．AddItem str（b（i））
If b（i）＜＞i  Then flag=False Next i
If flag=True Then Text2．Text=“yes“Else Text2．Text=“no“End Sub