if x=-1 then i=2:x=0
就可以了本回答被提问者采纳
a(-1)=a(-1) +1 '-1？？？
用VB 6.0的代码，而且必须用FOR循环。
题目：有20个人参加竞选，基编号分别为01~20.从键盘输入选票号码，统计各候选人的得票数。说明：每张选票只有一个号码，有效票编号只能是01~20，否则作废票处理；当输入-1时，结束统计。
建议用读文本文件的方式，现在很少有软件用弹出输入框了。
vb.net索引超出了数组界限 求大神!
超过了数组界限，索引值不能大于实际数据数量
vb.net中"索引超出了数组界限"
If varray(i) > min() Then 错了，应该是 > max Then 你写成 min()就会误调用 min() 函数，但是没有参数，结果执行 min() 中的 min = varray(0) 时就会产生错误。
vb.net索引超出了数组界限
i、j两个变量在for循环结束后数值都是6，所以你的a(i,j)=a(6,6)，但是你定义是Dim a%(5, 5)，所以才会提醒“索引超出了数组界限”的。没看明白你的TextBox1.text是来显示什么的？如果用来显示a(5,5)的直接写TextBox1.Text &= a(5, 5)就可以了呀 ...
一个vb.net数组越界的问题
当程序运行完For循环后，x的值已经变为5，所以a(x,0)即为a(5,0),该变量与你声明的a(4,1)也就是a(0 to 4, 0 to 1)比较，发现下标已经超限，也就是程序报出的错误：索引超出了数组界限。
VB.net程序不能生成窗口
错误提示是“索引超出了数组界限。”是Message="创建窗体时出错。有关详细信息，请参阅 Exception.InnerException。错误为: 索引超出了数组界限。"设置的，不能代表真实的问题，实际上程序能运行但可能程序要用到内存硬盘、CPU序号等因素，不把整个程序拿出来很难解答 ...
算术运算导致溢出 vb.net
Do bs = bst.ReadBytes(aLength) Console.WriteLine(bs.Length) Loop Until bs.Length < aLength bst.Close()文件读到最后一块总会小于指定长度的，你的代码先定义数组长度，然后再读取，这样最后读取的一块二进制数组必然有一部分无效的。
vb.net中split函数数组越界的问题!
Dim sr As StreamReader = File.OpenText("E:\\1.txt") Dim input As String input = sr.ReadLine() While (Not input Is Nothing And i <= 16) title(i) = Trim(input) title2(i) = title(i).Replace(Space(3), vbCrLf) input = sr.ReadLine() i = i + ...
索引超出数组界限
把1改成0就行了 read是从0开始的
VB中实时错误9:“下标越界”是什么意思?
意思是：没有给数组分配空间。造成的原因：引用了不存在的数组元素.下标可能比下标范围大或小，或是在应用程序中这一边的数组没有指定范围。检查数组的声明以确认其上界和下界。若使用的是重新指定范围的数组，应使用 UBound 和 LBound 函数来决定数组访问。如果索引指定为变量，应检查变量名的拼写。声明...
vb.net中“索引超出了数组界限”是怎么回事
你在 max 函数中的这句 If varray(i) > min() Then 错了，应该是 > max Then 你写成 min()就会误调用 min() 函数，但是没有参数，结果执行 min() 中的 min = varray(0) 时就会产生错误。
