vb的问题,求一个算法!每个字母改为它后面的第N个字母.我大概写了下,这看来好像没有问题,但是当输入最后三个字母后(包括大写),x,y,z 就有问题了.Private Sub Command1_Click()n$ = Text1.TextFor i = 1 T
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/28 17:41:26
![vb的问题,求一个算法!每个字母改为它后面的第N个字母.我大概写了下,这看来好像没有问题,但是当输入最后三个字母后(包括大写),x,y,z 就有问题了.Private Sub Command1_Click()n$ = Text1.TextFor i = 1 T](/uploads/image/z/6665751-63-1.jpg?t=vb%E7%9A%84%E9%97%AE%E9%A2%98%2C%E6%B1%82%E4%B8%80%E4%B8%AA%E7%AE%97%E6%B3%95%21%E6%AF%8F%E4%B8%AA%E5%AD%97%E6%AF%8D%E6%94%B9%E4%B8%BA%E5%AE%83%E5%90%8E%E9%9D%A2%E7%9A%84%E7%AC%ACN%E4%B8%AA%E5%AD%97%E6%AF%8D.%E6%88%91%E5%A4%A7%E6%A6%82%E5%86%99%E4%BA%86%E4%B8%8B%2C%E8%BF%99%E7%9C%8B%E6%9D%A5%E5%A5%BD%E5%83%8F%E6%B2%A1%E6%9C%89%E9%97%AE%E9%A2%98%2C%E4%BD%86%E6%98%AF%E5%BD%93%E8%BE%93%E5%85%A5%E6%9C%80%E5%90%8E%E4%B8%89%E4%B8%AA%E5%AD%97%E6%AF%8D%E5%90%8E%EF%BC%88%E5%8C%85%E6%8B%AC%E5%A4%A7%E5%86%99%EF%BC%89%2Cx%2Cy%2Cz+%E5%B0%B1%E6%9C%89%E9%97%AE%E9%A2%98%E4%BA%86.Private+Sub+Command1_Click%28%29n%24+%3D+Text1.TextFor+i+%3D+1+T)
vb的问题,求一个算法!每个字母改为它后面的第N个字母.我大概写了下,这看来好像没有问题,但是当输入最后三个字母后(包括大写),x,y,z 就有问题了.Private Sub Command1_Click()n$ = Text1.TextFor i = 1 T
vb的问题,求一个算法!每个字母改为它后面的第N个字母.
我大概写了下,这看来好像没有问题,但是当输入最后三个字母后(包括大写),x,y,z 就有问题了.
Private Sub Command1_Click()
n$ = Text1.Text
For i = 1 To Len(n)
c$ = Mid(n$, i, 1)
For j = 0 To 2
If Opt1(j).Value = True Then m = Val(Opt1(j).Caption): b$ = String(1, Asc(c$) + m): a$ = a$ + b$
Next j
Next i
Text2.Text = a$
End Sub
请看图,如果正常,移动位数是3的情况,应该是x,y,z应该转换成a,b,c请问,应该有什么算法呢?
vb的问题,求一个算法!每个字母改为它后面的第N个字母.我大概写了下,这看来好像没有问题,但是当输入最后三个字母后(包括大写),x,y,z 就有问题了.Private Sub Command1_Click()n$ = Text1.TextFor i = 1 T
这个只能是特判了.还有一个方法是把先把这种字母转化成对应的数字,如‘a’-‘a’变成0
‘b’-'a'=1
然后再加上3对26取余
再加回去
z-'a'=25
25+3=28
28%26=2
'a'+2='c'
就是这样转化,听懂了吗?