数字和字处理题型分析.docVIP

※数字和字符处理题型分析 (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，其余