vb怎么返回函数处理后的结果

1. vb怎么写函数

vb怎么写函数

1. vb这个函数怎么写

public type 字符类型

字符1 as string

字符2 as string

字符3 as string

end type

PublicFunction tiqu(s As String) as String

s=Replace(s,"$","#")

aa = Split(s, "#")

tiqu = aa

End Function

调用时：

第一项tiqu（"字符1#字符2$字符3$"）(0)

第二项tiqu（"字符1#字符2$字符3$"）(1)

第三项tiqu（"字符1#字符2$字符3$"）(2)

2. 用vb 怎么自己编写一个函数

给你一个简单例子，作用是查找一个数组里的最大数。

在工程里添加一个标准模块，再再里加入：

Function maxNum(x() as double) as double

dim i as integer

maxNum=x(lBound(x())

for i=lbound(x()) to ubound(x())

if maxNum<x(i) then maxNum=x(i)

End Function

这样你就可以在程序里任何地方使用它了。

3. vb这个函数怎么写

public type 字符类型字符1 as string 字符2 as string 字符3 as stringend typePrivate Function tiqu(s As String) as 字符类型dim aa() as stringaa = Split(s, "#")tiqu.字符1 = aa(0)tiqu.字符2 = aa(1)tiqu.字符3= aa(2)End FunctionPrivate Sub Command1_Click()Text1.Text = tiqu（"字符1#字符2$字符3$"）.字符1Text2.Text = tiqu（"字符1#字符2$字符3$"）.字符2Text3.Text = tiqu（"字符1#字符2$字符3$"）.字符3End Sub。

4. VB中如何写个函数判断数字与字母

function haha(str as string) as string

for i=1 to len(str)

if not isnumeric(mid(str,i,1)) then

a=a&mid(str,i,1)

end if

haha=a

end function

解释：

分别检查传入的字符串的每一位字符是否是数字，如果不是，则保存。

遍历，最后返回保存结果。

5. 怎么用VB写这个函数

Function S(ByVal m As Long, ByVal n As Long, ByVal p As Long) As Double '第一个函数

Dim s1, s2, s3 As Long

Dim i As Integer

s1 = 0

s2 = 0

s3 = 0

For i = 1 To m

s1 = s1 + i

For i = 1 To n

s2 = s2 + i ^ 3

For i = 1 To p

s3 = s3 + i ^ 5

S = s1 + s2 / s3

End Function

Function f(ByVal x As Long, ByVal k As Long) As Long '第二个函数

Dim i As Long

f = 0

For i = 1 To x

f = f + i ^ k

End Function

6. vb函数大全

如果你装了MSDN帮助或装了Office软件，就可以得到在MSDN中“MSDN Library Visual Studio 6.0 | Visual Basic文档 | 参考 | 语言参考 | 函数” 即可看到VB所有内部函数在Office软件中，打开“工具|宏|Visual Basic编辑器”，打开Visual Basic编辑器帮助，“Visual Basic语言参考 | 函数” 即可看到VB所有内部函数 Vb常用内部函数类型转换函数数学函数日期与时间函数随机数函数字符串函数文件操作函数窗体输入输出函数？类型转换函数 1、Int(x)：求不大于自变量x的最大整数 2、Fix(x)：去掉一个浮点数的小数部分，保留其整数部分 3、Hex$(x)：把一个十进制数转换为十六进制数 4、Oct$(x)：把一个十进制数转换为八进制数 5、Asc(x$)：返回字符串x$中第一个字符的ASCII字符 6、CHR$(x)：把x的值转换为相应的ASCII字符 7、Str$(x)：把x的值转换为一个字符串 8、Cint(x)：把x的小数部分四舍五入，转换为整数 9、Ccur(x)：把x的值转换为货币类型值，小数部分最多保留4 位且自动四舍五入 10、CDbl(x)：把x值转换为双精度数 11、CLng(x)：把x的小数部分四舍五入转换为长整数型数 12、CSng(x)：把x值转换为单精度数 13、Cvar(x)：把x值转换为变体类型值 14、VarPtr(var)：取得变量var的指针 15 val(X)：把X的值转换为数值类型？数学函数 1、Sin(x)：返回自变量x的正弦值 2、Cos(x)：返回自变量x的余弦值 3、Tan(x)：返回自变量x的正切值 4、Atn(x)：返回自变量x的反正切值 5、Abs(x)：返回自变量x的绝对值 6、Sgn(x)：返回自变量x的符号，即当x为负数时，返回-1；当x为0时，返回 0；当x为正数时，返回1 7、Sqr(x)：返回自变量x的平方根，x必须大于或等于0 8、Exp(x)：返回以e为底，以x为指数的值，即求e的x次方？日期与时间函数 1、Day(Now)：返回当前的日期 2、WeekDay(Now)：返回当前的星期 3、Month(Now)：返回当前的月份 4、Year(Now)：返回当前的年份 5、Hour(Now)：返回小时（0~23） 6、Minute(Now)：返回分（0~59） 7、Second(Now)：返回秒（0~59）？随机数函数 1、Rnd[(x)]：产生一个0~1之间的单精度随机数 2、Randmize[(x)]：功能同上，不过更好？字符串函数 1、LTrim$（字符串）：去掉字符串左边的空白字符 2、Rtrim$（字符串）：去掉字符串右边的空白字符 3、Left$（字符串，n）：取字符串左部的n个字符 4、Right$（字符串，n）：取字符串右部的n个字符 5、Mid$（字符串，p,n）：从位置p开始取字符串的n个字符 6、Len（字符串）：测试字符串的长度 7、String$(n，字符串)：返回由n个字符组成的字符串 8、Space$(n)：返回n个空格 9、InStr（字符串1，字符串2）：在字符串1中查找字符串2 10、Ucase$（字符串）：把小写字母转换为大写字母 11、Lcase$（字符串）：把大写字母转换为小写字母？窗体输入输出函数 1、Print（字符串）：在窗体输出字符串，可以用”&”对变量进行连接后输出 2、Tab(n)：把光标移到该行的n开始的位置 3、Spc(n)：跳过n个空格 4、Cls：清除当前窗体内的显示内容 5、Move 左上角x，左上角y，宽度，高度：移动窗体或控件 6、InputBox(prompt，…)：跳出一个数据输入窗口，返回值为该窗口的输入值 7、MsgBox(msg,[type]…)：跳出一个提示窗口？文件操作函数 1、Open 文件名 [For方式] [Access存取类型] [锁定] AS [#]文件号 [Len=记录长度] 功能：为文件的输入输出分配缓冲区，并确定缓冲区所使用的存取方式说明： 1）方式：指定文件的输入输出方式，可选，默认是Random，可以是以下值 a、Output：指定顺序输出方式，将覆盖原有内容 b、Input：指定顺序输入方式 c、Append：指定顺序输出方式，在文件未尾追加内容 d、Random：指定随机存取方式，也是默认方式，在Random方式时，如果没有Access子句，则在执行Open语句时，VB将按下列顺序打开文件：读/写、只读、只写 e、指定二进制文件。

在这种方式下，可以用Get和Put语句对文件中任何字节位置的信息进行读写。在Binary方式中，如果没有Access子句，则打开文件的类型与Random方式相同 2）、存取类型：放在关键字Access之后，用来指定访问文件的类型。

可以是下列类型之一 a、Read：打开只读文件 b、Write：打开只写文件 c、Read Write：打开读写文件。这种类型只对随机文件、二进制文件及用Append方式打开的文件有效 3）、锁定：该子句只在多用户或多进和环境中使用，用来限制其他用户或其他进程对打开进行读写操作。

锁定类型包括： a、默认：如不指定锁定类型，则本进程可以多次打开文件进行读写；在文件打开期间，其他进程不能对该文件执行读写操作 b、Lock Shared：任何机器上的任何进程都可以对该文件进行读写操作 c、Lock Read：不允许其他进程读该文件。只在没有其他Read存取类型的进程访问该文件时，才允许这种锁定。

d、Lock Write：不允许其他进程写这个文件。只在没有其他Write存取类型的进程访问该文件时，才允许这种锁定 e、Lock Read Write：不允许其他进程读写这个文件如果不使用lock子句，则默认为Lock Read write 4）、文件号：由用户自行指定一个由1~511之间的整数，。