homework1

根据规则翻译这句话。
规则：K->M,O->Q,R->T
要翻译的话：g fmnc wms bgblr rpylqjyrc gr zw fylb. rfyrq ufyr amknsrcpq ypc dmp. bmgle gr gl zw fylb gq glcddgagclr ylb rfyr'q ufw rfgq rcvr gq qm jmle. sqgle qrpgle.kyicrpylq() gq pcamkkclbcb. lmu ynnjw ml rfc spj。
程序如下：
Dim i,s
str="g fmnc wms bgblr rpylqjyrc gr zw fylb. rfyrq ufyr amknsrcpq ypc dmp. bmgle gr gl zw fylb gq glcddgagclr ylb rfyr'q ufw rfgq rcvr gq qm jmle. sqgle qrpgle.kyicrpylq() gq pcamkkclbcb. lmu ynnjw ml rfc spj"
‘遍历这个字符串
For i=1 To Len(str)
  s=Mid(str,i,1)
  If s=" " Or s="." Or s="'" Or s="(" Or s=")" Then
     ns=s
  Else
     n=Asc(s)
'对字符使用
     If n+2 <123 Then
         ns=Chr(n+2)
      Else
         ns=Chr(n+2-26)
      End if
   End If
ms=ms&ns
      next  
MsgBox(ms)