馬上要哩= = 就是如何將一推數變反方向出現?

Question

例如:inputbox=>字串
(abcd)
最後print出來是dcba
拜託大大 幫忙想= = \"
是用vb唷>M<
今晚我就要哩!!你寫對20點送你

Answer 1

主要是利用 MID()函數處理

Private Sub Form_Activate()
Dim str As String
Dim i As Integer
Dim buffer As String

str = InputBox("請輸入一串文字", "請輸入文字", "")
buffer = ""
For i = Len(str) To 1 Step -1
buffer = buffer & Mid(str, i, 1)
Next
Debug.Print buffer

End Sub

若看不懂PO我MAIL直接回覆

2006-08-11 00:23:19 補充：
有輸出了說那請修改For m = 0 To 5Print x(m)Next m為buffer=""For m = 0 To 5buffer=buffer & x(m)Next mmsgbox buffer或者輸出到除錯畫面For m = 0 To 5Debug.Print x(m)Next m

2006-08-11 00:50:51 補充：
W.J.S 果然是老手，這種函數都記得，利害，佩服！

Answer 2

'請愛用StrReverse函數Private Sub Command1_Click()    Dim S As String        S = InputBox("請輸入文字", , "abcd")    If S = "" Then Exit Sub    Print StrReverse(S)End SubStrReverse函數描述傳回一個字串，其中一個指定子字串的字元順序是反向的。語法StrReverse(string1)引數 string1 是一個字串，它的字元順序要被反向。如果 string1 是一個長度為零的字串 ("")，則傳回一個長度為零的字串。如果 string1 為 Null，則產生一個錯誤。