某張表單的變數如何傳到另一張表單?

原本只要在每個表單開一個Test1就可以了：
Form1.Text1.Text = Form2.Text1.Text

可是如果每次傳值到另一個表單都要開一個TextBox就太浪費了！站長教您用一個更好的方法：

首先開Form1、Form2、Text1(於在Form2)和Command1(於在Form2)各一個，然後分別輸入：

'Form1程式碼：
Public MyValue as String '這行要放在最頂
Private Sub Form_Load()
　MyValue = "哈哈哈！"
End Sub

'Form2程式碼：
Private Sub Command1_Click()
　Text1.Text = Form1.MyValue
End Sub

ReDim

二維陣列

除了一維陣列，我們還可以宣告二維陣列：

Dim A(2, 2) as Integer

結果如下表：

 
 
 
 
 
 
我們可以利用For敘述句配置一些資料：

For i = 0 to 2
For j = 0 to 2
A(i, j) = i + j
Next j
Next i

結果：