谢谢！
请再帮看下这个哪里错了？

Private Const M = "2,3,4,5,6,7"
Private Sub Command1_Click()

k = M(2)
Text1.Text = k
End Sub


k=m(2)这句不能通过

[此贴子已经被作者于2007-6-5 22:59:31编辑过]

你那个叫数组？
Private Const M = "2,3,4,5,6,7"
Private Sub Command1_Click()
private STRS1() as string,K as long
strs1=Split(m,",")
k = val(strs1(1))
Text1.Text = k
End Sub

[此贴子已经被作者于2007-6-5 23:12:38编辑过]

刚刚忘记改你的那个“数组”名了。你把5楼的代码再试下。

可以了！！！！
太感谢你了！

不过那个private应该是dim
再次谢谢你。