VB中定义数组的起始下标默认从0开始.用Option Base 1语句将数组默认起始下标设置为 1.
(1)不使用Optioan Base 语句,数组起始下标默认为 0
Option?Explicit
'?没有用?Option?Base?语句,数组下标从0开始
'?所以呢,数组?a?包含了?11?个元素
Dim?a(10)?As?Integer
Private?Sub?Form_Load()
Dim?i?As?Integer
For?i?=?0?To?10
a(i)?=?i
Next
End?Sub
Option?Base?1
'?使用了?Option?Base?1语句,数组下标从1开始
'?所以呢,数组?a?包含了?10?个元素
Private?Sub?Form_Load()?
Dim?i?As?Integer?
For?i?=?1?To?10?'如果?i=0,则会出现"下标越界"错误!
a(i)?=?i?
在VB里,"平均分"(pingjunfen), 这是数组的调用方法,当然会报错了
这样改吧:
Dim xingming As String
Dim yuwen As Short
Dim shuxue As Short
Dim yingyu As Short
Dim zonghe As Short
Dim pingjunfen As Short
xingming = InputBox("输入姓名", "输入名字吧")
yuwen = InputBox("输入语文成绩", vbOKOnly)
shuxue = InputBox("输入数学成绩", vbOKOnly)
yingyu = InputBox("输入英语成绩", vbOKOnly)
zonghe = yuwen + shuxue + yingyu
MsgBox("平均分:" pingjunfen, [vbOKOnly])
数组中的第一个元素的下标称为下界,最后一个元素的下标称为上界,在VB.NET中,为了和其他语言更加易于协同操作,数组的下界均设定为0,不允许声明一个下界为1的数组,所以呢Option Base语句不再被VB.NET支持.
F(X)数据定义有问题.X此时为0.
解决方法:使用动态数组.
REDIM F(x) '重新定义
先判断几个数组中个数最大的一个作为循环次数.
然后每建第一行,把每个数组第0个数值依次输出
然后建第二行,把每个数组第1个数值依次输出
依次类推完成循环.
在循环中,如果当前循环寄存器大于某个数组的下限值,输出"null"
以上就是土嘎嘎小编为大家整理的vb.net数组下限相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!