[VB] 輸入”111”後按下按鈕便成”1.1.1”

Question

當我在 Text1 中輸入 "321" 或是 "aN7" 後
當我按下按鈕後
Text1 中的文字就會變成
"3.2.1" 與 "a.N.7"
(假設固定都輸入三個字，數字與英文)

請問 該如何設計呢 ^^?

抱歉再問一個

如果要改成
輸入 "123456"
輸出 "12-34-56"
呢?

很抱歉 因為我不知道這程式的語法 QQ
我試圖改後，他反而輸出
"12-23-34-45-56-6"
@@.....

Answer 1

'也可利用Format來做Private Sub Command1_Click()    If Len(Text1) Then       Text1 = Format(Text1, Replace(Space(Len(Text1) - 1), " ", "@."))    End IfEnd Sub

2006-09-17 19:27:31 補充：
Private Sub Command1_Click()Dim S$If Len(Text1) Then　　S = Format(Text1, Replace(Space(Len(Text1) \ 2), " ", "@@-"))　　Text1 = Left(S, Len(S) - 1)End IfEnd Sub

Answer 2

Private Sub Command1_Click()   For i = 1 To Len(Text1)      tmp = tmp & Mid(Text1, i, 1) & "."   Next   Text1 = Left(tmp, Len(tmp) - 1)End Sub

2006-09-18 09:01:37 補充：
Private Sub Command1_Click() For i = Len(Text1) To 1 Step -1 cnt = cnt + 1 tmp = Mid(Text1, i, 1) & tmp tmp = IIf(cnt Mod 2 = 0 And i 1, "-", "") & tmp Next Text1 = tmpEnd Sub

2006-09-18 09:02:21 補充：
tmp = IIf(cnt Mod 2 = 0 And i ＜＞1, "-", "") & tmp 符號被吃掉了 , 請改為半形