杭州交通信息网无风险投资与理财风险:vb的问题~~~~~~~~~
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/13 02:06:33
Private Sub Command1_Click()
Dim a, s As String, i As Integer
a = Array(2, 8, 5, 6, 4, 7, 9, 1)
s = ""
For i = 1 To UBound(a)
s = s + Str(a(i) * 2) + vbCrLf
Next i
Text1 = s
End Sub
这段代码执行的结果为什么是下面这样的呢
4
16
10
12
8
14
18
2
谁能帮我解释一下??????????
谢谢
Dim a, s As String, i As Integer
a = Array(2, 8, 5, 6, 4, 7, 9, 1)
s = ""
For i = 1 To UBound(a)
s = s + Str(a(i) * 2) + vbCrLf
Next i
Text1 = s
End Sub
这段代码执行的结果为什么是下面这样的呢
4
16
10
12
8
14
18
2
谁能帮我解释一下??????????
谢谢
你知道UBound()函数的功能是什么吗?
调用UBound()函数会返回一下长整型的数组维数的最大下标
如上题调用UBound()函数应该返回的是8
如果还不明白就看下MSDN