精通递归程序设计(VBA)--写给非科班VBA爱好者

liu-aguang · 发表于 2018-5-23 09:44

本帖最后由 liu-aguang 于 2018-5-23 09:47 编辑

捕获.PNG

zpy2 · 发表于 2018-5-23 12:35

<html>
<head>
<meta charset="utf-8">
<title>作业</title>
</head>
<body>
<a href="http://club.excelhome.net/forum.php?mod=viewthread&tid=1415332&extra=&mobile=2">原文精通递归程序设计(VBA)--写给非科班VBA爱好者</a>
<h3>练习1：求1+2+3+…+n的值。</h3>
<textarea name="sheet1" id="sheet1" cols="40" rows="5">
1,2,3</textarea><br>
<input type=button id=calculate value=计算 onclick="calculate()">
<div id=result>
<div>
</body>
<script type="text/javascript">
var output="";
function calculate(){

printDemo();
}
function printf(a, first, last,sum){
sum=parseInt(a[first])+sum;
output+="第"+first+"次调用子函数结果";
output+=sum;//输出调试
output+="<br>";
if (first < last){
   printf(a, first + 1, last,sum);

}else{

      output+="最终结果是:"+sum;
      document.getElementById("result").innerHTML=output;

}
return sum;
}
function printDemo(){
  //  a = Array(1, 2, 3, 4)
  output="";
var  a=document.getElementById("sheet1").value.split(",");
  // Call printf(a, LBound(a), UBound(a))
  printf(a,0,a.length-1,0);

}
printDemo();
</script>
<html>

zpy2 · 发表于 2018-5-23 14:47

<html>
<head>
<meta charset="utf-8">
<title>作业2用折半法查找。类似于indexof</title>
</head>
<body>
<a href="http://club.excelhome.net/forum.php?mod=viewthread&tid=1415332&extra=&mobile=2">原文精通递归程序设计(VBA)--写给非科班VBA爱好者</a>
<h3>练习2: 在一个有序的整数数组中，查找是否存在元素X，若存在返回其索引编号，若不存在返回-1。其解法可用折半查找法：取数组中间值与X比较，若相等则返回；若中间值小于X，则继续对数值较大的一侧取中间值比较。如此反复进行。请用递归法写出代码。
用折半法查找。类似于indexof.发现sort数值也是按文本排序的。折半查找大数有优势
</h3>
<textarea name="sheet1" id="sheet1" cols="40" rows="5">
alert,boss,1,2,31,11,ok</textarea><br>数组必须是有序数组按文本排序!
<br>
<input type=text id=find value=boss><br>
<input type=button id=calculate value=查找 onclick="calculate()">
<div id=result>
<div>
</body>
<script type="text/javascript">
var output="";
var k=0;
function calculate(){

printDemo();
}
function printf(a, first, last,find){

var mid=Math.floor((first+last)/2)
output+="第"+k+"次调用子函数结果";
k++;
output+=mid;//输出调试
output+="<br>";
if(first==last) {
      output+="最终结果是:"+mid;
      document.getElementById("result").innerHTML=output;

return mid;//最后一个没有找到

}

if (find==a[mid]){//找到

      output+="最终结果是:"+mid;
      document.getElementById("result").innerHTML=output;
return mid;
}
if(find<a[mid]){
last=mid-1;
}else{
first=mid+1;
}
printf(a,first,last,find);

}
function printDemo(){
// a = Array(1, 2,3,14)
  output="";
var  a=document.getElementById("sheet1").value.split(",");
a=a.sort();
document.getElementById("sheet1").value=a.join(",");
alert('排序后'+a);
  // Call printf(a, LBound(a), UBound(a))
  var find=document.getElementById('find').value;
//  alert(find)
var l=  printf(a,0,a.length-1,find);

}
printDemo();
</script>
<html>

liu-aguang · 发表于 2018-5-23 15:31

zpy2 发表于 2018-5-23 14:47
作业2用折半法查找。类似于indexof

是网站出问题了?

zpy2 · 发表于 2018-5-23 15:43

我做的作业啊，请老师修改，JavaScript的。

liu-aguang · 发表于 2018-5-23 16:17

zpy2 发表于 2018-5-23 14:47
作业2用折半法查找。类似于indexof

写递归代码最好能养成一个好习惯: 不要在代码内对参数重新赋值. 即不要把它作双重用途. 特别是在一些复杂环境下容易犯糊涂而出错. 若有某种需求,可将参数值赋给另一个变量.

zhouxiao · 发表于 2018-5-24 13:58

请老师给解释一下,这段代码没理解过来.
If first = last Then
      maxA = a(first)
当first = last时,first = 8,此时,a(8)不应该是1嘛?为什么会是a(0)对应的数字8呢?

Function maxA(a, first, last)  ‘求解数组a下标first上标last之间元素的最大值maxA
Dim temp
If first = last Then
      maxA = a(first)
Else
      temp = maxA(a, first + 1, last)
      maxA = IIf(a(fisrt) > temp, a(first), temp)
End If
End Function
Sub DemoMax()
a = Array(8, 9, 7, 2, 5, 9, 10, 21, 1)
MsgBox maxA(a, LBound(a), UBound(a))
End Sub

zhangcheng6688 · 发表于 2018-5-24 14:24

本帖最后由 zhangcheng6688 于 2018-5-24 14:46 编辑

留底，以后慢慢欣赏研究，以前在学校最难理解的就是递归了

liu-aguang · 发表于 2018-5-24 16:03

zhouxiao 发表于 2018-5-24 13:58
请老师给解释一下,这段代码没理解过来.
If first = last Then
maxA = a(first)

你需要再回看第1页的内容,了解递归算法. 针对本题,first=last时,是终止条件: 它把a(first)这个值返回到它的上层(倒数第2层), 不要理解成是最后返回的结果

zhouxiao · 发表于 2018-5-24 17:23

liu-aguang 发表于 2018-5-24 16:03
你需要再回看第1页的内容,了解递归算法. 针对本题,first=last时,是终止条件: 它把a(first)这个值返回到它 ...

老师这样一说,更晕了.
如老师说言,调试很费解.
其实我想说,这么多年,有些代码刚开始理解不了,调试过后,能理解了.
但是递归是一直没有理解了,不知道怎么调试才能理解它.

		自动登录	找回密码
密码			免费注册

[原创] 精通递归程序设计(VBA)--写给非科班VBA爱好者

点评

评分

评分

评分

评分

评分