vba数组的使用
原题，编写按钮的Click过程，要求：点击按钮“统计”（command2）随机产生10个数据，范围在0-100之间的整数，通过列表框（list0）显示出来，并在文本框（t...
原题，编写按钮的Click过程，要求：点击按钮“统计”（command2）随机产生10个数据，范围在0-100之间的整数，通过列表框（list0）显示出来，并在文本框（text3）中显示大于50的数据个数。对控件属性做简单说明。
Option Compare Database
Option Base 1
Private Sub Command0_Click()
Dim a(10) As Integer, i As Integer, x As Integer
For i = i To 10
a(i) = Int(Rnd * 100)
List3.AddItem a(i)
Next
For i = 1 To 10
If a(i) > 50 Then x = x + 1
Next
Text1.Value = x
End Sub
错误提示 下标越界， 这是为啥? 求大神解答 展开
Option Compare Database
Option Base 1
Private Sub Command0_Click()
Dim a(10) As Integer, i As Integer, x As Integer
For i = i To 10
a(i) = Int(Rnd * 100)
List3.AddItem a(i)
Next
For i = 1 To 10
If a(i) > 50 Then x = x + 1
Next
Text1.Value = x
End Sub
错误提示 下标越界， 这是为啥? 求大神解答 展开
1个回答
展开全部
你的主要问题是
dim a(10)相当于定义了一个长度为10的数组. 因为你用Option Base 1声明了下标从1开始, 所以dim a(10) 相当于是 dim a(1 to 10);
dim i as Integer, 而i没有赋给初始值时, 默认赋值为0. 所以for i = i to 10第一个就开始从0循环, 就是a(0)了, 导致数组下标越界.
你是笔误了吧, 将for i = i to 10修改为for i = 1 to 10
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
