Question

请教vb中的array函数应用实例

我是一个vb初学者，请各位高手指点下我一个苯苯的问题：

今天自学了array函数，
大致的理解是：
返回一个包含数组的variant变量数据类型。

不晓得这个函数在实际应用中有什么用？能举个简单的例子吗？

比如，我学abs函数的时候，可以编一个简单的计算觉得值的小工具（虽然意义不是很大，呵呵）
Private Sub Command14_Click()
Text1 = Abs(Text1)
End Sub

array函数我还没有想到在什么场合下用，请多多指教。

Answer 1

呵呵,我来给你个例子吧..

比如你现在窗体上想建一个下拉框来实现选择月份..
那么你会怎么添加呢?

Private Sub Command1_Click()
Combo1.AddItem "一月"
Combo1.AddItem "二月"
Combo1.AddItem "三月"
Combo1.AddItem "四月"
Combo1.AddItem "五月"
'
'
'
Combo1.AddItem "十二月"
End Sub

呵呵, 很累吧..如果你刚好有一个数组里面存的是这些字符串,添加起来就会很方便的:
Private Sub Command2_Click()
a = Array("一月", "二月", "三月", "四月", "五月", "六月", "七月", "八月", "九月", "十月", "十一月", "十二月")
For i = 0 To UBound(a)
Combo1.AddItem a(i)
Next
Combo1.ListIndex = 0
End Sub

Answer 2

这个很难说了，还是理解下比较好，毕竟要用的时候要会用，不用到的时候不需要，呵呵

比如
a = Array(1, 2, 3, 4, 5)
MsgBox a(0)

那么返回值为1，a(1)的话返回值则为2