题库 高中信息

题干

编码工作常被运用于密文或压缩传输。有一种最简单的编码方式,把一些有规律的单词编成数字。编码方法如下:
字母表中共有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
上一题 下一题 0.99难度 填空题 更新时间:2019-04-24 10:10:02

答案(点此获取答案解析)