简单问题 array

Question

Dim A A = Array(10)
这样定义数组

Answer 1

改成
Option Explicit
Dim myCode(19)          '定义为模块级变量,任何当前模块的过程都能访问
Dim i As Integer
Dim Tempi As IntegerPrivate Sub Command1_Click()
Text1.Text = myCode(15)  '////出错了，好像是由于myCode 没有定义，怎么解决。
End SubPrivate Sub Form_Load()
'Dim myCode(19)          '放在过程里面,是局部变量,过程以外无法访问
For i = 0 To 19
    myCode(i) = "Null"
Next
End Sub

Answer 2

这样定义
Dim DanXuan(0 To 19) As string

Answer 3

Option Explicit
Dim myCode(19) as string
Dim i As Integer
Dim Tempi As IntegerPrivate Sub Command1_Click()
Text1.Text = myCode(15)  
End SubPrivate Sub Form_Load()
For i = 0 To 19
    myCode(i) = "Null"
Next
End Sub

Answer 4

改成
Option Explicit
Dim myCode(19)          '定义为模块级变量,任何当前模块的过程都能访问
Dim i As Integer
Dim Tempi As IntegerPrivate Sub Command1_Click()
Text1.Text = myCode(15)  '////出错了，好像是由于myCode 没有定义，怎么解决。
End SubPrivate Sub Form_Load()
'Dim myCode(19)          '放在过程里面,是局部变量,过程以外无法访问
For i = 0 To 19
    myCode(i) = "Null"
Next
End Sub

Answer 5

Option Explicit
Dim myCode As String'//是定义字符串变量，而不是数组
Dim i As Integer
Dim Tempi As IntegerPrivate Sub Command1_Click()
Text1.Text = myCode'//myCode是String,这样赋值才行
End SubPrivate Sub Form_Load()
Dim myCode(19)'//局部变量，不能在其它地方使用
For i = 0 To 19
    myCode(i) = "Null"
Next
'//结果这一段代码和其它地方的myCode没有任何关系。
End Sub