用vb对输入的英文单词加密.
问题描述:
用vb对输入的英文单词加密.
要求,首尾互换,保持首字母大写,其余字母小写,单词长度为偶数时处于单词中间的两个字母互换,而长度为奇数时处于单词中间的字母按字母表顺序后移两位.如study变成Ytwds.
答
长度为奇数时,首尾字母用交换吗?Private Sub Command1_Click()a = InputBox("请输入字符")If Len(a) Mod 2 = 0 Thenb = Mid(a,Len(a) / 2 + 1,1)c = Mid(a,Len(a) / 2,1)Mid(a,Len(a) / 2) = bMid(a,Len(a) / 2 + 1)...