数组可以储存多个数据。然而只有一个数组名。所以需要下标加以区分。
而下标的上下界呢就是下标的范围。默认下界为0。
如: Dim A(1 to 5) as string
就是定义了数组A。 数组A包含5个元素。他的下标下界是1,上界是5。
当引用数组的时候必须指明是引用数组的哪个元素。也就是说要给出下标。
如:
A(2) = "AK47" '将数组A中的第二个元素赋值为 AK47
另外 对象集合 控件数组都有下标。其意义和数组差不多。都是区分各个元素的标识
数组的上标和下标用来说明数组的范围的,例如dim(1to10)那么1就是这个数组的上标,10是这个数的的下标,也可是叫做上界和下界
用 RichTextBox控件,(菜单 工程》部件》选 microsoft Rich Txtbox...) Private Sub Form_Load()
RichTextBox1.Font.Name = "Times New Roman"
RichTextBox1.Font.Size = 10
RichTextBox1.Text = "H2SO4"
'注释: Move the numbers down 2 points.
OffsetRichText RichTextBox1, 2, 1, 2 ' 字串中第二个设为上标
OffsetRichText RichTextBox1, 5, 1, -2 ' 字串中第5个设为下标
End Sub'设置上下标
Private Sub OffsetRichText(box As RichTextBox, start As Integer, length As Integer, offset As Integer)
'注释:box指RichTextBox控件;start指作为上下标的
'注释:字符的起始位置;length指上下标字符的长度;
'注释:offset指上标还是下标,大于0上标;小于0下标。
box.SelStart = start - 1
box.SelLength = length
box.SelFontSize = box.Font.Size - Abs(offset)
box.SelCharOffset = ScaleY(offset, vbPoints, vbTwips)
box.SelStart = 0
box.SelLength = 0
End Sub
用于说明数组范围的:
Dim a(2 to 10)
数组a的上标是2,下标是10