快来帮我做一道简单的VB题!给出一个英文字母,要求按字母顺序打印出5个字母,指定的字母是五个字母中间的一个字母.例如,给定的字母为"R",应打印出:PQRST.如果给定"Z",则应打印XYZAB.如果给定"B

来源：学生作业帮助网编辑：作业帮时间：2024/05/03 10:36:16

快来帮我做一道简单的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
有疑惑请补充

快来帮我做一道简单的VB题!给出一个英文字母,要求按字母顺序打印出5个字母,指定的字母是五个字母中间的一个字母.例如,给定的字母为R,应打印出:PQRST.如果给定Z,则应打印XYZAB.如果给定B 谁能帮我设计一个简单的VB事件我作业一道简单的线性代数题给出公式和思路即可能不能帮我做个VB简单的计算公式,谢谢一道简单的英文代数题编写程序,在一个文字框中输入一个简单的英文句子,找出这个英文句子中最长的单词.用vb做关于数组的用到n=instr(s,)right left len函数redim 简单题一道快来帮我! 谁能帮我用VB设计一个简单的程序：计算正方形的面积（详细点）谁能帮我用VB设计一个简单的程序：计算正方形的面积（详细点） “做一个调查”的英文大家给出翻译求做一道简单的电路题编写VB程序,在文本框中输入一个简单的英文句子,找出这个句子中最长的单词谁能帮我做这一道英文题谁能帮我做这一道英文题 VB循环结构的一道题一道简单的英文代数题麻烦帮帮我吧,谢谢了,明天就要用求会做VB的做一个程序内容是：求输入一段英文找出字母a出现次数最多的英文单词.大致就是这个意思.一定要vb的, 很简单的一道题,我做的对吗?还是我想复杂了?