今天老师布置一道VB改错题,小弟是彻底的小白懂VB的人过来帮帮忙,要是作业教不出,偶要倒霉了,偶们班的人都是编程小白,希望会的人帮忙找找错误,谢谢!!下面一段代码是选择程序代码,要更正里面的错误要求是:不能增加,删除任何语句,可调动语句位置.Private Sub Form_click() Dim a(10) As Single Randomize Print "排序前;" For i = 1 To 10 a(i) = 100 * Rnd(2) + 1 Next i outp a(), i For i = 10 To 1 Step -1 imax = i For j = i - 1 To 1 If a(j) > a(imax) Then imax = j Next j temp = a(i) a(i) = a(j) a(j) = temp Next i Print "排序后" Call outp(a, 10)End SubPrivate Sub outp(a() As Single, n As Integer) For k = 1 To n Print " "; Format(b(k), "###.##") Next k PrintEnd Sub

OK～我来看看～占二楼先！

我先说一下我看这段代码的感受：你是不是打错了？因为我个人感觉，不是紧紧将代码移位就能改对了，当然，我也不保证自己是对的，因为有一段时间没用VB了。我说说我看到的问题吧：outp a(), i '这句就不对，a是数组，没有数组指针的话，会出诸如数组X标越界等等的错误的 Call outp(a, 10) '这句也一样的错误 temp = a(i) a(i) = a(j) '这段应该是放到一个条件语句的后面的，我实在是忘了该放你这里的哪好了 a(j) = temp我没能完全帮你做好，但是希望帮到你了。希望有编程高手来看看，因为我主要还是搞网络的，这方面不是很强;P

排序有冒泡法，还有什么法来得？唉，知识不用就忘啊～加菲猫说的好啊：The more you learn, the more you know, The more you know, the more you forget. The more you forget, the less you know. So why bother to learn.

VB没怎么看过，感觉跟C差不多，我也是跟城川一样的问题，是不是楼主打错了？不过我编程没有城川学的深入，不明白outp是什么.........难道是跟C里一样的申明变量？记得排序好像还有希尔排序了吧........希望没记错......

唉，其实这些语言都是差不多的.........

楼主解释一下这是什么？outp a(), i

谢谢帮助,谢谢!!

不用谢，希望能帮上你

顶

只懂C VB的不会

好专业哦看不明白哦

up

up