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

来源：学生作业帮助网 编辑：作业帮 时间：2024/10/06 01:15:51
快来帮我做一道简单的VB题!给出一个英文字母,要求按字母顺序打印出5个字母,指定的字母是五个字母中间的一个字母.例如,给定的字母为
xTOPW}0[C[`ōtB薶| eaH3B4c?{[4Yp|H6/?u:!keT3ZMdߙg :'kTEE:Z"d%R/plI ٞl7 ↍VC:>ZiqOҹcy041:7DψGRJ_oM<" 7]5OqksZacUJ h5Tp0F#`)+AQr>fɑ01ߠ4TMA*Jj$OHPӒDaYEpҼ>`exf!YZM_~FD9Azz4F{> za4>#n:Fi(8V $y 78uhAҨ.8$O-k-m1 `(D7}@/^@+'E^+@ږn5\3Ul"%8YDp)Ů]8!fgxn 8iQ_wk/Yl `"A:ٽ4y eDŽTV!{Z&+ek렎sH(ɻJ

快来帮我做一道简单的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的, 很简单的一道题,我做的对吗?还是我想复杂了?