vb简单注册登陆

Dim t As Integer Dim str1 As String Dim str2 As String Dim str3 As String Dim str As String Dim pathing1 As String Dim pathing2 As String Private Sub Combo1_Click() For i = 0 To Combo1.ListCount - 1 If Len(Combo1.List(i)) >= Len(Combo1.Text) Then If UCase(Left(Combo1.List(i), Len(Combo1.Text))