各位朋友,请问谁能帮我用控制台编一个能倒着输出一串字符串的程序/

如:输入:Student
输出:tnedutS
谢谢了,帮忙看一下哈!

num = "Student"
Dim a
ReDim a(Len(num))
For i = 0 To Len(num) - 1
a(i) = Mid(num, i + 1, 1)
Next

for i=len(num)-1 to 0
s=s&a(i)
msgbox s
next

[此贴子已经被作者于2006-3-30 10:12:40编辑过]

不知道能不能实现

递规

写代码好不好啊
我现在还是VB白痴呢

Dim num ,s as string
dim i,j as Integer
num="Student"
dim a(len(num)) as string
for i=1 to len(num)
a(i-1)=mid(num,i,1)
next i
for j=len(num) to 1 step -1
s=s & a(j-1)
next j
msgbox s

对不起,我没讲清,我是想问,用一维数组怎么搞,这个Mid简单,我就是想看用数组怎么搞,帮帮哈,谢谢了!

num = "Student"
Dim a
ReDim a(Len(num))
For i = 0 To Len(num) - 1
a(i) = Mid(num, i + 1, 1)
Next

for i=len(num)-1 to 0
s=s&a(i)
msgbox s
next

这个方法就是一唯数组！~

THANKS!