UC知道这是我的一个程序，老是出现下标出借
来源：百度知道 编辑：UC知道 时间：2024/06/07 10:06:20
Private Sub Form_Click()
Dim mark(1 To 15) As String
Dim i As Integer
For i = 1 To 15
mark(i) = Chr(Int(Rnd * 26 + 65))
i = i + 1
Picture1.Print mark(i)
Next i
End Sub
Dim mark(1 To 15) As String
Dim i As Integer
For i = 1 To 15
mark(i) = Chr(Int(Rnd * 26 + 65))
i = i + 1
Picture1.Print mark(i)
Next i
End Sub
你交换一下代码就可以了，这样：
'这是你原来的代码
For i = 1 To 15
mark(i) = Chr(Int(Rnd * 26 + 65))
i = i + 1
Picture1.print mark(i)
next i
'改成这样：
For i = 1 To 15
mark(i) = Chr(Int(Rnd * 26 + 65))
Picture1.print mark(i)
i = i + 1
next i