菜鸟捉虫(19)

Author: Date: 2001年 19期

#1?牐牭?17期“菜鸟捉虫”正确答案：
　　?牐牰樯骱螅谑褂们胺峙淠诖婵占洌诘谝桓鲅非凹由蟁eDim a（Value）即通过编译；在往下的双循环中，主循环中的Form1.CurrentY = PY应放在子循环中的打印之前（因为荧屏打印会自动换行）。程序如下：
　　?牐燩rivate Sub Command1_Click（）?煟?
　　?牐牎?
　　?牐營f Val（Text1.Text）< 2 Or Val（Text1.Text）> 0 Then
　　?牐?    MsgBox "请输入2以上的正整数"
　　?牐燛xit Sub
　　?牐燛nd If
　　?牐燫eDim a（Value）＇// 无此句，错误1处??
　　?牐燜or i = 0 To Value
　　?牐牎?
　　?牐燜or j = 1 To Value + 1
　　?牐燩Y = PY - 200
　　?牐燣 = L + 150
　　?牐牐? Form1.CurrentY = PY ＇//原错误2处
　　?牐燢 = K + 100
　　?牐燜or i = 0 To b*300 Step 300
　　?牐燜orm1.CurrentX = K + L + i
　　?牐燜orm1.CurrentY = PY ＇//荧屏打印定位Y座标应在这儿
　　?牐牎?
　　?牐燛nd Sub
　　#1?牐犚韵率堑? 17 期“菜鸟捉虫”幸运读者名单（奖品为《电脑报配套光盘》2001年第5期）
　　?牐牶幽?     张成东    天津    张奎英
　　?牐犐蕉?     彭  雷    上海    沈晓鸣
　　#1?牐牨酒谔饽浚?
　　?牐犌蟠?10个数中任选5个数出来的组合，但在运行程序后，却得到错误的结果。请找出其中的错误（注：要求用递归调用）。
　　?牐牨境绦蛴幸桓鯟ommandButton和一个TextBox控件，程序如下：
　　?牐燩rivate Sub Command1_Click（）?煟?
　　?牐燚im a As Long， b As Long
　　?牐燚im Answer As Long
　　?牐燼 = 10
　　?牐燽 = 5
　　?牐燗nswer = Recursion（a，b）??
　　?牐燭ext1.Text = Answer
　　?牐燛nd Sub
　　?牐燩rivate Function Recursion（ByVal ValNum As Integer，ByVal Value As Integer）As Long
　　?牐營f Value >= 1 Then Recursion = Recursion *Recursion（ValNum-1，Value-1）??
　　?牐燛nd Function