编码工作常被运用于密文或压缩传输。有一种最简单的编码方式，把一些有规律的单词编成数字。编码方法如下：
字母表中共有26个字母{a，b，…，z}，把符合“长度不超过6”的所有字符组合升序排列，一个单词的编码就对应着它排序后的位置。例如：a→1 b→2 z→26 aa→27 ab→28 az → 52 ba → 53 bb →54…
小何为此编写了VB程序，将该编码理解为26进制数值，求该编码对应的数值。程序运行，从文本框Text1输入要查询的单词，单击按钮Command1，如果输入的单词符合编码条件，则在Label3上显示对应的编码值否则在Label3中显示“不符合编码条件”。
实现上述功能的VB程序和程序运行界面如下所示，请补充完善代码。
Function c(n As Long, r As Long) As Long
Dim i As Long, cc As Long
cc = 1
For i = 1 To r
cc = cc * n
Next i
① End Function
Private Sub Command1_Click()
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 = 1 To Len(s)
ch = Mid(s, i, 1)
If
② Then
flag = False
Exit For
End If
xh = Asc(ch) - Asc("a")+1
③ bm = bm + xh * qz
Next i
If flag Then
Text2.Text = s + " 的编码值为：" +
④ Else
Text2.Text = "输入内容不符合编码规则"
End If
End Sub
