我是新手.我想编一个帮助背英语单词的程序,但调试结果是"下标越界",黄色箭头指着If i >= 2 And Text1.Text = dc(2, i - 1) Then这句.请高人指点一下.程序是:Private dc(1 To 2, 1 To 3) As StringPrivate i As IntegerPrivate Sub Command1_Click()Dim a As Integer, i As Integeri = i + 1If i = 1 ThenCall pkEnd IfCommand1.Caption = "next"a = Int(1 + 3 * Rnd)Label1.Caption = dc(1, a)If i >= 2 And Text1.Text = dc(2, i - 1) Thentext2.Text = "对"End IfEnd SubPrivate Sub pk()dc(1, 1) = "调查;测验": dc(2, 1) = "survey"dc(1, 2) = "增加;添加": dc(2, 2) = "add"dc(1, 3) = "合计": dc(2, 3) = "add up"End Sub

问题 很多If i = 1 ThenCall pkEnd If运行 pk 但是 不跳出 这个 程序段 Private Sub Command1_Click()会 继续 运行 此时 i=1然后 到这里 If i >= 2 And Text1.Text = dc(2, i - 1) Thenda (2,1-1 ???????????????????? da(2,0 错了 明白了马

Private Sub Command1_Click()Dim a As Integer, i As Integer这里 声明 变量 a i 会 美一次 运行 Command1_Click() a i 都会 初始化 位 a=0 i=0 每一次 都 从 0 开始要 这样 static a as integer static i as integer逗号 都不要用i = i + 1If i = 1 Then

If i >= 2 And Text1.Text = dc(2, i - 1) Then之前 Text1.Text 根本 美出现 在程序李所以 Text1.Text=默认之text所以 不可能 text2.Text = "对"

很容易的 看这里的解释吧http://www.bbb123.com/down.asp?UserID=307577

动态变量和静态变量问题动态变量定义 dim静态变量定义 static

thanks