vb常用函数介绍.docVIP

vb常用函数介绍 [电脑软件 编程] 5个回答 299次浏览 0 浙江过客 2009-6-12 21:20:45 220.185.101.* lw...@163.com 举报 vb常用函数介绍 回答 窗体底端 参考 添加引用： 登录并发表回答 取消 在谷歌搜索vb常用函数介绍 正在发表回答，请稍候…… 您输入的内容将会在您成功登录之后自动发表。 回答 按时间排序 按投票数排序 0 q2121 2009-6-12 21:21:00 116.1.115.* 举报 如果你的文本组后有空行,可能会造成下标越界,因此需要把最后的空行的vbcrlf字符替换掉,再去掉,综合代码如下,若有不明白的,可以ps我: Option Explicit Private Sub Command1_Click() Dim s() As String, t() As String, a() As String, b() As String Dim i As Integer, item, x Open D:\1.txt For Input As #1 x = StrConv(InputB(LOF(1), 1), vbUnicode) x = Replace(x, , ,) x = Replace(x, vbCrLf, )反复替换,去掉最后的空行 x = Trim(x) x = Replace(x, , vbCrLf) s = Split(x, vbCrLf) Close ReDim a(UBound(s)), b(UBound(s)) For i = 0 To UBound(s) t = Split(s(i), ,) a(i) = t(0) Print a(i) b(i) = t(1) Print b(i) Next End Sub ? 0 WillTGE 2009-6-12 21:21:11 115.61.47.* 举报 分段，如：a=quot;1,2,3,4,5,6,45,656465,564,45quot; b=split(a,quot;,quot;) 那么b(0)=1 b(1)=2 b...... ? 0 掺杂着伤害 2009-6-12 21:21:17 115.61.47.* 举报 你所说的是msgbox是信息提示窗口还有一些函数如下面的（一）类型转换类函数1. CType(X)[格式]：P=CBool(X)  将X转换为“布尔”（Boolean）类型P=CByte(X)  将X转换为“字节”（Byte）类型P=CCur(X) 将X转换为“金额”（Currency）类型P=CDate(X) 将X转换为“日期”（Date）类型P=CDbl(X) 将X转换为“双精度”（Double）类型P=CInt(X) 将X转换为“整型”（Integer）类型P=CLng(X) 将X转换为“长整型”（Long）类型P=CSng(X) 将X转换为“单精度”（Single）类型P=CStr(X) 将X转换为“字符串”（String）类型P=Cvar(X) 将X转换为“变体型”（Variant）类型P=CVErr(X) 将X转换为Error值[ 范例 ]：(1). CStr(13)+CStr(23) 数值转换成字符串后，用+号连接， 结果：1323(2). CInt(12)+12 字符串转换成整型后与12相加， 结果：24(3). P=CInt(True) 输出结果为-1 布尔值与数值的转换时要注意，布尔值只有True和False，其中True在内存中为-1,False存为0 (4). CBool(-0.001) 输出结果为True 将数值转换为布尔型时，等于0的数值将得到False，不等于0的数值得到True.2. Int(X),Fix(X)：取X的整数值[格式]：P=Int(X) 取=X的最大整数值P=Fix(X) 取X的整数部分，直接去掉小数[范例]：(1) Int(-54.6) 结果为-55，取=-54.6的最大整数(2) Fix(54.6) 结果为54，取整数并直接去掉小数（二）常用数学函数[格式]：1. Abs(N) 取绝对值例：Abs(-3.5) 结果：3.52. Cos(N) 余弦函数例：Cos(0) 结果：13. Exp(N) e为底的指数函数例：Exp(3) 结果：20.0684. Log(N) 以e为底的自然对数例：Log(10) 结果：2.35. Rnd[(N)]