在窗体上画一个名称为command1的命令按纽,然后编写如下程序:
  private sub convert(y as integer)
   k=y:y=1
   for j=1 to k
   y=y*j
   next j
  end sub
  private sub command1_click()
  dim s as integer
   sum =3
   call convert(sum+1)
   print sum
  end sub
  程序运行后,单击窗体,则窗体上显示的内容是 120
  我怎么算也算不出是120啊!!!

解决方案 »

  1.   

    private sub command1_click()
      dim s as integer
       sum =3
       sum=convert(sum+1)
       print sum
      end sub
      

  2.   

    Private Function convert(y As Integer) As Integer
         k = y: y = 1
         For j = 1 To k + 1
         y = y * j
         Next j
        convert = y
        End Function
        Private Sub command1_click()
        Dim s As Integer
         sum = 3
         sum = convert(sum + 1)
         Print sum
        End Sub
    这样会是120
      

  3.   

    答案是3 ,你传进去的是临时变量sum+1,不可能改变sum的值的