菜鸟捉虫(27)

  
2001年 27期

#1　　上期正确答案：
　　　　不难看出，程序使用的是冒泡排序，错误主要出现在递归函数func中。正确答案如下：
　　　　Dim MyArrav（）As Long
　　　　Dim Record As Long
　　　　Private Sub Command1_Click（）
　　　　…
　　　　Call Func（l）＇//错误1：由于数组的下标是以0开始的，所以第一个数永远不会被列人进行比较
　　　　的过程，应改为Call Func（0）
　　　　b=””
　　　　Por i=0 To Record -l
　　　　b= b & Sir（MyArray（i）） &”|”
　　　　Next i
　　　　…
　　　　End Sub
　　　　Private Sub Func（By Val f As Long）
　　　　…
　　　　For i=f To Record - 1
　　　　If a< MyArray（i） Then
　　　　a=My Array（i）
　　　　fig二True
　　　　b=i
　　　　exit for＇//错误2：导致了没有进行数组的扫描（搜寻本次的最大数），应去掉此行
　　　　End If
　　　　Next i
　　　　…
　　　　End sub
　　#1　　获奖名单：
　　　　浙江    朱启华    四川    刘  波
　　　　湖南    程  义    江苏    谢成功
　　　　黑龙江    李中华
　　　　以上幸运读者将获得电脑报最新出品的《电脑报配套光盘》杂志一套。
　　#1　　本期题目：
　　　　当程序启动时；要求窗体在显示出来的过程当中，从左往右拉开，产生动画效果。新建一工程，将Forml的ScaleMode属性设置为3-Pixel；再加人一个Timer控件，将Interval设置为50。以下为实现该功能的源代码，由于存在一些错误，无法完成这一动画效果，请将这些Bug找出来。
　　　　Private Sub Form_Load（）  ＇居中
　　　　Forml．Left=（Screen.Width -Forml．Scalewidth）/ 2
　　　　Forml．Top=（Screen．Height-Forml．ScaleHeight）/ 2
　　　　Forml.Width=50
　　　　End Sub
　　　　Private Sub Timerl_Timer（）
　　　　If Forml．Width＞=700 Then
　　　　Timerl．Enabled= False
　　　　End If
　　　　Forml．Width=Forml.Width+200
　　　　End Sub
　　
　　 
 