题目

某日期加密授权码生成方法描述如下： 1)授权码由10位字符组成，前8位为日期的密文，后2位为验证码； 2)取日期的第1位字符，若该字符第一次出现，则直接取其对应加密字符，否则取下一个不重复的加密字符。按此操作，依次取出该日期余下各位对应的加密字符； 3)求出所有日期字符数值的和，将和除16取余加1得到一位验证码字符；若和不小于16，则将和除16取整加1得到另一位验证码字符，否则另一位验证码字符为“X”。取出验证码重复时，处理规则与(2)相同。 加密(验证码)字符对应表如下。 值（十进制） 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 加密（验证码）字符 K n G j L t W b O a P H Z q Y c 小明设计了一个生成8位日期(YYY YMM-DD格式)授权码的VB程序。程序功能如下：在文本框Text1中输入一个8位有效日期，单击“生成授权码”按钮Command1，在标签Label2中显示出该日期的授权码。运行效果如图所示。 实现上述功能的VB程序段如下： （1） 请在划线处填入合适代码： Dim f(0 To 15) As Integer Const Code=“KnGjLtWbOaPHZqYc” Private Sub Command1_ Click()     Dim rq As String, sq As String     Dim c As Integer, i As Integer, d As Integer     For i=0 To 15         f(i)=0     Next i     rq= Text1. text     sq =””：d=0     If Len(rq) <> 8 Then         Label2. Caption=“请输入8位日期！”     Else         For i=1 To 8             c= Val(Mid(rq,i, 1))             d=d+c             sq =+sq         Next i         If d >=16 Then             yz= GetChar(d Mod 16+1) +GetChar(d \ 16+1)         Else             yz= GetChar(d Mod 16+1)+“X”         End If     Label2. Caption=sq+yz     End If End Sub '获取不重复的加密字符 Function GetChar(x As Integer) As String     Dim flag As Boolean     flag= False     Do While flag= False         f(x)=f(x)+1         If f(x)=1 Then                          f(x)=f(x)+ 1             flag= True         Else             x=(x+1) Mod 10         End If     Loop End Function （2） 若输入的日期是“20170818”，则该授权码的验证码字符是。 答案： 【1】GetChar(c)【2】GetChar= mid(Code, x+ 1, 1) 【1】aLOjbnKGZt

查看本题答案和解析