Private Sub Command1 click( )

  Dim a(1 to 3) as integer,k as integer,t as integer,s as integer

  a(1)=15: a(2)=36: a(3)=7

  s=0

  For k=2 to 3

if a(k)>a(1) then

  t=a(1):a(1)=a(k):a(k)=t

  s=s+1

End if

  Next k

  text1.text=str(a(1))

  text2.text=str(s)

End sub

  Dim n As Integer

  Dim a(1 To 100)As Integer

Private Sub Command1_Click()  ‘生成n个有序数，显示在List1中

‘代码略

End Sub

Private Sub Command2_Click()

    Dim t As Integer

    Dim i As Integer

    Dim j As Integer

    Dim temp As Integer

    t=Val(Text2．Text)

    For i= To n       ‘(1)

      temp=a(i)

      For j=i To i+1-t Step-1

      a(j)=a(j-1)

      Next j

        =temp    ‘(2)

    Next i

    For i=1 To n

      List2．AddItem Str(a(i))

    Next i

  End Sub

Dim x As Integer，y As Integer

x＝Val(Text1.Text)

If x>200 Then

 y＝5*x

ElseIf x>＝50 Then

 y＝10*x

Else

 y＝4*x

End If

Text2.Text＝Str(y)

若要测试所有分支程序代码是否正确，以下测试数据中，最恰当的一组是（  ）

请回答下列问题：