vb作业，谢谢

来源：百度知道 编辑：UC知道 时间：2024/05/26 21:44:03
输入下列数字图案（行数由键盘输入）
12345678
91234567
89123456
78912345
67891234
56789123
45678912
34567891
...

Private Sub Command1_Click()
Dim Hangshu As Integer, I As Integer, R As String
R = "234567891"
Hangshu = InputBox("请输入行数：")
For I = 1 To Hangshu
R = Right(R, 1) + Left(R, 8)
Print Left(R, 8)
Next I
End Sub

高手啊。