精华内容
下载资源
问答
  • VB递归调用程序

    千次阅读 2019-03-02 14:20:58
    第一次调用,参数值为6,是偶数所再次调用fun过程,这次参数为6/2=3,是奇数,不再调用自身,接着执行下一句输出参数值即3,然后返回第一次调用过程中执行下一句输出第一次调用参数值,即6。 因此程序会输出3 6。...

    Private Sub Command1_Click()
      Dim x As Integer
      x=Val(InputBox(“请输入一个整数”))
      fun(x)
    End Sub
    Private Sub fun(x As Integer)
      If x Mod 2=0 Then fun(x / 2)
      Print x;
    End Sub
    问题:当输入6时,窗体如何显示?
    解析:fun过程是一个递归过程,它的结束条件是参数值为奇数。
    第一次调用,参数值为6,是偶数所再次调用fun过程,这次参数为6/2=3,是奇数,不再调用自身,接着执行下一句输出参数值即3,然后返回第一次调用过程中执行下一句输出第一次调用参数值,即6。
    因此程序会输出3 6。

    展开全文
  • VB6.0 使用递归过程实现阶乘运算  Function F(n As Integer) As Single  If n > 1 And n  F = n * F(n - 1)  Else  F = 1  End If  End Function  Private Sub Command1_Click()  Text2.Text = F(Val(Text...
  • VB函数递归问题

    2020-08-30 22:16:20
    首先说明一下,这个程序是有问题的,mod运算,前面n没写进去 这个程序的关键在于,理解被调函数p1,满足n mod 2=1 执行p1=x*p1(x,n\2),下面除了最后一步不是,全是满足这个条件的执行过程, p1(3.0,7) -->...

    在这里插入图片描述

    首先说明一下,这个程序是有问题的,mod运算,前面n没写进去

    这个程序的关键在于,理解被调函数p1,满足n mod 2=1 执行p1=x*p1(x,n\2),下面除了最后一步不是,全是满足这个条件的执行过程,

    p1(3.0,7) -->3.0xp1(3.0,3)–>3.0x3.0xp1(3.0,1)–>3.0x3.0x3.0xp1(3.0,0)–>3.0x3.0x3.0x1=27

    取模运算、if选择语句,自定义函数执行过程,具备这些知识点,这题就没问题了

    关注划地课堂,你会发现编程如此简单!如此有趣!哈哈哈哈哈…

    展开全文
  • 不是数字") End If End Sub Private Function fact(ByVal intN As Integer) As Long '阶乘计算,递归函数 If intN > 1 Then Return intN * fact(intN - 1) Else Return 1 End If End Function Private Sub 代码浏览...
    Public Class frmMain
        Private Sub 更新下载ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 更新下载ToolStripMenuItem.Click
            Process.Start("https://pan.baidu.com/s/1uHZturISzQifxeHL-FX-eQ")
            My.Computer.Clipboard.Clear()
            My.Computer.Clipboard.SetText("e832")
            MsgBox("提取码e832已复制,直接到网页粘贴即可")
        End Sub
    
        Private Sub 作品集ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 作品集ToolStripMenuItem.Click
            Process.Start("https://pan.baidu.com/s/1jr_3Yt5l1i6jNNbMy4R61A")
            My.Computer.Clipboard.Clear()
            My.Computer.Clipboard.SetText("5ycz")
            MsgBox("提取码5ycz已复制,直接到网页粘贴即可")
        End Sub
    
        Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            lblTell.Text = "阶乘示例6=6*5*4*3*2*1"
            txtNum.Text = "6"
        End Sub
    
        Private Sub btnResult_Click(sender As Object, e As EventArgs) Handles btnResult.Click
            If IsNumeric(txtNum.Text) Then
                Try
                    Dim intNum As Integer = CInt(txtNum.Text)
                    If intNum > 0 Then
                        '计算阶乘结果
                        Dim lngResult As Long = fact(intNum)
                        '比较输入结果与计算结果是否一致
                        '错误或未输入结果时,输出正确结果
                        If IsNumeric(txtResult.Text) Then
                            If lngResult = CLng(txtResult.Text) Then
                                MsgBox("你好厉害,能口算阶乘结果!")
                            Else
                                MsgBox("结果错误")
                                txtResult.Text = lngResult
                            End If
                        Else
                            txtResult.Text = lngResult
                        End If
                    Else
                        MsgBox("错误,数字不能小于1")
                    End If
                Catch ex As Exception
                    MsgBox("错误,数字超出正常范围")
                End Try
            Else
                MsgBox("错误,不是数字")
            End If
        End Sub
    
        Private Function fact(ByVal intN As Integer) As Long
            '阶乘计算,递归函数
            If intN > 1 Then
                Return intN * fact(intN - 1)
            Else
                Return 1
            End If
        End Function
    
        Private Sub 代码浏览ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 代码浏览ToolStripMenuItem.Click
            Process.Start("https://blog.csdn.net/kguncn/article/details/109010514")
        End Sub
    End Class
    
    展开全文
  • //递归调用,n为第n个数 public   static   int  fabonacci( int   n ) { if ( n ) return  1; return   fabonacci ( n -1)+ fabonacci ( n -2); }   public   static   void  main(String[] args ) { ...

    一般算法

    一般方法

     

    package edu.xatu;

     

    import java.util.Scanner;

     

    public class Fibonaci {

     

    public static void main(String[] args) {

    //求斐波那契

         int[] a = new int[10];

    for(int i=0;i<a.length;i++) {

         if(i<=1) {

         a[i] = 1;

         }else {

      a[i] = a[i-1] + a[i-2];

       }

    }

    for(int i=0;i<a.length;i++) {

    System.out.print(a[i]+" ");

       } 

     }

    }

    运行结果:

      


    递归调用方法

    import java.util.Scanner;

     

    public class Fibonacci {

    //递归调用,n为第n个数

    public static int fabonacci(int n) {

    if(n<=1) return 1;

    return fabonacci(n-1)+fabonacci(n-2);

    }

     

    public static void main(String[] args) {

    Scanner s = new Scanner(System.in);

    int n = s.nextInt();//n为所求的斐波那契个数,这里我输入了10个,求10个序列。

    for(int i = 0;i <n;i++) {

    System.out.print(fabonacci(i) +" ");

    }

     

    }

     

    }

     

    运行结果;


     



    展开全文
  • [code="VB"]Dim ls, ld, l Private Sub Form_Load() Set ls = CreateObject("Scripting.FileSystemObject") End Sub Private Sub Command1_Click() ...
  • 计算n!函数递归调用

    千次阅读 2020-08-19 13:03:00
    //计算n!函数递归调用 #include <stdio.h> int fun(int n){ int a; if(n<0){ printf("n<0.data error!"); }else if(n==1){ a=1; }else if(n==0){ a=0; }e...
  • 递归函数两个例子教程(VB6.0代码编写) 递归函数两个例子教程。 QQ223857666勾月
  • 斐波那契数列(Fibonacci sequence),又称黄金分割数列,因数学家莱昂纳多·斐波那契(Leonardoda Fibonacci)以兔子繁殖为例子而引入,故又称为“兔子数列”,指的是这样一个数列:0、1、1、2、3...**递归算法: ...
  • 间接递归:自己的方法调用别的方法,别的方法调用自己 3.递归的三要素: 递归的终结点(指的是完成递归算法结束的条件) 递归的公式(利用自己的数学知识写出递归的公式) 递归的方向:必须走向终结点 4.案例:猴子...
  • VB6.0过程的递归调用

    2009-06-10 07:54:57
    VB6.0过程的递归调用:在调用一个子程序或函数的过程中又出现直接或间接调用该子程序或函数本身,称为过程的递归调用
  • 递归法求阶乘图解

    千次阅读 2015-04-01 16:40:49
    递归 思路图解 内存图解
  • 主要内容是,自定义函数过程和子过程声明与调用的语法格式、参数含义及功能特性;三种参数传递方式(值传递、地址传递、数组传递)的应用;嵌套调用和递归调用的执行流程以及递归过程的特点
  • N阶行列式计算程序(VB,递归)

    千次阅读 2007-04-04 14:09:00
    行列式计算程序(VB,已修改为N阶)2007-03-29 14:37 用递归算法
  • 递归函数用两种方法说明,子函数调用VB6.0源代码编写
  • 递归算法在VB程序设计中的实现 摘 要:递归是计算机科学的一个重要概念,递归算法是程序设计中经常采用和有效的编程...递归调用;程序设计  中图分类号:G434 文献标志码:A 文章编号:1002 - 0845 (2008) 11 - 0069 - 02
  • VB轻松调用其他程序

    千次阅读 2012-08-09 16:39:57
    我们编写程序时,有时会遇到在一个程序中调用并控制另一个程序执行的情况,在一些编程语言中实现起来较为繁琐,但如果用VB编写时,则可轻松实现。下面我就以在程序中调用“计算器”为例,总结了以下几种方法: 一、...
  • 2018年计算机二级考试VB基础知识:递归过程递归过程1.递归的概念通俗的讲,用自身的结构来描述自身就称为“递归”。如对阶乘运算的定义就是递归的:n!=n(n-1)! (n-1)!=(n-1)(n-2)!2.递归子过程和递归函数VB 允许...
  • 【问题描述】编写函数f,功能是用递归的方法求斐波那契数列的第n项,函数原型为 int f(int n),在主函数中输入一个正整数n,调用函数f求出斐波那契数列的第n项,并在主函数中输出。 斐波那契数列:1,1,2,3,5,8,13,...
  • #递归算法: 递推方程: f(n) = f(n-1) + f(n-2) ; 递归出口: f(0) = 0, f(1) = 1 ;...O(n), 递归调用栈消耗了一些空间,最大空间与递归深度有线性关系 int fib(int n) { if (n < 1) return n? 1: 0 ;...
  • 今天来学算法,怎么求...2的情况下调用了自身,然后自身还可以继续调用自身,直到计算出结果。 int Fbi(int i) { if(i<2) return i==0?0:1; else if(i>=2) return Fbi(i-1)+Fbi(i-2); } 在mai
  • } //定义斐波那契数列求值方法 public static int Fibonacci(int n) { if (n == 1) { //因为斐波那契数列前两项不符合斐波那契公式所以单独返回值作为递归出口 return 0; } if (n == 2) { return 1; } //调用...
  • vb.net自带进制算法,但我们这里要学习的是递归算法啊!代码中还有循环算法及vb.net自带进制算法 Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load txtN.Text =...
  • 编写递归函数,在第一行打印输出1个1,在第二行输出2个2,。。。,在第n行输出n个n。 #include void print(int n) { if(n==1) printf("1\n"); else { print(n-1); for(int i=0;i;i++) printf("%d",n
  • 递归法编写一个函数fac,求n!的值以下文字资料是由(历史新知网www.lishixinzhi.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!用递归法编写一个函数fac,求n!的值#include int func(int n){if(n==...
  • 函数递归出口的重要性!

    千次阅读 2020-01-05 21:14:21
    文章目录函数的递归递归函数的特点递归代码的执行流程图 函数的递归 一个函数内部调用自己 函数内部可以调用其他函数,当然在函数内部也可以调用自己 代码特点: 函数内部的代码是相同的,只是针对参数不同,处理的...
  • 递归和非递归实现——斐波那契数列

    千次阅读 多人点赞 2019-04-07 16:04:31
    斐波那契数列的递归和非递归实现 斐波那契数列: 指的是这样一个数列:1、1、2、3、5、8、13、21、34、……在数学上,斐波纳契数列以如下被以递推的...递归函数中,位于递归调用前的语句和各级调用函数具有相同的执...
  • TreeList1.Nodes.Item(i).CheckState = CheckState.Checked Exit For End If Next j '调用递归函数 getAllNodes(TreeList1.Nodes(i)) Next i 四、接下来开始编写递归方法getAllNodes() Public Sub getAllNodes...
  • c语言版的猴子吃桃的源程序,用不同的方法求解桃子的总数。其中有递归算法,数组算法,链表算法。
  • 我的意思是,某些看上去像递归的做法,事实上并非是递归,所以我把它叫做是“伪”递归。 例如,我们想要使用Lambda表达式编写一个计算递归的fac函数,一开始我们总会设法这样做: Func<int, int>...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 5,775
精华内容 2,310
关键字:

vb递归调用