''1、将输入字符串“abcdef”输出为”fedcba” Private Sub Invert(ByVal xStr As String, yStr As String) Dim tempStr As String Dim I As Integer I = Len(xStr) Do While I >= 1 tempStr = tempStr + Mid(xStr, I, 1) I = I - 1 Loop yStr = tempStr End Sub P
← 上一条:vb练习题 下一条:有一段VB程序: Dim i As Inte →