菜鸟捉虫(19)

  
2001年 19期

#1　　第17期“菜鸟捉虫”正确答案：
　　　　动态数组声明后，要在使用前分配内存空间，在第一个循环前加上ReDim a（Value）即通过编译；在往下的双循环中，主循环中的Form1.CurrentY = PY应放在子循环中的打印之前（因为荧屏打印会自动换行）。程序如下：
　　　　Private Sub Command1_Click（）　
　　　　…
　　　　If Val（Text1.Text）< 2 Or Val（Text1.Text）> 0 Then
　　　　    MsgBox "请输入2以上的正整数"
　　　　Exit Sub
　　　　End If
　　　　ReDim a（Value）＇// 无此句，错误1处　
　　　　For i = 0 To Value
　　　　…
　　　　For j = 1 To Value + 1
　　　　PY = PY - 200
　　　　L = L + 150
　　　　＇ Form1.CurrentY = PY ＇//原错误2处
　　　　K = K + 100
　　　　For i = 0 To b*300 Step 300
　　　　Form1.CurrentX = K + L + i
　　　　Form1.CurrentY = PY ＇//荧屏打印定位Y座标应在这儿
　　　　…
　　　　End Sub
　　#1　　以下是第 17 期“菜鸟捉虫”幸运读者名单（奖品为《电脑报配套光盘》2001年第5期）
　　　　河南     张成东    天津    张奎英
　　　　山东     彭  雷    上海    沈晓鸣
　　#1　　本期题目：
　　　　求从10个数中任选5个数出来的组合，但在运行程序后，却得到错误的结果。请找出其中的错误（注：要求用递归调用）。
　　　　本程序有一个CommandButton和一个TextBox控件，程序如下：
　　　　Private Sub Command1_Click（）　
　　　　Dim a As Long， b As Long
　　　　Dim Answer As Long
　　　　a = 10
　　　　b = 5
　　　　Answer = Recursion（a，b）　
　　　　Text1.Text = Answer
　　　　End Sub
　　　　Private Function Recursion（ByVal ValNum As Integer，ByVal Value As Integer）As Long
　　　　If Value >= 1 Then Recursion = Recursion *Recursion（ValNum-1，Value-1）　
　　　　End Function 
 