数字和符处理题型分析.doc

※数字和字符处理题型分析 (2)执行下面的程序，单击窗体后在窗体上显示的第一行结果是　[1]　，第三行结果是__[2]__。 Private Sub Command1_Click() 　　Dim Mystr, MyStr1, Mystr2 As String 　　MyStr1 = B 　　For i = 1 To 3 　　　　Mystr2 = LCase(MyStr1) 　　　　MyStr1 = MyStr1 Mystr2 　　　　Mystr = Mystr MyStr1 　　　　Print Mystr 　　　　MyStr1 = Chr(Asc(MyStr1)+ i) 　　Next i End Sub i MyStr1 MyStr2 MyStr 打印 B 1 Bb b Bb Bb C 2 Cc c E BbCc BbCc 3 Ee e BbCcEe BbCcEe 答案：(1)Bb 　　　(2)BbCcEe 分析：Asc()函数只取第一个字符的数值。 7.下面是一个加密/解密程序，加密的算法是：将原文中每个字符的ASCII代码加上该字符在原文中的位置数(设字符在原文中是第n个字符，在其位置是n被10除的余数，当余数为0时，其位置数为10。例如原文字符串为“meet me at sunset”，第一个字符“m”，其位置数为1，而“s”为第12个字符，其位置数是被10除的余数2，其余依次类推)作为密文字符的代码，再将密码字符逆序排列(例如ABCD，逆序排列为DCBA)即为密文。解密算法是加密算法的逆运算。 Option Explicit Private Sub Command1_Click() 加密 Dim enc As String, dec As String, i As Integer Dim s As String * 1, n As Integer dec = Text1 For i = 1 To Len(dec) s = Mid(dec, i, 1) (19) If n = 0 Then n = 10 enc = Chr(Asc(s) + n) enc Next i Text2 = enc End Sub Private Sub Command2_Click() 解密 Dim enc As String, dec As String, i As Integer Dim n As Integer, s As String * 1, p As Integer enc = Text2 (20) For i = 1 To n s = Mid(enc, i, 1) p = n Mod 10 If p = 0 Then p = 10 dec = (21) n = n - 1 Next i Text1 = dec End Sub 答案：n = i Mod 10 n = Len(enc) Chr(Asc(s) - p) dec (4)运行下面的程序，单击窗体后在窗体上显示的第一行结果是　[1]　，第三行结果是　[2]　。 Private Sub Form_Click() 　　Dim mst As String, mst1 As String, mst2 As String 　　Dim i As Integer 　　mst1 = CeBbAa 　　For i = Len(mst1) To 1 Step -2 　　　　mst2 = Mid(mst1, i - 1, 2) 　　　　mst = mst mst2 　　　　Print mst 　　Next i End Sub mst1 mst2 mst i 打印 CeBbAa Aa Aa 6 Aa Bb AaBb 4 AaBb Cc AaBbc 2 AaBbc 答案：(8)Aa 　　　(9)AaBbCe 分析：Mid()函数的操作方式是从后向前取字符。 (2)执行下面程序，第二行输出结果是　[1]　，第三行输出结果是　[2]　。 Private Sub Form_Click() 　　Dim ch As String, i As Integer 　　ch = ABC 　　For i = 1 To 3 　　　　ch = Mid(ch, 2 * i - 1, 1)+ Left(ch, Len(ch)) 　　　　Print ch 　　Next i End Sub ch i 打印 ABC 1 Mid(ABC,1