Private Sub Command1_ Click( )
Dim a（1 To 10） As Integer， i As Integer， k As Integer
a(1)=1：a(2)=17：a(3)=8：a(4)=9：a(5)=18
a(6)=15：a(7)=20：a(8)=13：a(9)=7：a(10)=11
k=0
For i= 2 To 9
If（a（i）-a（i-1））*（a（i+1）-a（i））< 0 Then k=k+1
Next
Text1. Text = Str （k）
End Sub
该程序段运行后后，文本框Text1中显示的内容是（ ）
