Question

vb问题 请问给位前辈们 如何把数组中的每一个数字显示在一个label里

也就是我定义了
一个文本框text1，label控件组label（0）-label（9)
Dim a() As String
Dim eenum As String
text1.text="0123456789"
eenum =text1.text
'ReDim a(Len(eenum)) As String
'For i = 1 To Len(eenum)
'a(i) = Mid(eenum, i, 1)
Next
上面我光把每个数字读出来，可是如何吧这些数字，分别代入相应的label中

Answer 1

Dim eenum As String
text1.text="0123456789"
eenum =text1.text
For i = 1 To Len(eenum)
Label(i -1).Caption = Mid(eenum, i, 1)
Next

Answer 2

label(i-1).caption=a(i)
这行放到next前面

Answer 3

你数组在哪?text1.text的吗??这个是文本啊,就算放进string() 组中也只是一维数组却只有一个无素.这样的数组有什么用,还不如只接取这个字窜!
dim countTextLength as integer
countTextLenght=text1.text.length
dim i as integer
for i=0 to countTextLength
.....
next