定义一个函数是指定义一个代码段。有指定的功能,允许传进去多个值并且返回一个值。
当一个代码段需要被重复使用时,就需要用到函数。
而变量是指在内存中的一块存储指定数值的区域。这个块存放什么东西要看类型。
VB的类型可以按Dimaas后敲空格。
常用变量类型有
Integer整型存放32766~-32767之间的整数。
Long长整型比Integer存放量更大
Double/Float精度带有小数点后...位的数。
String字符串
不同的变量使用时必须转换。
转换为String需要使用VB自带函数CStr()
转换为Integer:CInt()
转换为数字:Var()
例子
PrivateSubCommand1_Click()
Text1.Text=Convert(Text1.Text)'执行函数并将返回值存储到Text1.text属性中。参数为Text1.text
EndSub
PrivateFunctionConvert(strAsString)AsString
OnErrorGoToConvertError
DimiAsInteger'定义名为i的Integer类型变量
i=CInt(str)'将str转换为Integer类型并保存到变量i中
'此时如果str字符串里存放着非数字的字符串则报异常,自动调转到ConvertError标签中。
i=i*5+2-3
DimReturnStrAsString'定义变量
ReturnStr=CStr(i)'转换为String类型并保存到ReturnStr中
Convert=ReturnStr'返回这个String类型值
ExitFunction'跳出函数,否则执行错误处理
ConvertError:
'输入的不是数字时自动提示
MsgBox"确认输入的是数字吗?"
Err.Clear
EndFunction
'定义变量:
PublicaAsString
DimbAsString
'定义函数
PublicFunctionc(xasString,yasInteger,...)AsString
'函数代码段
EndFunction
Functiond(xAsString,yAsInteger,...)AsString
'函数代码段
EndFunction
'上面Public也可以用Private,视定义域而定
去空格trim()