vb 下标越界,怎么办

发布网友发布时间：2024-10-24 07:04

共1个回答

热心网友时间：2024-10-24 20:30

改一下ReDim a(i) As Integer

Private Sub Command1_Click()
Dim i As Integer, y As String, z As String, n As Integer, m As Integer, j As Integer
i = 1
For i = 1 To 20
ReDim a(0 To i) As Integer
a(i) = Int(Rnd * 90) + 10
Next i
For j = 1 To 20
If a(j) Mod 2 = 0 Then
y = y & a(j)
n = n + 1
End If
If a(j) Mod 2 = 0 Then
z = z & a(j)
m = m + 1
End If
Next j
Print "这20个随机数中偶数有："; "y"
Print "这20个随机数中奇数有："; "x"
Print "偶数共"; "n"; "个"
Print "奇数共"; "m"; "个"
End Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com