vb的问题,求一个算法!每个字母改为它后面的第N个字母.我大概写了下,这看来好像没有问题,但是当输入最后三个字母后(包括大写),x,y,z 就有问题了.Private Sub Command1_Click()n$ = Text1.TextFor i = 1 T

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/08 11:14:20

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'
就是这样转化,听懂了吗?

vb的问题,求一个算法!每个字母改为它后面的第N个字母.我大概写了下,这看来好像没有问题,但是当输入最后三个字母后(包括大写),x,y,z 就有问题了.Private Sub Command1_Click()n$ = Text1.TextFor i = 1 T 输入一些英文语句,使每个单词的第一个字母变成大写VB写 vb.net 排列组合算法想用vb.net写一个字典生成器,遇到了一个问题,不知道排列组合的算法怎么写比如从 字母(大小写)+数字,一共62个字符中任取N个进行组合排列,请问代码怎么写?谢谢递归的 A B C D - C D C _____________ A B C 求A、B、C、D的值.用VB编程完成ABCD-CDC=ABC,其中每个字母表示一个数字,请用VB编程解决, 设计一个算法,求实数a的绝对值(VB编程) 用VB编一个用字母组成的菱形,求代码,其相邻的上下两行由它前面一个字母组成要求效果是abbbcccccdddddddeeeeefffg 1.输入一个三位整数,将数字位置重新排列,组成一个尽可大的三位数.求vb算法 求会做VB的做一个程序 内容是:求 输入一段英文找出字母a出现次数最多的英文单词.大致就是这个意思.一定要vb的, dbq,wqadxh是每个字拼音的第一个字母,把它翻译成一句话 已知ab2=6,求ab(a2b5-ab3-b)的值.【注意:每个数字表示的都是它前面一个字母的指数】求解. sit添加一个字母把它改为另一个意思是衣服一类的单词 判断一个数字是否为素数 画出算法的流程图无需设计vb算法 只需流程图 VB:斐波那契数列第一项是1,第二项是1,用递归算法编写一个程序,求数列前N项的和 VB:一个三位正整数,它的百位数小于十位数,且十位数小于个位数,例如:123,求满足上述条件的三位正整数的和要VB程序 VB求输入任意一个正整数,若该数不是一个素数,则找出一个大于它的最小素数. 把一个数组中每个元素后移m的算法后面的数字会移动到前面,文字说明下. 求每个字母表示的数字. Njzbzdzhssdhbszjm是什么意思?每个字母都是拼音的第一个字母