Question

将流程图转化为VB代码

将流程图转化为VB代码对分查找算法

Answer 1

i=1
j=n
flag="N"
do while i<=j and flag="N"
m=(i+j)/2
if d(m)=key then flag="Y" else if d(m)<key then i=m+1 else j=m-1
loop
msgbox iif(flag="Y",m,0)

Answer 2

86 /*循环算法计算小数字的阶乘, 0 <= n < 10 */
87 int CalcFactorial(int n)
88 {
89 int result = 1;
90
91 int i;
92 for(i = 1; i <= n; i++)
93 {
94 result = result * i;
95 }
96
97 return result;