课４

  一、局部变量和全局变量
    page 72---73
    
   例子：
    dim msg  //全局变量
    dd=inputBox("请输入数字")
     sub num(c)
       dim mm  // 局部变量
        if c<10 then
           mm=c*2
           msg="数字太小了,它的２倍数是"&mm
         elseif  c>10 then
           mm=c*2
          msg="数字太大了它的２倍数是"&mm
       else
          msg="刚刚好"
       end if
      end sub
     num(dd)
     msgBox msg
 
 二、函数的概(page 76)
   function 函数名称(参数１,参数２,....)
    代码
   函数名称＝程序代码
　end function

  调用：变量＝函数名称(参数１,参数２,...)
   1 、举例说明函数的使用(page77)
   2、函数和子程序的区别
   3、函数和子程序之间的套用
 举例
　　dim dd,msg
    sub lx()
       c=dd*2
       msg=dd & "数字的２倍是"& c   
    end sub
    function jiSuan(num)   
      dim total
          for i=1 to num
           total=total+1
          next
      jiSuan=total
    end function
    Ans=inputBox("请输入数字")
    dd=jiSuan(Ans)
      lx()
    msgBox msg
---------------------------------------------------------------------------------------
    dim  msg,dd
  function jiSuan(num)
        if  num<10    then
             jiSuan=num*2
       else
            jiSuan=num\2   
      end if
    end function
   sub lx(num)
       dim total
      total=jiSuan(num)
      msg="数字是"&total
   end sub
     dd=inputBox("请输入数字")
     lx(dd)
     msgBox msg
  -----------------------------------------------------------------------------------------   
   题目：
　　设计一个函数，在输入框中输入１０以内的数字，并让这个数字累加。　
　　显示累加的结果

　　设计一个函数，在两个输入框中输入数字，求出长方形的面积 ，在得到这个面积的２倍数。显示出来
　　再输入数字，算出正方形的面积。得出这个面积的２倍数，比较长方形和正方形的值,得出结论。
        显示结论