Question

vb:判断第几个textbox为空,并返回该数值

Private Sub Command1_Click()
For i = 1 To 6
If Len(TxtAb(i).Text) = 0 Then
TxtBc(1).Text = i
Else
TxtBc(1).Text = 6
End If
Next i
End Sub
这么写有什么问题？

Answer 1

问题在于不论txtab(i)是否为空，txtbc(1)都会改变，因此无法正确返回哪个textbox是空的。应改为
Private Sub Command1_Click()
For i = 1 To 6
If Len(TxtAb(i).Text) = 0 Then exit for
Next
TxtBc(1).Text =i
End Sub

textbc(1)显示第一个空textbox的index，如没有空的，则显示7

Answer 2

要使用 trim()