Question

用vb编程的题，急求大神

窗体载入时在文本框中随机产生7个100以内的整数，单击按钮进行数组移位；每一行的最后一个移到下一行的第一位。在图形框产生一个7*7的矩阵。

Answer 1

你这个问题已经提了不是1次了吧？不是没有人回答，实在是费解？

请问？
7个100以内的整数，放成几行，每行几个数？

如何7个数可以构成7*7的矩阵？（7*7需要49个数啊？）

追问

每行7个，一共7行，每一行的最后一个数移到下一行的第一位，7个数轮流换位

追答

如果我不问一句，你这个问题是不可能有人回答的。
一个文本框，一个按钮，文本框设置多行属性

代码如下，已经通过测试：

Option Explicit
Private d(7, 7) As Integer

Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim T As Integer
Dim Mstr As String
T = d(7, 7)
For i = 7 To 1 Step -1
For j = 7 To 2 Step -1
d(i, j) = d(i, j - 1)
Next j
If i > 1 Then d(i, 1) = d(i - 1, 7)
Next i
d(1, 1) = T
Mstr = ""
For i = 1 To 7
For j = 1 To 7
Mstr = Mstr & Space(4 - Len(CStr(d(i, j)))) & CStr(d(i, j)) & " "
Next j
Mstr = Mstr & vbCrLf
Next i
Text1.Text = Text1.Text & vbCrLf & Mstr
End Sub

Private Sub Form_Load()
Dim i As Integer
Dim j As Integer
Text1.Text = ""
Randomize
For i = 1 To 7
For j = 1 To 7
d(i, j) = Int(Rnd * 100)
Text1.Text = Text1.Text & Space(4 - Len(CStr(d(i, j)))) & CStr(d(i, j)) & " "
Next j
Text1.Text = Text1.Text & vbCrLf
Next i

End Sub

追问

数据不对

例如 

        

追答

你早把这个贴上来多好!!!!!!

Answer 2

我只给排列的代码
我给你给你代码自己看
dim i%,j%,s%,k%
for i =1 to 7
for j=1 to 2
s=a(7)
a(7)=a(1)
a(1)=s
next j
for k =1 to 7
print a(i);
next k
print
next i
有问题请提出！
希望你满意

追问

从下面数第一个print后面缺东西，无法运行

追答

等一下！给你解答！现在有事！

追问

求一个这样的程序