2.使用Debug.Print 输出*的三角形。
3.有一行密码,是按照下面的规律译成的密码: A→C a→c B→D b→d C→E c→e ... ... ... ... ... ... 即第一个字母编程第三个字母,第i个字母变成第i+2个字母。非字母符号不变,要求输入后通过程序将密码译成原文,并输出密码和原文。
第1个回答 2014-06-05
Sub 原文()
k = ActiveSheet.UsedRange.Rows.Count
For i = 2 To k
CellString = Cells(i, 1).Value
lengh = Len(Cells(i, 1).Value)
newstring = ""
For j = 1 To lengh
temp = Mid(CellString, j, 1)
oldtemp = Asc(temp)
If ((oldtemp >= 65 And oldtemp <= 90) Or (oldtemp >= 97 And oldtemp <= 122)) Then
newstring = newstring & Chr(oldtemp - 2)
Else
newstring = newstring & temp
End If
Next
Cells(i, 2).Value = newstring
Next
End Sub
就是提取字符串的每个字符,如果是大写字母或小写字母,则ascii码-2,其他则保留原字符追问
k = ActiveSheet.UsedRange.Rows.Count
For i = 2 To k
CellString = Cells(i, 1).Value
lengh = Len(Cells(i, 1).Value)
newstring = ""
For j = 1 To lengh
temp = Mid(CellString, j, 1)
oldtemp = Asc(temp)
If ((oldtemp >= 65 And oldtemp <= 90) Or (oldtemp >= 97 And oldtemp <= 122)) Then
newstring = newstring & Chr(oldtemp - 2)
Else
newstring = newstring & temp
End If
Next
Cells(i, 2).Value = newstring
Next
End Sub
就是提取字符串的每个字符,如果是大写字母或小写字母,则ascii码-2,其他则保留原字符追问
谢谢~~请问你第二题和第三题会吗
追答我提供给你的VBA就是将密码译成原文~并写到另一个单元格