vb 运行程序 第一行 第二行 以及 text1 中显示的内容分别是 ?求过程呢~~

PrivateSubCommand1_Click()DimsAsStrings="VISUAL"Text1.Text=fun1(s,Len(s))EndSubPrivat... Private Sub Command1_Click()
Dim s As String
s = "VISUAL"
Text1.Text = fun1(s,Len(s))
End Sub
Private Function fun1(s As String,L As Integer) As String
If L>1 Then fun1=fun1(s,L-1)
s = Right(s,1)&Left(s,L-1)&Mid(s,L,Len(s)-L)
fun1=s
Print fun1
End Function
展开
 我来答
suxingjiang
2013-08-04 · TA获得超过104个赞
知道小有建树答主
回答量:186
采纳率:0%
帮助的人:107万
展开全部
第一行:LVISUA
第二行:ALVISU
text1内容:VISUAL
程序就是把VISUAL的字母从后面一个一个的放到前面去!

你们上面讨论的是错误的。答案是这个!
函数调用自己这是递归,数学上用的很多,比如阶乘……。
‘------------------------
Private Function fun1(s As String,L As Integer) As String
If L>1 Then fun1=fun1(s,L-1)
s = Right(s,1)&Left(s,L-1)&Mid(s,L,Len(s)-L)
fun1=s
Print fun1
End Function
函数的运行流程 储运天天 说得差不多。
因为有 If L>1 Then fun1=fun1(s,L-1) 这句在函数最开始所以函数下面的语句只有到L<1时才有机会运行。
所以我们可以这样看。当L<1时既L=1的时候函数不在调用本函数了,而L的值是从6到1。
'-------------------------------------------------------------

因为是递归的,所以下面的语句L的值是从1到6,并且函数fun1的S参数是传递地址所以。

s = Right(s,1)&Left(s,L-1)&Mid(s,L,Len(s)-L)
fun1=s
Print fun1

当L=1时;S=LVISUA
L=2时;S=ALVISU

L=3 ;S=UALVIS
L=4 ; S=SUALVI
L=5 ; S=ISUALV
L=6 ; S=VISUAL

这样就得到所有的答案了
窗口的第一行:LVISUA
第二行:ALVISU
而Text1里的值是最后的S的值所以Text1里显示:VISUAL
储运天天
2013-08-04 · TA获得超过204个赞
知道小有建树答主
回答量:330
采纳率:100%
帮助的人:230万
展开全部
本人经过上机验证。
窗体第一行:lvisua
窗体第二行:ualvisu
text1.text=suualvualvilvisissuual
PS:调用fun1函数:初始值len(s)=6,既L=6,由于if语句相当于只要L>1,那么fun1=fun(s,5),这时,结束if循环,同时结束fun1过程,保存L=5的值,然后继续fun1函数过程保存L的值。这是函数嵌套函数。(定义函数,只要函数名=某一个值或者表达式的时候,就结束函数定义过程。在这儿,fun1=fun1(,l-1)就是结束函数定义语句。然后,由于这儿的fun1函数是嵌套本身函数,它要一直循环,直到不能继续嵌套,既:L=1的时候。这就是这道题的陷阱)
当函数完成所有定义,L=1,2,3,4,5,6(函数定义时,每一次嵌套都保留了L的值)。
因此,总共执行print fun1 6次。在函数执行过程中,s的值每次都赋给fun1,相当于每次都使得s=fun。即,当L=1,s=lvisua;当L=2,s=当L=2,s=lvisua条件下的s。依次类推。。。
望采纳,本人手机党。。。打字蛋疼。。。
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
ngc00007
2013-08-04 · 超过16用户采纳过TA的回答
知道答主
回答量:49
采纳率:0%
帮助的人:21万
展开全部
第9语句加上后第7语句似乎废了,text1里应该是LVISUA
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式