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、指定二进制文件 。