菜鸟捉虫(21)

2001年第21期

第19期“菜鸟捉虫”正确答案：
　　 由于是求从10个数中任选5个数出来的组合（程序中用的是从10～6的数相乘，即展开式为：10×9×8×7×6）。由于要求采用递归调用，在递归函数中必须要有返回值的记录（当然，递归函数的编写方法不止这一种），而此程序的递归调用部分没有起到相应的作用，所以，错误都出递归函数Recursion中，共有3处。修改后的程序如下：
　　 Private Function Recursion（ByVal ValNum As Integer，ByVal Value As Integer） As Long
　　 Recursion = ValNum ＇//错误1（无此行）
　　 Value = Value - 1 ＇//错误2（无此行）
　　 错误3 原为If Value >= 1 Then Recursion = Recursion*Recursion（ValNum - 1， Value - 1）
　　 If Value >= 1 Then Recursion = Recursion*Recursion（ValNum - 1， Value）
　　 End Function
　　 以下是第 19 期“菜鸟捉虫”幸运读者名单（奖品为《电脑报配套光盘》2001年第6期）
　　 重庆 金胜华 上海 陈逸凡
　　 天津 王连成 天津 郑海龙
　　 本期题目：
　　 现有一程序，其功能是做除法运算。但运行程序，却得到意外的结果。请找出其中的错误。程序中含有一个CommandButton和三个TextBox 控件，其中Text1为除数输入框，Text2为被除数输入框，答案在Text3中显视。
　　 private sub command1_click
　　 dim A as Integer，B as Integer，Result as Integer
　　 on error goto Loop1
　　 Begin:
　　 A=text1.text
　　 B=text2.text
　　 result=A/B
　　 text3.text=result
　　 end sub
　　 private sub ErrorFunc
　　 Loop1
　　 msgbox "除数不能为零"
　　 resume Begin
　　 end sub
　　 （为便于寄送奖品，请参加“捉虫”的读者附上真实姓名和详细通讯地址）