vb 输入任意长度的字符串,要求将字符顺序倒置。如输入“ABCD”,则倒置后为“DCBA”。要
在吗?能不能帮个忙输入任意长度的字符串,要求将字符顺序倒置。如输入“ABCD”,则倒置后为“DCBA”。要求源串和倒置后的目标串都输出。(要求用数组来实现)...
在吗?能不能帮个忙
输入任意长度的字符串,要求将字符顺序倒置。如输入“ABCD”,则倒置后为“DCBA”。要求源串和倒置后的目标串都输出。(要求用数组来实现) 展开
输入任意长度的字符串,要求将字符顺序倒置。如输入“ABCD”,则倒置后为“DCBA”。要求源串和倒置后的目标串都输出。(要求用数组来实现) 展开
1个回答
展开全部
估计是老师出的让你熟悉数组使用的题目....
vb里面内置一个 StrReverse 函数,可以直接把字符串顺序倒置....
Private Sub Form_Load()
Dim strYuan As String
Dim arr() As String
Dim strDao As String
Dim i As Long
strYuan = "ABCDE"
ReDim arr(Len(strYuan) - 1)
For i = 1 To Len(strYuan)
arr(i - 1) = Mid$(strYuan, i, 1)
Next
For i = UBound(arr) To 0 Step -1
strDao = strDao & arr(i)
Next
Me.Show
Print "原字符串:" & strYuan
Print "倒置符串:" & strDao
MsgBox StrReverse(strYuan)
End Sub
vb里面内置一个 StrReverse 函数,可以直接把字符串顺序倒置....
Private Sub Form_Load()
Dim strYuan As String
Dim arr() As String
Dim strDao As String
Dim i As Long
strYuan = "ABCDE"
ReDim arr(Len(strYuan) - 1)
For i = 1 To Len(strYuan)
arr(i - 1) = Mid$(strYuan, i, 1)
Next
For i = UBound(arr) To 0 Step -1
strDao = strDao & arr(i)
Next
Me.Show
Print "原字符串:" & strYuan
Print "倒置符串:" & strDao
MsgBox StrReverse(strYuan)
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询