VB题目，用For...Next语句编程

来源：百度知道 编辑：UC知道 时间：2024/05/31 12:28:39
哪位高手能帮帮忙~~谢谢！！
用For...Next语句编程，在屏幕上输出形如以下图形。第一行的起始字母和终止字母由用户输出。
ABCDE
BCDEA
CDEAB
DEABC
EABCD

Private Const KEYASC_A = 65

Private Sub Form_Click()
Dim i As Integer, j As Integer, k As Integer
Dim s As String
For i = 0 To 4
For j = 0 To 4
k = i + j
If k > 4 Then k = k - 5
s = s & Chr(KEYASC_A + k)
Next j
Print s
s = ""
Next i
End Sub