现在外贸做什么好:vb6.0在不知道字符串长度的情况下,怎样把字符串的各个字符从右到左各取一次

来源:百度文库 编辑:高校问答 时间:2024/04/30 03:18:28

Dim A As String, I As Integer, J As Integer
A = "百度知道ABCDEFG"
'就不增加判断字符串是否零长度的内容了
For I = Len(A) To 1 Step -1
Debug.Print Mid(A,I,1)
Next

不可能不知道字符串长度的,用LEN函数测一下字符长度 在用 Left、Right 函数就可以

要是你只想把字符串翻转过来,可以这样做:
a="我们都是中国人"
a=strreverse(a)
msgbox a