会python真的可以为所欲为0(回)
353天前
这里还有人吗1(回)
538天前这里还有人吗0(回)
538天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
763天前到处都是羊，不想上班0(回)
843天前
鸽子
0(回)
847天前Option Explicit |
Option Base 1 |
Dim i As Integer |
Dim j As Integer |
Dim a() As Integer |
Dim n As Integer |
Private Sub Command1_Click() |
Text3.SetFocus |
n = Val(Text3) |
ReDim a(n, n) '动态数组 |
For i = 1 To n |
For j = 1 To n |
a(i, j) = Int(10 * Rnd + 0) '随机数 |
Text1 = Text1 & a(i, j) & " " '一行 |
Next j |
Text1 = Text1 & Chr(13) & Chr(10) '多行 |
Next i |
End Sub |
Private Sub Command2_Click() |
Dim b() As Integer |
n = Val(Text3) |
ReDim b(n, n) |
For i = 1 To n |
For j = 1 To n |
b(i, j) = a(j, i) '转置 |
Text2 = Text2 & b(i, j) & " " '一行 |
Next j |
Text2 = Text2 & Chr(13) & Chr(10) '多行 |
Next i |
End Sub |
Private Sub Command3_Click() |
Text1 = "" |
Text2 = "" |
Text3 = "" '清除 |
Text3.SetFocus |
End Sub |
Private Sub Command4_Click() |
End '结束 |
End Sub |
Private Sub Form_Load() |
Text1 = "" |
Text2 = "" |
Text3 = "" '清除 |
End Sub |
