VB的实验操作题，该怎么写呀，🦀🦀

Option Base 1
Private Sub Form_Activate()
Const M = 5
Const N = 4
Dim a(M, N) As Integer
Dim i%, j%, sumcol&, sumed%
Print " 5行×4列二维数组"
For i = 1 To M
For j = 1 To N
a(i, j) = Int(Rnd * 90 + 10)
Print a(i, j);
Next j
Print
Next i
Print
For i = 2 To N Step 2
sumcol = 0
For j = 1 To M
sumcol = sumcol + a(i, j)
Next i
Print " 第"; j; "列元素的和："; sumcol
Next j
Print
Print " 被2和3整除的元素：";
For i = 1 To M
For j = 1 To N
If a(i, j) Mod 2 = 0 And a(i, j) Mod 3 = 0 Then
Print a(i, j);
End If
Next j
Next i
End Sub

你要先进VB的编译器，再把代码复制进去。。。实验的目的是啥？

不都写好了吗？
直接在vb6里双击窗体进入代码区，把代码区里的代码全删，用上面的代码代替，就ok了