17．某密碼的破譯步驟如下：
（1）找出文章（以“。”結(jié)束）中所有用英文表示的數(shù)字（均為小寫，數(shù)字范圍1≤n≤20），單詞與數(shù)字對應(yīng)如下：
| 單詞 |
one |
two |
three |
four |
five |
six |
seven |
eight |
nine |
ten |
…… |
twenty |
| 數(shù)字 |
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
…… |
20 |
（2）將這些數(shù)字平方后除以100取余，得到兩位數(shù)如00，04，21，96。
（3）把這些兩位數(shù)按升序排成一行，組成一個最小的新數(shù)，如果新數(shù)開頭為0，就去除。
（4）步驟（3）找出的最小數(shù)即為密碼。
小明按照上述方法，設(shè)計了一個解密的VB程序，功能如下：單擊“解密”按鈕Commandl,程序依次將文本框Textl中以空格分隔的每個英文單詞取出，若單詞屬于數(shù)字單詞，則按解密步驟進行處理，最后在文本框Text2中輸出解密結(jié)果。程序運行效果如圖所示，請回答下列問題：
（1）若文章內(nèi)容為“tom bought two apples and five oranges,which cost ten dollars altogether?！?，則破譯后的密碼應(yīng)為
。
（2）請在橫線處填入合適的代碼。
Dim a（1To 20）As String
Private Sub Form_Load （ ?。?br />a（1）=“one“：a（2）=“two“
'……將所有數(shù)字單詞按順序存入數(shù)組a中，代碼略
End Sub
Private Sub Command1_Click （ ）
Dim s As String,tmp As String
Dim c as Integer,i As Integer,j As Integer,k As Integer,t As String,ch As As String,code As Long
Dim b（1To 100）As String'b數(shù)組存放數(shù)字單詞處理后得到的兩位數(shù)
s=Text1．Text
c=0：i=1：flag=True：t=““
Do While i＜=Len（s）
ch=Mid（s,i,1）
If ch＞=“a“And ch＜=“z“Then
t=t+ch
flag=False
ElseIf flag=False Then
For j=1To 20
If t=a（j） Then
c=c+1
b（c）=
End If
Next j
t=““
flag=True
End If
i=i+1
Loop
’將b數(shù)組中的兩位數(shù)按數(shù)值大小進行升序排序，代碼略
For i=1To c
t=Val（b（i））
Next i
Text2．Text=Str（code）
End Sub
Function decode（num As Integer） As String
Dim mo As Integer
mo=num*num Mod 100
If mo=0Then
decode=“00“
ElseIf
Then
decode=“0“+Trim（Str（mo））
Else
decode=Trim（Str（mo））'Trim為去除字符串兩端空格的函數(shù)
End If
End Function
