下列VB程序運(yùn)行時(shí)，將x插入已經(jīng)按首字母從小到大排序的數(shù)組a（1  to 5）中，閱讀下列程序，請(qǐng)?jiān)跈M線處填入合適代碼。
Private Sub Commandl_-Click（　?。?br />本程序?qū)插入已經(jīng)按首字母從小到大排序的數(shù)組a（1 to 5）中。
Dim a（1 to 5）As String,k As Integer,I As Integer,s As Integer
x=“China“
a（1）=“Amerincan“；a（2）=“England“；a（3）=“Geermane“；a（4）=“Japan“；a（5）=““
For k=1 to 4
   If x＞a（k） Then
     s=s+1
     if  k=4 then
     a（k+1）=x
     endif
  Else
   s=s+1
   For 1=5 to k+1 Step

-1

-1

   a（I）=a（I-1）
   Next 1
   a（k）=

x

x

  End If
Next k
Textl.Text=“比較的次數(shù)是”+str（s）
Text2．text=a（k）
End Sub。