快来帮我做一道简单的VB题!给出一个英文字母,要求按字母顺序打印出5个字母,指定的字母是五个字母中间的一个字母.例如,给定的字母为"R",应打印出:PQRST.如果给定"Z",则应打印XYZAB.如果给定"B
来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/17 01:29:51
快来帮我做一道简单的VB题!给出一个英文字母,要求按字母顺序打印出5个字母,指定的字母是五个字母中间的一个字母.例如,给定的字母为"R",应打印出:PQRST.如果给定"Z",则应打印XYZAB.如果给定"B
快来帮我做一道简单的VB题!
给出一个英文字母,要求按字母顺序打印出5个字母,指定的字母是五个字母中间的一个字母.例如,给定的字母为"R",应打印出:PQRST.如果给定"Z",则应打印XYZAB.如果给定"B",应打印ZABCD.其他类推.快来帮我!
能不能用select case语句做呢?
快来帮我做一道简单的VB题!给出一个英文字母,要求按字母顺序打印出5个字母,指定的字母是五个字母中间的一个字母.例如,给定的字母为"R",应打印出:PQRST.如果给定"Z",则应打印XYZAB.如果给定"B
Private Sub Form_Load()
Dim str As String, ascii As Integer, str2 As String
str = InputBox("请随意输入一个英文字母")
If Len(str) 1 Or Asc(str) < 97 Or Asc(str) > 122 Then
MsgBox "输入的格式不对"
Exit Sub
End If
ascii = Asc(str)
str2 = Chr(ascii - 2) & Chr(ascii - 1) & str & Chr(ascii + 1) & Chr(ascii + 2)
ReDim str_array(Len(str2) - 1) As String
For i = 0 To Len(str2) - 1
str_array(i) = Mid(str2, i + 1, 1)
If Asc(str_array(i)) < 97 Or Asc(str_array(i)) > 122 Then
str_array(i) = "?"
End If
Next
str2 = Replace(Join(str_array), " ", "")
MsgBox str2
End Sub
久等了.如果不是字母会用?替代,例如输入a返回?abc
有疑惑请补充