用vb对输入的英文单词加密.要求,首尾互换,保持首字母大写,其余字母小写,单词长度为偶数时处于单词中间的两个字母互换,而长度为奇数时处于单词中间的字母按字母表顺序后移两位.如study
来源:学生作业帮助网 编辑:作业帮 时间:2024/05/10 13:05:28
用vb对输入的英文单词加密.要求,首尾互换,保持首字母大写,其余字母小写,单词长度为偶数时处于单词中间的两个字母互换,而长度为奇数时处于单词中间的字母按字母表顺序后移两位.如study
用vb对输入的英文单词加密.
要求,首尾互换,保持首字母大写,其余字母小写,单词长度为偶数时处于单词中间的两个字母互换,而长度为奇数时处于单词中间的字母按字母表顺序后移两位.如study变成Ytwds.
用vb对输入的英文单词加密.要求,首尾互换,保持首字母大写,其余字母小写,单词长度为偶数时处于单词中间的两个字母互换,而长度为奇数时处于单词中间的字母按字母表顺序后移两位.如study
长度为奇数时,首尾字母用交换吗?
Private Sub Command1_Click()
a = InputBox("请输入字符")
If Len(a) Mod 2 = 0 Then
b = Mid(a,Len(a) / 2 + 1,1)
c = Mid(a,Len(a) / 2,1)
Mid(a,Len(a) / 2) = b
Mid(a,Len(a) / 2 + 1) = c
Mid(a,1) = UCase(Left(a,1))
Else
Mid(a,Len(a) / 2 + 0.5) = Chr(Asc(Mid(a,Len(a) / 2 + 0.5,1)) + 2)
e = Left(a,1) ' 奇数不用首尾颠倒可删除
Mid(a,1) = Right(a,1) ' 奇数不用首尾颠倒可删除
Mid(a,Len(a)) = e ' 奇数不用首尾颠倒可删除
Mid(a,1) = UCase(Left(a,1))
End If
Print a
End Sub