189 8069 5689
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
（2）用Optioan Base 1 语句，数组起始下标默认为 1
Option Explicit
Option Base 1
' 使用了 Option Base 1语句，数组下标从1开始
' 因此，数组 a 包含了 10 个元素
Dim a(10) As Integer
Private Sub Form_Load()
Dim i As Integer
For i = 1 To 10 '如果 i=0，则会出现“下标越界”错误！
a(i) = i
Next
End Sub
（3）在VB Option Base 语句中参数只能是 0 或 1，其他值是非法的。
在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
pingjunfen = zonghe / 3
MsgBox("平均分：" pingjunfen, [vbOKOnly])
数组中的第一个元素的下标称为下界，最后一个元素的下标称为上界，在VB．NET中，为了和其他语言更加易于协同操作，数组的下界均设定为0，不允许声明一个下界为1的数组，因此Option Base语句不再被VB．NET支持。
F(X)数据定义有问题。X此时为0。
解决方法：使用动态数组。
Dim F0, F1, F2, F3, F4, F() As Double 'F为动态数组
x = Val(TextBox2.Text)
REDIM F(x) '重新定义
先判断几个数组中个数最大的一个作为循环次数。
然后每建第一行，把每个数组第0个数值依次输出
然后建第二行，把每个数组第1个数值依次输出
依次类推完成循环。
在循环中，如果当前循环寄存器大于某个数组的下限值，输出“null”
1、点击VS工具。
2、打开后，新建一个Windows窗体应用程序。
3、新建完毕后，如图所示。
4、拖动一个按钮。
5、定义数组最常见的方法，如图示。
6、运行后，点击按钮，弹出提示正常。
7、定义数组第二种方法，属于动态的方法。
8、运行后，点击按钮，数组成功输出。