vb內UBound的問題

Question

整段如下: For i = 1 To Len(Text2)
If UBound(Split(Text2, Mid(Text2, i, 1))) > 1 Then
MsgBox \"輸入數字有重複,請重新輸入其他數字\"
Text2 = \"\"
Exit Sub
End If
Next
我想問If UBound(Split(Text2, Mid(Text2, i, 1))) > 1 Then這句是在做啥?
UBound跟Split又是什麼?

麻煩完整回答的送20點~

Answer 1

Mid(Text2, i, 1) →Text2裡的第i個字Split函數:傳回一個陳列索引從零開始的一維陣列Split(Text2, Mid(Text2, i, 1))→利用Text2裡的第i個字作為分隔符號來切割Text2UBound函數:表示指定陣列某維最大可使用的陣列索引UBound(Split(Text2, Mid(Text2, i, 1)))→ 經切割Text2後,被切割成幾份舉個例:譬如說Text2=123435當i=2時 Mid(123435, i, 1)=2;(123435這字串第2個字是2)Split(123435, 2)→123435被分割成 1 跟 3435故Ubound(Split(123435, 1))=1(陣列0=1,陣列1=3435)當i=3時 Mid(123435, i, 1)=3;(123435這字串第3個字是3)Split(123435, 3)→123435被分割成 12 跟 4 跟 5故Ubound(Split(123435, 1))=2(陣列0=12,陣列1=4,陣列2=5)此時就表示3這個字有重複了!!瞭了嗎?