UC知道VB程序设计题!!!!
来源：百度知道 编辑：UC知道 时间：2024/06/27 05:12:47
Private Sub Command1_click()
Const n=6
Form1.Cls
For i=1 To n
xx(i)=i*i
Next i
call fchang(xx(),n)
For i= 1To n
Form1.Print xx(i),
Next i
End Sub
Sub fchang(a()As Integer,m As Integer)
For i = 1To m/2
t=a(i)
a(i)=a(m-i+1) ' ①
a(m-i+1)=t '②
Next i
End Sub
(1)写出运行程序后的Form1上的输出结果
（2）写出将标记有①和②的两条语句对调后的结果
本人是初学者，请写过程，尽量详细
第（2）题的解释希望详细易懂，因为我对第2小题一点都不理解
我要的是为什么 不是输一下是什么就是什么 这个我也知道
我要的就是在不输电脑的时候用自己的脑子算出来是什么 还要过程 懂了没啊 1楼的
Const n=6
Form1.Cls
For i=1 To n
xx(i)=i*i
Next i
call fchang(xx(),n)
For i= 1To n
Form1.Print xx(i),
Next i
End Sub
Sub fchang(a()As Integer,m As Integer)
For i = 1To m/2
t=a(i)
a(i)=a(m-i+1) ' ①
a(m-i+1)=t '②
Next i
End Sub
(1)写出运行程序后的Form1上的输出结果
（2）写出将标记有①和②的两条语句对调后的结果
本人是初学者，请写过程，尽量详细
第（2）题的解释希望详细易懂，因为我对第2小题一点都不理解
我要的是为什么 不是输一下是什么就是什么 这个我也知道
我要的就是在不输电脑的时候用自己的脑子算出来是什么 还要过程 懂了没啊 1楼的
你说的详细是什么程度不太清楚
第二题中
t=a(i)
a(i)=a(m-i+1) ' ①
a(m-i+1)=t '②
这一部分是在做变量互换,即将a(i)与a(m-i+1)的值,通过t来达到交换的目的
首先将a(i)的值给了t,将a(i)的值暂时放t里,
再将a(m-i+1)的值给a(i),这时就把a(m-i+1)的值给了a(i)
最后将放在T里的值给了a(m-i+1)
如果① ,②互换来,就不能达到此效果,你按我的方法走一下就知道了.
"好比有一瓶洒(相当于a(i))和一瓶酱油(相当于a(m-i+1)),两个要交换瓶子.
这就需要一个空瓶(相当于t的作用了).
先把酒倒到空瓶里.再把酱油倒到酒瓶.再把酒倒到酱油瓶里面
这就是t的作用了"
""内为引用,不过比较经典就给你放过来了,希望能帮你理解
晕,你在程序里输出一下,不就什么都看到了啊