一道visual basic 题目，求vb 大神们给个代码，写了好久实在运行不了，谢谢啦！

Answer 1

Private Sub Command1_Click()

    Dim b As Integer, e As Integer

    Dim i As Integer, j As Integer

    Dim a As String

    b = Asc(Text1.Text)

    e = Asc(Text2.Text)

    a = ""

    For i = b To e

        a = a & Chr(i)

    Next

    Print a

    For i = 1 To e - b

        a = Mid(a, 2) & Mid(a, 1, 1)

        Print a

    Next

End Sub

Answer 2

Private Sub Command1_Click()
Dim a As String, m, n, i As Integer, s As String, b() As String
a = UCase(InputBox("输入两个字母"))
If Len(a) = 2 Then
  Cls
  m = Asc(Left(a, 1))
  n = Asc(Right(a, 1))
  If m > n Then
    i = m: m = n: n = i
  End If
  For i = m To n
    s = s & Chr(i)
  Next
  ReDim b(Len(s) - 1)
  For i = 0 To Len(s) - 1
    b(i) = Right(s, Len(s) - i) & Left(s, i)
    Print b(i)
  Next
End If
End Sub