关于Visual Basic 的！

来源：百度知道 编辑：UC知道 时间：2024/07/03 01:29:57
请问这2道题目怎么做？ 1.把一个有偶数的文本框中内容从头至中间依次各取字符，组成一个新的字符串Str2,并输出如；Strl="123456"则str2="162534".
2.随即产生一个三位正整数，然后逆序输出，产生的数与逆序的同时输出。
谢谢大家帮忙解答!!

1.递归思想
function GetStr2(str1 as string,str2 as string)
if len(str1)=0 then
return str2
end if
if len(str1)=1 then
return str2+str1
end if
str2=str2+left(str1,1)
str2=str2+right(str1,1)
return str2+GetStr2(mid(str1,2,len(str1)-1),str2)这里用递归
end

2
funtion RanRev()
randomize(time)
dim n as integer
n=int(rnd*900+100)
dim n2 as integer
n2=n mod 10+int(n/10)mod 10+int(n/100) mod 10
用你喜欢的方式输出n1,n2
end

好久没用basic语言了，有点生疏了