VB常用机内函数
此程序目录 = App.Path
If Right$(此程序目录, 1) = "\" Then 此程序目录 = Mid(此程序目录, 1, Len(App.Path) - 1)
此程序文件名 = App.EXEName & ".exe"
此程序准确途径 = 此程序目录 & "\" & 此程序文件名
Text1 = 此程序准确途径
VB 修改系统时间 date=#2010-3-23#
time=#00:00:00#
VB中各种数据类型转换函数
1. 各种进制转换函数
二 进制 B
八 进制 O
十 进制 D
十六 进制 H
八 转 十六 T=Hex("&O" & T1)
十 转 十六 T=Hex(T1)
八 转 十 T=Cint("&O" & T1)
十六 转 十 T=Cint("&H" & T1)
十 转 八 T=Oct(T1)
十六 转 八 T=Oct("&H" & T1)
如果数值太大则无法转换
'10进制转换层3进制 （不能超过4位10进制数)
On Error Resume Next
Dim numa(9) As Integer
Dim numb(9) As Integer
numa(0) = Text1
y = 3
i = 0
k = 0
num = ""
l3:
i = i + 1
If numa(i - 1) / y < 1 Then
k = k + 1
If k > 1 Then GoTo ll3:
End If
numa(i) = Int(numa(i - 1) / y)
numb(i) = (numa(i - 1) Mod y)
GoTo l3:
ll3:
j = i
l33:
j = j - 1
If j < 1 Then GoTo ll33:
num = num & numb(j)
GoTo l33:
ll33:
Text2 = num
'3进制转换层10进制 （不能超过8位3进制数)
On Error Resume Next
Dim num As Integer
y = 3
num = 0
numc = Text1
For i = 1 To Len(numc)
num = num + CInt(Mid(numc, Len(numc) - i + 1, 1)) * y ^ (i - 1)
Next
Text2 = num
如果数值太大则无法转换
y改成2就是 2进制与10进制互相转换
y改成8就是 8进制与10进制互相转换
2. 字符串和数字转换函数
VB中的字符串函数比较多,也比较方便,就不一一介绍了.本文主要对字符串相关的
转换函数做一些小结.字符串转换的函数主要有:
Str()和Val()用于字符串和数字的相互转换;
Chr()和Asc()用于字符串和AscII码的相互转换;
Chrw()和Ascw()用于Unicode码和中文的相互转换;
Format()函数用途十分广泛的一个函数,功能十分强大.
在这些函数中前两对和Format()函数是我们经常用到的,这里只给出前两对的几个简单例子:
(1) MyString = Str(-459.65) ' 返回 "-459.65"。
MyString = Str(459.001) ' 返回 " 459.001"。
(2) MyValue = Val(" 2 45 7") ' 返回 2457。
MyValue = Val("24 and 57") ' 返回 24。
(3) MyChar = Chr(97) ' 返回 a。
MyChar = Chr(37) ' 返回 %。
(4) MyNumber = Asc("Apple") ' 返回 65。
MyNumber = Asc("a") ' 返回 97。
一、类型转换函数
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的值转换为数值类型
二、数学函数
pi=3.14159265 'π大概值
角度(Ａ)都是用弧度进行表示
弧度＝Ａ/180*Pi
sin(A) = 对边/斜边
Sin(30)应该写成 Sin(30 * pi / 180)
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次方
round函数：
round（m,n)返回：m的取n位小数的值
round（3.1415,2) 的值=3.14
三、日期与时间函数
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)
Now :返回，如：01-9-13 16: 09: 42.
Date :返回，如：01-9-13
Time :返回，如：16: 09: 42
四、随机数函数
1、 Rnd[(x)]:产生一个0~1之间的单精度随机数
2、 Randmize[(x)]:功能同上，不过更好
3、Randomize'初始化，加在随机函数前，每次开始就不怕出现一样的了。
4、x = Int(Rnd * 6)'随机输出 0到5
列:x = Int(Rnd * 6)+2 '随机输出 2到7
五、字符串函数
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$(字符串):把大写字母转换为小写字母
13、 Asc 功能：返回字母ASCII码值，如：asc("A"),返回65。
14、 Chr 功能：返回ASCII码值对应的字符，如：CHR$(65),返回 A。
5、 Mid("lixinning",4,3)’返回inn：从指定点开始返回指定个数的字符
'替换字符串
a = "aaabbbgg"
b = Replace(a, "bb", hhh) '替换字符串
MsgBox b
'结果显示 aaahhhbgg
'字符串长度
字符串长度=len("字符串a1") '中文算长度1，结果=5
字符串长度=lenb(strconv("字符串a1",vbFromUnicode)) '中文算长度2，结果=8
六、窗体输入输出函数
1、 Print(字符串):在窗体输出字符串，
可以用”&”对变量进行连接后输出
2、 Tab(n):把光标移到该行的n开始的位置
3、 Spc(n):跳过n个空格
4、 Cls:清除当前窗体内的显示内容
5、 Move 左上角x，左上角y,宽度，高度:移动窗体或控件
6、 a=InputBox("提示"):跳出一个数据输入窗口，
返回值为该窗口的输入值
7、
可赋值： a = MsgBox "内容":跳出一个提示窗口
也可定义： MsgBox "内容", 32, "标题名"
9、vbCrlf ：【回车】
_____________________________________________________________________________ _
中磊UG二次开发教程 梅雷著 qq1821117007
学UG就上UG网 http://www.9sug.com/ |
微信扫一扫
