編碼工作常被運(yùn)用于密文或壓縮傳輸。有一種最簡(jiǎn)單的編碼方式，把一些有規(guī)律的單詞編成數(shù)字。編碼方法如下：
字母表中共有26個(gè)字母{a,b,…，z}，把符合“長(zhǎng)度不超過(guò)6”的所有字符組合升序排列，一個(gè)單詞的編碼就對(duì)應(yīng)著它排序后的位置。例如：
a→1    b→2    z→26    aa→27    ab→28    az→52  ba→53  bb→54…
小何為此編寫(xiě)了VB程序，將該編碼理解為26進(jìn)制數(shù)值，求該編碼對(duì)應(yīng)的數(shù)值。程序運(yùn)行，從文本框Text1輸入要查詢(xún)的單詞，單擊按鈕Command1，如果輸入的單詞符合編碼條件，則在Label3上顯示對(duì)應(yīng)的編碼值否則在Label3中顯示“不符合編碼條件”。
實(shí)現(xiàn)上述功能的VB程序和程序運(yùn)行界面如下所示，請(qǐng)補(bǔ)充完善代碼。
Function c（n As Long,r As Long） As Long
Dim i As Long,cc As Long
cc=1
For i=1To r
cc=cc*n
Next i
①

c=cc

c=cc

End Function
Private Sub Command1_Click

c

c

Dim s As String,ch As String
Dim bm As Long,qz As Long
Dim xh As Integer
s=Text1．Text
bm=0
flag=True
For i=1To Len（s）
ch=Mid（s,i,1）
If ②

ch＜”a”or ch＞”z”

ch＜”a”or ch＞”z”

Then
flag=False
Exit For
End If
xh=Asc（ch）-Asc（“a“）+1
 ③

qz=c（26，len（s）-i）

qz=c（26，len（s）-i）

bm=bm+xh*qz
Next i
If flag Then
Text2．Text=s+“的編碼值為：“+④

str（bm）

str（bm）

Else
Text2．Text=“輸入內(nèi)容不符合編碼規(guī)則“
End If
End Sub。