育才学习网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)
next
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
next
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
Next
For i = 1 To n
s2 = s2 + i ^ 3
Next
For i = 1 To p
s3 = s3 + i ^ 5
Next
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
Next
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之间的整数，。
7. vb用function怎样自定义函数
1、打开VB6.0，新建一个工程，在窗体中添加一个命令按钮，caption分别改为“调用函数”，将窗体Form1的caption属性改为“VB6.0自定义函数”，将界面设置成下图：
2、双击窗体Form1，进入代码编辑窗口，单击左侧下拉三角形，选择通用。
3、在通用段输入如下代码：
Public Sub F1(n%, ByVal m%)
n = n Mod 10
m = m \ 10
End Sub
并将Form_Load事件删除。
以上代码就定义了函数F1，其中包括两个参数，类型均是整型，%表示 短整型，Byval表明了值传递方式，表示值传递，与地址传递相对应。这也是默认的传递方式。
4、双击“调用函数”命令按钮，进入代码编辑窗口，输入如下代码：
Dim x%, y%
x = 12: y = 34
Call F1(x, y)
Print x, y
yongcall进行函数的调用，参数与自定义函数中参数一一对应。
5、然后关闭代码窗口，按下F5运行程序，单击“调用函数”命令按钮，在窗体中打印输出2 34，可以自己想下为什么是这个结果，这个结果和函数的值传递方式有关，