如何一次在combo中添加N多个下拉选项

目标：为了使三个combo每个下拉菜单都显示卡号 姓名 上机日期 上机时间 下机日期 下机时间 消费金额 余额

常规办法：

Comboname1.AddItem "卡号"
Comboname1.AddItem "姓名"
Comboname1.AddItem "上机日期"
Comboname1.AddItem "上机时间"
Comboname1.AddItem "下机日期"
Comboname2.AddItem "卡号"
.........

如果有N个combo需要相同的菜单甚是繁琐

新的办法：

Dim a() As String
Dim b() As String
Dim i As Integer
a = Split("卡号 姓名 上机日期 上机时间 下机日期 下机时间 消费金额 余额")
For i = 0 To 6
Comboname1.AddItem (a(i))
Comboname2.AddItem (a(i))
Comboname3.AddItem (a(i))
Next i

其中用到了SPlit函数 split翻译隔离
语法：Split(expression[,delimiter[,count[,compare]]])
expression 必需的。包含子字符串和分隔符的字符串表达式。
delimiter 可选的。用于识别子字符串界限的字符。默认是空格字符。
count 可选的。需被返回的子字符串的数目。-1 指示返回所有的子字符串。
compare
可选的。规定要使用的字符串比较类型。

可采用下列的值：

0 = vbBinaryCompare - 执行二进制比较。
1 = vbTextCompare - 执行文本比较。