展开全部
定义一个函数是指定义一个代码段。有指定的功能,允许传进去多个值并且返回一个值。
当一个代码段需要被重复使用时,就需要用到函数。
而变量是指在内存中的一块存储指定数值的区域。这个块存放什么东西要看类型。VB的类型可以按Dim
a
as后敲空格。常用变量类型有
Integer整型
存放32766~-32767之间的整数。
Long长整型
比Integer存放量更大
Double/Float精度
带有小数点后...位的数。
String字符串
不同的变量使用时必须转换。
转换为String需要使用VB自带函数CStr()
转换为Integer:CInt()
转换为数字:Var()
例子
Private
Sub
Command1_Click()
Text1.Text
=
Convert(Text1.Text)
'执行函数并将返回值存储到Text1.text属性中。参数为Text1.text
End
Sub
Private
Function
Convert(str
As
String)
As
String
On
Error
GoTo
ConvertError
Dim
i
As
Integer
'定义名为i的Integer类型变量
i
=
CInt(str)
'将str转换为Integer类型并保存到变量i中
'此时如果str字符串里存放着非数字的字符串则报异常,自动调转到ConvertError标签中。
i
=
i
*
5
+
2
-
3
Dim
ReturnStr
As
String
'定义变量
ReturnStr
=
CStr(i)
'转换为String类型并保存到ReturnStr中
Convert
=
ReturnStr
'返回这个String类型值
Exit
Function
'跳出函数,否则执行错误处理
ConvertError:
'输入的不是数字时自动提示
MsgBox
"确认输入的是数字吗?"
Err.Clear
End
Function
附件:a.zip
当一个代码段需要被重复使用时,就需要用到函数。
而变量是指在内存中的一块存储指定数值的区域。这个块存放什么东西要看类型。VB的类型可以按Dim
a
as后敲空格。常用变量类型有
Integer整型
存放32766~-32767之间的整数。
Long长整型
比Integer存放量更大
Double/Float精度
带有小数点后...位的数。
String字符串
不同的变量使用时必须转换。
转换为String需要使用VB自带函数CStr()
转换为Integer:CInt()
转换为数字:Var()
例子
Private
Sub
Command1_Click()
Text1.Text
=
Convert(Text1.Text)
'执行函数并将返回值存储到Text1.text属性中。参数为Text1.text
End
Sub
Private
Function
Convert(str
As
String)
As
String
On
Error
GoTo
ConvertError
Dim
i
As
Integer
'定义名为i的Integer类型变量
i
=
CInt(str)
'将str转换为Integer类型并保存到变量i中
'此时如果str字符串里存放着非数字的字符串则报异常,自动调转到ConvertError标签中。
i
=
i
*
5
+
2
-
3
Dim
ReturnStr
As
String
'定义变量
ReturnStr
=
CStr(i)
'转换为String类型并保存到ReturnStr中
Convert
=
ReturnStr
'返回这个String类型值
Exit
Function
'跳出函数,否则执行错误处理
ConvertError:
'输入的不是数字时自动提示
MsgBox
"确认输入的是数字吗?"
Err.Clear
End
Function
附件:a.zip
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询