函数 VB实验

实验八  函数
一、实验目的
    (1)掌握自定义函数的定义和调用方法。  
    (2)掌握形参和实参的对应关系，分清值传递和地址传递的区别。
    (3)掌握VB窗体模块、标准模块的创建和使用。
二、相关知识
    Visual Basic包含内置的或内部的函数，还可用Function语句编写自己的Function过程。
    函数过程的语法格式是：
  Private|Public)[Static]Function函数名(形式参数)  [As函数类型]
    语句
  End  Function
    Function过程的特点是：
    ●一般来说，语句或表达式的右边包含函数过程名和参数(returnvalue = function)，这就调用了函数。
    ●与变量完全一样，函数过程有数据类型，其决定了返回值的类型。如果没有As子句，缺省的数据类型为Variant。
    ●给函数名自身赋一个值，就可返回这个值。
例如，下面是己知直角三角形两直角边的值，计算第三边(斜边)的函数：
Function Hypotenuse (A  As  Integer，  B  As  Integer)  As  Double
    Hypotenuse = Sqr  (A^2+B^2)
End Function
三、实验举例
(实例1)不使用Str函数或CStr函数将数字483变换成为字符型“483”。
    Private Sub Command1_click()  
         Dim a as Integer
         A = Text1．Text
        Text2．Text = itostr(a)
End Sub
Function  itostr(a As integer) as string
         Dim  t  As  String
if  a =  0  Then
itostr =” “
else    t=chr(( a mod 10 )+48)      ‘______①_______
              itostr = itostr(a\10) & t   ‘_______②_________
end if
end function