作业帮 > 综合 > 作业

编程输出下列数字图案(行数由键盘输入)

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/05 23:15:34
编程输出下列数字图案(行数由键盘输入)
1 2 3 4 5 6 7 8
9 1 2 3 4 5 6 7
8 9 1 2 3 4 5 6
7 8 9 1 2 3 4 5
6 7 8 9 1 2 3 4
5 6 7 8 9 1 2 3
4 5 6 7 8 9 1 2
3 4 5 6 7 8 9 1

VB语言!
Private Sub UserForm_Click()
Dim i As Integer,j As Integer,n As Integer,r As Integer
n = Val(InputBox("n=","输入行数"))
r = 0
j = 0
For i = 1 To 9
j = j + 1
If j Mod 8 = 0 Then Print
Print i & " ";
If i = 9 Then i = 1:Print i & " ";
If j / 8 = n Then Exit For
Next i
End Su