VB常用机内函数

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/