Dim strA As String, strB As String
strA = "hongda":strB = ""
For i = 1 To Len(strA) * 2
If i / 2 = Int(i / 2) Then
strB = strB + Chr(Asc(Mid(strA, (i - 1) Mod Len(strA) + 1, 1)) + 2)
End If
Next i
该程序段运行后,变量strB的值是( )
微信扫码预览、分享更方便