高校问答故人今何在漫画:哥哥姐姐帮忙解释一句vb代码
来源：百度文库 编辑：高校问答 时间：2024/04/29 03:25:35
Option Base 1
Dim score As Variant
Private Sub Form_Load()
Label1.Caption = "单击“查找”按钮开始查找最高分和最低分"
score = Array(89, 96, 81, 67, 79, 90, 63, 85, 95, 83)
End Sub
Private Sub command1_click()
Dim max As Integer, min As Integer
max = score(1) '设定初值
min = score(1)
For i = 2 To 10
If max < score(i) Then '找最高分
max = score(i)
End If
If min > score(i) Then '找最低分
min = score(i)
End If
Next i
'Chr(13)起换行作用
Label1.Caption = "最高分：" + Str(max) + _
Chr(13) + "最低分：" + Str(min)
End Sub
最上面的option base1在这里起到什么作用 谢谢
Dim score As Variant
Private Sub Form_Load()
Label1.Caption = "单击“查找”按钮开始查找最高分和最低分"
score = Array(89, 96, 81, 67, 79, 90, 63, 85, 95, 83)
End Sub
Private Sub command1_click()
Dim max As Integer, min As Integer
max = score(1) '设定初值
min = score(1)
For i = 2 To 10
If max < score(i) Then '找最高分
max = score(i)
End If
If min > score(i) Then '找最低分
min = score(i)
End If
Next i
'Chr(13)起换行作用
Label1.Caption = "最高分：" + Str(max) + _
Chr(13) + "最低分：" + Str(min)
End Sub
最上面的option base1在这里起到什么作用 谢谢
option base:在模块级别中使用，用来声明数组下标的缺省下界
option base后面只能是0或者1
由于默认是0 所以是0的时候可以不用option base语句
只有当你想Option Base 语句来取代数组下标的缺省值 0时才有必要用option base 1而且只能是option base 1而不能是 2 3 4。。。
但是这个语句不能限定TO语句，举个例子吧：
option base 1
dim a(3),b(0 to 3)
a(3)的下界就是1 而b(0 to 3)的下界是0
用来声明数组下标的下界，通常缺省值是1；用option base 声明之后 ，就可以由声明的基值开始上升了。