11个textbox,依次输入的问题,请指教!

Question

11个textbox,在第一个textbox中,随便输入数值,然后点确定,第二个textbox中显现,第一个中textbox清除数值;然后再在第一个textbox中输入数值,点确定,然后在第三个textbox显现,第一个textbox清除数值,依次类推,并且保证如果在第一个textbox输入的数值和已经列到其他的textbox中的数值一样的话,报"重复,已经输入过此数值,请更换."实现以上效果,改如何写,谢谢大侠们!!

Answer 1

首先定义一个Text1用作输入,然后定义Text控件数组Text2(0~9),确定按钮Command1,重新开始按钮Command2.Private intTextIndex As Integer
Private Sub Command1_Click()
    Dim i As Integer
    For i=0 to intTextIndex
        If Text1.Text=Text2(i).Text Then
             MsgBox "重复,已经输入过此数值,请更换."
             Text1.Text=""
             Exit Sub
        End If
    Next
    Text2(intTextIndex).Text=Text1.Text
    intTextIndex=intTextIndex+1
    Text1.Text=""
End SubPrivate Sub Command2_Click()
    intTextIndex=0
    Text1.Text=""
End Sub

Answer 2

if text(9).text<>"" then

Answer 3

加上判断，读取页面上有多少个TEXT 的数组
应该就能解决

Answer 4

引用sulipeng007 兄的，
if intTextIndex=10 then

Answer 5

做个判断就行啊Private intTextIndex As Integer
Private Sub Command1_Click()
    Dim i As Integer
    For i=0 to intTextIndex
        If Text1.Text=Text2(i).Text Then
             MsgBox "重复,已经输入过此数值,请更换."
             Text1.Text=""
             Exit Sub
        End If
    Next
    If intTextIndex<10 Then
        Text2(intTextIndex).Text=Text1.Text
        intTextIndex=intTextIndex+1
        Text1.Text=""
    Else
        MsgBox "只能添加10项"'//怎么处理自己加就行
    EndIf
End SubPrivate Sub Command2_Click()
    intTextIndex=0
    Text1.Text=""
End Sub