VB简单加密功能，加密方法是将每个字母加密为其后的第五个字母，即a变f,B变G等，对于非字母字符不处理

将？替换成字符

第一个问号填 length
第二个问号填 c
第三个问号填 txtcode.text

变量定义比较随意，请根据实际修改。

text1是原来的数据，text2是转换后的数据

private sub command1_click() on error resume next dim a as string dim b as integer dim c as string dim i as integer a = text1.text b = len(text1.text) for i = 0 to b if asc(left(a, 1)) >= 65 and asc(left(a, 1)) <= 90 or asc(left(a, 1)) >= 97 and asc(left(a, 1)) <= 122 then c = c & chr(asc(left(a, 1)) + 5) else c = c & left(a, 1) end if a = right(a, len(a) - 1) next

text2.text = c end sub

length Code = Code + c txtCode.Text = Code

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息