大众计算机学习网

专门提供各种电脑教程

excel Return

Admin | 2011-10-24 8:20:07 | 被阅次数 | 4299

  excel中也常使用Return语句,下面是其使用示例。

  Sub GosubNext()

  Dim Num

  ' 输入一个数字。

   Num = InputBox("请输入一个正整形的数?")

   ' 如果输入是一个正整型,则使用子程序。

   If Num > 0 Then GoSub MyNext   

    Debug.Print Num

    Exit Sub    ' 使用 Exit 命令来避免错误发生。

  MyNext:

   Num = Num/3    ' 将数除以3。

  Return

  ' 将控制返回 GoSub 之后的语句。

  End Sub

  代码解释:

  本示例使用 GoSub 来调用子过程里的一段子程序。Return 语句则将执行返回到 GoSub 的下一个语句。Exit Sub 语句则是用来避免控制意外进入该子程序的情形发生。