VB命令大全
VB常用命令大全
常用命令FontStrikeThru属性是逻辑型，决定对象上正文是否加一删除线。
FontItalic属性是逻辑型，决定对象上正文是否是斜体。
窗体的其它常用属性2．Icon 控制图标属性：返回或设置窗体左上角显示或最小化时显示的图标。
注意：此属性必须在ControlBox属性设置为Ture才有效3．ControlBox控制菜单框属性：设置Ture为有，如设置为False则无控件菜单，同时窗体也无最大化按钮和最小化按钮，即使MaxButton属性和MinButton属性设置为Ture。
5. BorderStyle：边框风格, 通过改变BorderStyle 属性，可以控制窗体如何调整大小。
0-None：无边框；1-Fixed Single：单线边框，不可以改变窗口大小；2-Sizable：双线边框，可以改变窗口大小；3-Fixed Double：双线框架，不可以改变窗口大小。
4-Fixed Tool Window:窗体外观与工具条相似。
有关闭按钮，不可以改变窗口大小。
5-Sizable Tool Window：窗体外观与工具条相似。
有关闭按钮，可以改变窗口大小。
6. WindowsState属性用来设置窗体的运行状态。
0-Normal：正常窗口状态，有窗口边界；1-Minimized：最小化状态，以图标方式运行；2-Maximized：最大化状态，无边框，充满整个屏幕。
7. AutoRedraw属性该属性决定窗体被隐藏或被另一窗口覆盖之后，是否重新还原该窗体被隐藏或覆盖以前的画面。
即是否重画如Circle、Line、Pset和Print等方法的输出。
当为True时，重新还原该窗体以前的画面。
当为False时，则不重画AutoRedraw属性。
4 Resize事件无论是因为用户交互，还是通过代码调整窗体的大小，都会触发一个Resize事件。
5 Activate事件：当窗体由非活动窗体变为活动窗体，即当窗体得到焦点时触发该事件。
VB常见20道编程代码
VB常见20道编程代码哈哈哈20道编程代码1.1000以内的所有完数Private Sub Command1_Click()Dim n As IntegerDim i As IntegerDim s As LongFor n = 1 To 1000s = 1For i = 2 To n - 1If n Mod i = 0 Then s = s + iNext iIf s = n ThenText1 = Text1 & n & " "If k Mod 5 = 0 Then Text1 = Text1 & vbCrLfEnd IfNext nEnd SubPrivate Sub Command2_Click()EndEnd Sub2.百元买百鸡Private Sub Command1_Click()Dim i As IntegerDim j As IntegerFor i = 0 To 20For j = 0 To 33If 5 * i + 3 * j + (100 - i - j) * 1 / 3 = 100 ThenText1 = Text1 & "买" & CStr(i) & "只公鸡" & CStr(j) & "只母鸡" & CStr(100 - i - j) & "只⼩鸡" Text1 = Text1 & Chr(13) & Chr(10)End IfNext jPrivate Sub Command2_Click()EndEnd Sub3.不靠边元素和Private Sub Command1_Click()ClsRandomizeDim a(5, 5) As Integer, s%For i = 0 To 5For j = 0 To 5a(i, j) = Int(Rnd * 9)Print a(i, j) & ",";Sum = Sum + a(i, j)Next jPrintNext ik = SumSum = 0For i = 0 To 5Sum = Sum + a(i, 0) + a(i, 5) + a(0, i) + a(5, i) Next iSum = Sum - a(0, 0) - a(5, 0) - a(5, 5) - a(0, 5) Text1 = k - Sum End SubPrivate Sub Command2_Click()EndEnd Sub4.递归函数求斐波拉契数列Option ExplicitPrivate Sub Command1_Click()Dim a1, a2, b As IntegerDim i, n As Integern = InputBox("显⽰数列的前N项")a1 = 1For i = 1 To na2 = bNext iEnd SubPrivate Sub Command2_Click() EndEnd Sub5.各位数之和Private Sub Command1_Click() Dim i As String Dim j%Dim s%i = Text1For j = 1 To Len(i)st = Mid(i, j, 1)s = s + Val(st)Next jText2 = sEnd SubPrivate Sub Command2_Click() EndEnd Sub6.回⽂数Private Sub Command1_Click() Dim x$, y$, c$, i% x = Text1For i = 1 To Len(x)c = Mid(x, i, 1)y = c + yNext iIf y = x ThenText2 = "x是回⽂数"ElseText2 = "x不是回⽂数"End IfEnd SubPrivate Sub Command2_Click()Private Sub Command3_Click()EndEnd Sub7.级数求和Private Sub Command1_Click() Dim i As Integer, t As Long, s As Singlei = 0: s = o: t = 1Dos = s + 1 / ti = i + 1t = t * iLoop Until 1 / t < 0.000001Text1 = sEnd SubPrivate Sub Command2_Click()EndEnd Sub8.矩阵的转置Option ExplicitOption Base 1Dim i As IntegerDim j As IntegerDim a() As IntegerDim n As IntegerPrivate Sub Command1_Click()Text3.SetFocusn = Val(Text3)ReDim a(n, n) '动态数组For i = 1 To nFor j = 1 To na(i, j) = Int(10 * Rnd + 0) '随机数Text1 = Text1 & a(i, j) & " " '⼀⾏Next jText1 = Text1 & Chr(13) & Chr(10) '多⾏Next iEnd Subn = Val(Text3)ReDim b(n, n)For i = 1 To nFor j = 1 To nb(i, j) = a(j, i) '转置Text2 = Text2 & b(i, j) & " " '⼀⾏Next jText2 = Text2 & Chr(13) & Chr(10) '多⾏Next i End SubPrivate Sub Command3_Click()Text1 = ""Text2 = ""Text3 = "" '清除Text3.SetFocusEnd SubPrivate Sub Command4_Click()End '结束End SubPrivate Sub Form_Load()Text1 = ""Text2 = ""Text3 = "" '清除End Sub9.靠边元素和Private Sub Command1_Click()ClsRandomizeDim a(5, 5) As IntegerFor i = 0 To 5For j = 0 To 5a(i, j) = Int(Rnd * 9)Print a(i, j) & ",";Sum = Sum + a(i, j)Next jSum = 0For i = 0 To 5Sum = Sum + a(i, 0) + a(i, 5) + a(0, i) + a(5, i)NextSum = Sum - a(0, 0) - a(5, 0) - a(5, 5) - a(0, 5)Text1 = SumEnd SubPrivate Sub Command2_Click()EndEnd Sub10.冒泡排序Option ExplicitOption Base 1Dim a(10) As IntegerDim i As IntegerPrivate Sub Command1_Click()For i = 1 To 10a(i) = Int(90 * Rnd + 10)Text1 = Text1 & Str(a(i)) & " "If i Mod 5 = 0 Then Text1 = Text1 & Chr(13) & Chr(10) Next i End SubPrivate Sub Command2_Click()Dim j As IntegerDim t As IntegerFor i = 1 To 9For j = 1 To 10 - iIf a(j) < a(j + 1) Thent = a(j)a(j) = a(j + 1)a(j + 1) = tEnd IfNext jNext iIf i Mod 5 = 0 Then Text2 = Text2 & Chr(13) & Chr(10) Next i End SubPrivate Sub Command3_Click()Text1 = ""Text2 = ""End SubPrivate Sub Command4_Click()EndEnd Sub11.逆序数Private Sub Command1_Click()Dim a As StringDim i%Dim s As Stringa = Text1For i = 1 To Len(a)st = Mid(a, i, 1)s = st + sNext iText2 = sEnd SubPrivate Sub Command2_Click()EndEnd Sub12.判断素数Private Sub Command1_Click()Dim n As IntegerDim i As Integern = Val(Text1)If n = 1 ThenMsgBox (CStr(n) & "是素数")ElseFor i = 2 To n - 1MsgBox (CStr(n) & "是素数")ElseMsgBox (CStr(n) & "不是素数") End IfEnd IfEnd SubPrivate Sub Command2_Click()Text1 = ""End SubPrivate Sub Command3_Click()EndEnd Sub13.求阶乘（递归）Private Function f(ByVal n As Long) As Long Dim i As Integer f = 1If n = 0 Or n = 1 Thenf = 1ElseFor i = 1 To nf = f * iNext iEnd IfEnd FunctionPrivate Sub Command1_Click()Dim n As Longn = Val(Text1)Text2 = f(n)End SubPrivate Sub Command2_Click()Text1 = ""Text2 = ""End SubPrivate Sub Command3_Click()Private Sub Command1_Click() Dim n%, i%, m%n = Val(Text1)For i = 1 To nIf i = 1 ThenPicture1.PrintElseIf n Mod i = 0 ThenFor m = 2 To i - 1If i Mod m = 0 Then Exit For Next mIf m = i ThenPicture1.Print i,End IfPicture1.PrintEnd IfEnd IfNext iEnd SubPrivate Sub Command2_Click() Text1 = ""Picture1.ClsEnd SubPrivate Sub Command3_Click() EndEnd Sub15.⽔仙花数Private Sub Command1_Click() Dim a, b, c As IntegerFor a = 0 To 9For b = 0 To 9For c = 1 To 9End IfNext cNext bNext aEnd SubPrivate Sub Command2_Click()EndEnd Sub16.顺序查找Option ExplicitOption Base 1Dim a(10) As IntegerDim i As IntegerPrivate Sub Command1_Click()For i = 1 To 10a(i) = Int(90 * Rnd + 10)Text1 = Text1 & Str(a(i))If i Mod 5 = 0 Then Text1 = Text1 & Chr(13) & Chr(10) Next i End SubPrivate Sub Command2_Click()Dim x As Integerx = Val(Text2)For i = 1 To 10If a(i) = x Then Exit ForNext iIf i <= 10 ThenText3 = Str(x) + "在第" + Str(i) + "个位置"ElseText3 = "没有找到"End IfEnd SubPrivate Sub Command3_Click()Text1 = ""Private Sub Command4_Click()EndEnd Sub17.随机10个整数最值，均值，和Dim i As Integer Dim a(10) As IntegerPrivate Sub Command1_Click() RandomizeFor i = 1 To 10a(i) = Int(90 * Rnd + 10) Next iFor i = 1 To 10Text1 = Text1 & a(i) & " " Next iEnd SubPrivate Sub Command2_Click() Dim k As Integer Dim l As IntegerDim s As Integerk = a(1)For i = 2 To 10If a(i) > k Then k = a(i)Next iText2 = kl = a(1)For i = 2 To 10If a(i) < l Then l = a(i)Next iText3 = ls = 0For i = 1 To 10s = s + a(i)Next iText5 = sText4 = s / 10End SubPrivate Sub Command3_Click() EndEnd SubPrivate Sub Form_Load()18.字符统计Private Sub Command1_Click()Dim s As String, i%, m As String, n% s = Text1 n = 0For i = 1 To Len(s)m = Mid(s, i, 1)If m >= "a" And m <= "z" Thenn = n + 1End IfNext iText2 = nEnd SubPrivate Sub Command2_Click()EndEnd Sub19.最⼤公约数Private Sub Command1_Click()Dim m As IntegerDim n As IntegerDim k As Integerm = Val(Text1)n = Val(Text2)Dok = m Mod nm = nn = kLoop Until k = 0Text3 = CStr(m)End SubPrivate Sub Command2_Click()Text1 = ""Text2 = ""Text3 = ""End SubPrivate Sub Command3_Click()EndEnd Sub20.最⼩公倍数Option ExplicitPrivate Sub Command1_Click() Dim m%, n%, k% Dim m1%, n1%Dim s%m = Val(Text1): n = Val(Text2) m1 = m: n1 = n Dok = m Mod nm = nn = kLoop Until k = 0s = m1 * n1 / mText3 = sEnd SubPrivate Sub Command2_Click() Text1 = ""Text2 = ""Text3 = ""End SubPrivate Sub Command3_Click() EndEnd Sub。
VB 可用指令、函数 索引表
VB 可用指令、函数索引表1、Abs求绝对值●适用于VB、VBA、VBScript。
●用法：传回值= Abs(数值)○VB与VBA：Private Sub Command1_Click()Dim HerVal As IntegerHerVal = 345MyVal = Abs(HerVal)End Sub●MyVal的值为345。
Private Sub Command1_Click()Text1.Text = "5679"MyVal = Abs(Val(Text1.Text))End Sub●MyVal的值为5679Private Sub Command1_Click()MyVal = Abs(12345)Debug.Print Abs(-12345)End Sub●于Debug对话框内打出12345○vbScript：<script language="vbscript">Dim MyValMyVal = InputBox("请输入数值")document.write Abs(MyVal)</script>2、ActiveControl得到焦点的对象●适用于VB。
●用法：变量= 对象.ActiveControl.属性●用法：对象.ActiveControl.属性= 资料○VB：Private Sub Command1_Click()MsgBox End SubPrivate Sub Command1_Click()MsgBox Screen.ActiveControl.Left & ":" &Screen.ActiveControl.TopEnd SubPrivate Sub Command1_Click()Me.ActiveControl.Caption = "我得到焦点" End SubPrivate Sub Timer1_TimerMe.Caption = "Focus:" &End Sub3、ActiveForm得到焦点的表单●如果你的程序是以MDI的方式为诉求，AvtiveForm 这个方法将提功你更多的便利。
VB命令大全
VB命令大全VB命令大全VB可用指令、函数索引表AAbs求绝对值ActiveControl得到焦点的对象ActiveForm得到焦点的表单Array指定数组App得知程序信息AppActivate激活执行中的应用程序Asc求字符的内码AscB求字符的ASCIIAscW求字符的UniCodeAtn求Tan-1BBeep发出预设的警示声CCall调用子程序Calendar选择月历Choose取出一列值的某个值CBool数值转成布尔数CByte数值转成位元格式CCur数值转成货币格式CDate数据转成时间CDbl数值转成双精度浮点数CDec数据转成十进数ChDir改变目前路径缓充的路径ChDrive 改变目前磁盘缓充的磁盘Chr由内码求得一字符ChrB由ASCII求得一字符ChrW由UniCode求得一字符CInt数据转成IntegerCLng数据转成LongCommand读出程序的参数Const定义常数Cos COSCSng数值转成单精度浮点数CurDir得知目前路径缓充的路径CVar数值转成可变变量DDate得到目前电脑的时间Date$得到目前电脑时间字符串DateAdd 日期加法得日期DateDiff日期相减得数值DatePart日期部份资讯DateSerial字符串转日期DateValue数字转日期Day得知日期变量内是几号DDB折旧的计算DeleteSetting删除系统登录内的数据得知目前路径内的文件名DoEvents 闲置函数EEnd结束程序Environ取得环境变量的数据EOF某个文件缓冲的指标是否到档尾Erase 重新初始化数组Err错误资讯Error错误代码信息全国注册建筑师、建造师考试备考资料历年真题考试心得模拟试题Exp得到自然对数FFix去除小数FileCopy T o复制文件FileAttr文件开启模式FileDateTime文件存档日期FileLen文件长度筛选数组Format数据格式化输出FreeFile空的文件编号FV求得定期、定额支付且固定利率下之年金的值G GetAllSetting得到所有系统登录的资讯GetAttr得知文件属性GetSetting得到系统登录的资讯HHex将数值转成16进数表示的字符串Hour得知日期变量内是几时IIf . Then . Else判断结构IMEStatus得知IME输入法状态InStr寻找字符串里的字符串寻找字符串里的ASCIIIntStrRev由字符串右边开始寻找字符串里的字符串Int取整数JJoin将数组数据加入分隔字符后组合成一新字符串K Kill删除文件LLBound得知数组最小起始范围LCase字符串转小写Left截取字符串左边几个字Len得知字符串的字数LenB得知变量占用记忆体几个ByteLoadPicture载入图形Log求对数值LSet字符串向左对齐移除字符串最左边的空白字符MMid截取字符串里某些字符串Minute得知日期变量内是几分MkDir建立新的数据颊Month得知日期变量内是第几月NName As更改文件名Now得知目前点脑的日期与时间OOct字符转成八进制的字符串Option VB内部一些选项设定PPopupMenu跳出菜单Print列印数据QQBColor设定颜色(16)RRandomize随机数初始化声明Replace取代字符串中某些字符串V B6提供RGB设定颜色(255*255*255色)RmDir移除数据颊Rnd得到一个随机数RSet字符串向右对齐RTrim去除字符串最右边的空白字符S SavePicture储存图形Screen得知屏幕简易资讯Second得知日期变量内是几秒SetAttr设定文件属性得知是整数还是负数vShell执行外部程序Sin得知SinSpace填入数个空白字符Split以某字符串将字符串拆解成数组V B6 提供Sqr求平方根Str数值转字符串StrComp比较字符串StrConv改变字符串型态String设定一个重覆的字符串StrReverse字符串反转VB6提供TTab列印n个制表符Tan得知TanTime得知、设定电脑时间Time$得知、设定时间字符串Timer得知今天电脑总秒数TimeSerial字符串转时间TimeValue数字转时间Trim去除字符串首尾的空白字符TypeName 得知变量类别的名称UUBound得知数组的最值UCase字符串转大写VVal将字符串转成数字VarType得知变量的类型WWeekDay得知日期变量内是星期几WeekdayName将WeekDay传回值改成文字显示VB6提供YYear得知日期变量内是几年。
vb编程代码大全
v b编程代码大全(共3页) -本页仅作为预览文档封面，使用时请删除本页-vb编程代码大全1.数值型函数：abs(num): 返回绝对值sgn(num): num>0 1; num=0 0; num<0 -1;判断数值正负hex(num): 返回十六进制值直接表示：&Hxx 最大8位oct(num): 返回八进制值直接表示：&Oxx 最大8位sqr(num): 返回平方根 num>0int(num): 取整 int=99; int=100fix(num): 取整 fix=99; fix=99round(num,n): 四舍五入取小数位 round,3)= 中点数值四舍五入为近偶取整 round,1)= log(num): 取以e为底的对数 num>0exp(n): 取e的n次幂通常用 num^nsin(num): 三角函数，以弧度为值计算 (角度*Pai)/180=弧度 con(num); tan(num);atn(num)字符串函数：len(str)：计算字符串长度中文字符长度也计为一！mid(str,起始字符,[读取长度])：截取字符串中间子字符串left(str,nlen)：从左边起截取nlen长度子字符串right(str,nlen)：从右边起截取nlen长度子字符串Lcase(str)：字符串转成小写Ucase(str)：字符串转成大写trim(str)：去除字符串两端空格Ltrim(str)：去除字符串左侧空格Rtrim(str)：去除字符串右侧空格replace(str,查找字符串,替代字符串,[起始字符,替代次数,比较方法])：替换字符串注：默认值：起始字符 1；替代次数不限；比较方法区分大小写（0）InStr([起始字符,]str,查找字符串[,比较方法])：检测是否包含子字符串可选参数需同时选返回起始位置InStrRev(str,查找字符串[,起始字符][,比较方法])：反向检测是否包含子字符串返回起始位置space(n)：构造n个空格的字符串string(n,str)：构造由n个str第一个字符组成的字符串StrReverse(str)：反转字符串split(str,分割字符串[,次数][,比较方法])：以分割字符串为分割标志将字符串转为字符数组可选参数需同时选数据类型转换函数：Cint(str)：转换正数 True -1；False 0；日期距离1899/12/31天数；时间上午段 0；下午段 1；Cstr(str)：日期输出格式 yyyy/mm/dd；时间输出格式 Am/Pm hh:mm:ssClng(str)：与Cin()类似Cbool(num)：num不为零 True；反之 FalseCdate(str)：转换日期格式 0：#Am 12:00:00#；正数距离1899/12/31天数的日期；浮点数日期＋小数时间Cbyte(num)：num<255 转换为字节Csng(str)：转换为单精度数值Cdbl(str)：转换为双精度数值Ccur(str)：转换为现金格式4.时间函数：date：取系统当前日期time：取系统当前时间now：取系统当前时间及日期值 Datetime类型timer：取当前时间距离零点秒值，计时器，可计算时间差DateAdd(间隔单位,间隔值,日期)：推算相邻日期DateDiff(间隔单位,日期一,日期二)：计算时间差日期二-日期一Datepart(间隔单位,日期)：计算日期的间隔单位值Dateserial(date)：输出日期值（按序列计算）Timeserial(time)：输出时间值（按序列计算）Datevalue(datetime)：取出字符串中日期值Timevalue(datetime)：取出字符串中时间值weekday(date)：计算星期几MonthName(date)：输出月分名year(datetime)：截取年份month(datetime)：截取月份day(datetime)：截取日hour(datetime)：截取小时minute(datetime)：截取分钟second(datetime)：截取秒5.其它函数：Array(unit,..)：动态生成数组Asc(str)：输出字符串第一个字符的ASCII码Chr(asc)：转换ASCII为字符 Enter：Chr(13)&Chr(10)Filter(数组名称,关键字符串,[,包含][,比较方法])：将字符串数组中含有关键字符串的元素存成新的数组（默认） [包含]为false则取不包含的元素oin(ArrayName)：将数组中元素连成字符串Ubound(ArrayName[,维数])：取得数组相应维数的上界Lbound(ArrayName[,维数])：取得数组相应维数的下界一般为0Randmize n：启动随机数种子Rnd(n)：取得随机数，n>0或为空，取序列下一随机值，n<0，随机值相同，n=0，生产与上一随机值相同的数取介于A和B之间的随机正数C，公式：C=Int((B-A+1)*Rnd+A) 条件（B>A）子程序和自定义函数Sub StrSubName Function StrFunName(arg[1],..)子程序体函数体Exit Sub 中途跳出 Exit Function 中途跳出End Sub StrFunName＝value 返回值End Function[call] StrSubName 引用子程序 Var=StrFunName(arg[1],..) 引用函数。
VB中的常用命令
VB中的常用命令一、工程的组成工程文件(.vbp)包含了一个应用程序的所有文件窗体文件（.frm）:控件及属性、事件过程和自定义过程窗体的二进制数据文件（.frx）,自动产生同名..frx文件。
标准模块文件（.bas）类模块的文件（.cls）资源文件（.res）ActiveX控件的文件（.ocx）二、VB中的最常用的命令FontStrikeThru属性是逻辑型，决定对象上正文是否加一删除线。
FontItalic属性是逻辑型，决定对象上正文是否是斜体。
窗体的其它常用属性2．Icon 控制图标属性：返回或设置窗体左上角显示或最小化时显示的图标。
注意：此属性必须在ControlBox属性设置为Ture才有效3．ControlBox控制菜单框属性：设置Ture为有，如设置为False则无控件菜单，同时窗体也无最大化按钮和最小化按钮，即使MaxButton属性和MinButton属性设置为Ture。
5. BorderStyle：边框风格, 通过改变BorderStyle 属性，可以控制窗体如何调整大小。
0-None：无边框；1-Fixed Single：单线边框，不可以改变窗口大小；2-Sizable：双线边框，可以改变窗口大小；3-Fixed Double：双线框架，不可以改变窗口大小。
4-Fixed Tool Window:窗体外观与工具条相似。
有关闭按钮，不可以改变窗口大小。
5-Sizable Tool Window：窗体外观与工具条相似。
有关闭按钮，可以改变窗口大小。
6. WindowsState属性用来设置窗体的运行状态。
0-Normal：正常窗口状态，有窗口边界；1-Minimized：最小化状态，以图标方式运行；2-Maximized：最大化状态，无边框，充满整个屏幕。
7. AutoRedraw属性该属性决定窗体被隐藏或被另一窗口覆盖之后，是否重新还原该窗体被隐藏或覆盖以前的画面。
即是否重画如Circle、Line、Pset和Print等方法的输出。
(word完整版)vb编程常用命令集锦
vb编程常用命令集锦API函数声明数据类型与”类型安全”常数结构小结一些API函数集：控件与消息函数、硬件与系统函数、菜单函数、绘图函数什么是API首先，有必要向大家讲一讲，什么是API。
所谓API本来是为C和C++程序员写的.API说来说去，就是一种函数，他们包含在一个附加名为DLL的动态连接库文件中.用标准的定义来讲，API就是Windows的32位应用程序编程接口，是一系列很复杂的函数，消息和结构，它使编程人员可以用不同类型的编程语言编制出的运行在Windows95和Windows NT操作系统上的应用程序.可以说，如果你曾经学过VC，那么API对你来说不是什么问题。
但是如果你没有学过VC，或者你对Windows95的结构体系不熟悉,那么可以说，学习API将是一件很辛苦的事情。
如果你打开WINDOWS的SYSTEM文件夹，你可以发现其中有很多附加名为DLL的文件。
一个DLL中包含的API 函数并不只是一个，数十个，甚至是数百个。
我们能都掌握它嘛?回答是否定的∶不可能掌握.但实际上，我们真的没必要都掌握，只要重点掌握Windos系统本身自带的API函数就可以了.但,在其中还应当抛开掉同VB本身自有的函数重复的函数。
如，VB的etAttr命令可以获得文件属性，SetAttr可以设置文件属性。
对API来讲也有对应的函数GetFileAttributes和SetFileAttributes，性能都差不多。
如此地一算，剩下来的也就5、600个.是的，也不少。
但,我可以敢跟你说，只要你熟悉地掌握100个,那么你的编程水平比现在高出至少要两倍。
尽管人们说VB和WINDOWS具有密切的关系，但我认为，API更接近WINDOWS。
如果你学会了API,首要的收获便是对WINDOWS体系结构的认识。
这个收获是来自不易的。
如果你不依靠API会怎么样?我可以跟你说，绝大多是高级编程书本(当然这不是书的名程叫高级而高级的，而是在一开始的《本书内容》中指明《本书的阅读对象是具有一定VB基础的读者》的那些书)，首先提的问题一般大都是从API开始。
vb编程代码大全
vb 编程代码大全1.数值：abs(num): 返回sgn(num): num>0 1; num=0 0; num<0 -1; 判断数值正负hex(num): 返回值直接表示：&Hxx 最大8 位oct(num): 返回值直接表示：&Oxx 最大8 位sqr(num): 返回num>0int(num): 取整int=99; int=100fix(num): 取整fix=99; fix=99round(num,n): 四舍五入取小数位round,3)= 中点数值四舍五入为近偶取整round,1)=log(num): 取以e 为底的num>0exp(n):取e的n次幕通常用num A nsin(num):，以为值计算(角度*Pai)/180=弧度con(num); tan(num); atn(num) len(str) ：计算字符串长度中文字符长度也计为一！mid(str,起始字符,［读取长度］):截取字符串中间子字符串left(str,nlen) ：从左边起截取nlen 长度子字符串right(str,nlen) :从右边起截取nlen 长度子字符串Lcase(str)：字符串转成小写Ucase(str)：字符串转成trim(str) ：去除字符串两端空格Ltrim(str) ：去除字符串左侧空格Rtrim(str) ：去除字符串右侧空格replace(str,查找字符串，替代字符串,［起始字符，替代次数，比较方法］):替换字符串注：默认值：起始字符1；替代次数不限；比较方法区分大小写( 0)InStr(［起始字符,］str,查找字符串［，比较方法］):检测是否包含子字符串可选参数需同时选返回起始位置InStrRev(str,查找字符串［,起始字符］［,比较方法］):反向检测是否包含子字符串返回起始位置space(n)：构造n个空格的字符串string(n,str):构造由n个str第一个字符组成的字符串StrReverse(str):反转字符串split(str,字符串［,次数］［,比较方法］):以分割字符串为分割标志将字符串转为字符可选参数需同时选转换函数：Cint(str) ：转换正数True -1；False 0；日期距离1899/12/31 天数；时间上午段0；下午段1；Cstr(str):日期yyyy/mm/dd ;时间输出格式Am/Pm hh:mm:ssClng(str):与Cin()类似Cbool(num): num 不为零True;反之FalseCdate(str):转换日期格式0: #Am 12:00:00# ;正数距离1899/12/31天数的日期；日期+小数时间Cbyte(num) : num<255 转换为字节Csng(str):转换为数值Cdbl(str):转换为数值Ccur(str):转换为现金格式4.时间函数：date :取系统当前日期time ：取系统当前时间now：取系统当前时间及日期值Datetime类型timer :取当前时间距离零点秒值，，可计算时间差DateAdd(间隔单位侗隔值，日期)：推算相邻日期DateDiff(间隔单位，日期一，日期二)：计算时间差日期二-日期一Datepart(间隔单位，日期)：计算日期的间隔单位值Dateserial(date) ：输出日期值(按序列计算)Timeserial(time) ：输出时间值(按序列计算)Datevalue(datetime) ：取出字符串中日期值Timevalue(datetime) ：取出字符串中时间值weekday(date) ：计算星期几MonthName(date) ：输出月分名year(datetime) ：截取年份month(datetime) ：截取月份day(datetime) ：截取日hour(datetime) ：截取小时minute(datetime) ：截取分钟second(datetime) ：截取秒5.其它函数：Array(unit，..) ：动态生成数组Asc(str):输出字符串第一个字符的ASCII码Chr(asc):转换ASCII为字符Enter：Chr(13)&Chr(10)Filter（数组名称，关键字符串，［,包含］［,比较方法］）:将字符串数组中含有关键字符串的元素存成新的数组（默认）［包含］为false 则取不包含的oin（ArrayName）：将数组中元素字符串Ubound（ArrayName［, 维数］）：取得数组相应维数的上界Lbound（ArrayName［, 维数］）：取得数组相应维数的下界一般为0Ran dmize n：启动Rnd（n）：取得，n>0或为空，取序列下一随机值，n<0，随机值相同，n=0,生产与上一随机值相同的数取介于A和B之间的随机正数C,公式：C=Int（（B-A+1）*Rnd+A）条件（B>A）子程序和自定义函数Sub StrSubName Function StrFunName（arg［1］,..）子程序体函数体Exit Sub 中途跳出Exit Function 中途跳出End Sub StrFunName= value 返回值End Function引用函数[call] StrSubName 引用子程序Var=StrFunName(arg[1],..)。
vb语句大全
在上面的标准工程中，用下面的程序替换上面的程序，并把路径换成你电脑中 Microsoft Excel 的路径，然后运行程序，单击命令按钮，你将看到 Excel 被打开并被激活。 Private Sub Command1_Click()
Dim MyAppID MyAppID = Shell("C:\Program Files\Microsoft Office\Office\EXCEL.EXE", 1) '运行 Microsoft Excel。 AppActivate MyAppID '激活 Microsoft Excel。 End Sub
二、说明： 调用一个过程时，并不一定要使用 Call 关键字。如果使用 Call 关键字来调用一个需要
参数的过程，argumentlist 就必须要加上括号。 Call name(argumentlist) 如果省略了 Call 关键字，那么也必须要省略 argumentlis 外面的括号。 Name argumentlist 如果需要函数的返回值，则应先定义一个变量，然后将函数的返回值赋予变量，这时虽
VB编程常用代码大全(精品)
VB编程常用代码大全ＶB编程常用代码大全１.数值型函数：ａｂｓ(nuｍ)：返回绝对值sgn(num): ｎum>０１; nｕm＝0 0; nuｍ＜0 -1；判断数值正负hex(ｎum)：返回十六进制值直接表示:&Ｈxx 最大８位oｃｔ(ｎｕｍ): 返回八进制值直接表示:&Oxx 最大8位sqｒ(ｎum): 返回平方根ｎｕm>0int(num）: 取整 iｎt（9９．８)=9９； iｎt(-99.2)=100 fix(ｎｕm): 取整fix(９９.8）=９9; ｆix(-99.2)＝99 round(ｎum,n)：四舍五入取小数位rouｎd(3.１4１５9，3)=3．14２中点数值四舍五入为近偶取整 rｏund(3.２５,1)=３.2lｏｇ(num): 取以e为底的对数 nｕm>0exp(n): 取ｅ的ｎ次幂通常用 num＾nsｉn(nｕm): 三角函数,以弧度为值计算 (角度*Pai)/1８0=弧度 con(num); taｎ(ｎuｍ); aｔn(ｎuｍ)2.字符串函数:leｎ(ｓtr)：计算字符串长度中文字符长度也计为一!miｄ(str,起始字符,[读取长度])：截取字符串中间子字符串left(ｓtr,nlen)：从左边起截取nleｎ长度子字符串ｒight(sｔr，ｎleｎ)：从右边起截取nlen长度子字符串Lcase(stｒ）:字符串转成小写Ｕcase(str）:字符串转成大写triｍ(str):去除字符串两端空格Ltｒim（str）：去除字符串左侧空格Ｒtrim(str):去除字符串右侧空格ｒeｐlａce（ｓtr,查找字符串，替代字符串，［起始字符,替代次数,比较方法］):替换字符串注:默认值:起始字符 1;替代次数不限；比较方法区分大小写(0)ＩｎStｒ（［起始字符,]ｓtr,查找字符串［,比较方法]):检测是否包含子字符串可选参数需同时选返回起始位置InＳtrRｅv（str，查找字符串[,起始字符]［,比较方法])：反向检测是否包含子字符串返回起始位置space(ｎ):构造n个空格的字符串string(ｎ,str）:构造由n个str第一个字符组成的字符串StrReｖerse(sｔr）：反转字符串spｌit(ｓtr,分割字符串[,次数］[,比较方法])：以分割字符串为分割标志将字符串转为字符数组可选参数需同时选３.数据类型转换函数：Cinｔ（sｔr):转换正数 Tｒue -１;False 0;日期距离1899/12／31天数；时间上午段０；下午段 1；Cｓｔｒ(str)：日期输出格式ｙyyｙ/ｍm/ｄd；时间输出格式 Am/Pm ｈh:mｍ:ssCｌｎg(ｓｔｒ）：与Cin（)类似Cｂｏoｌ(num)：num不为零 Truｅ;反之 FalseCdate（ｓtr)：转换日期格式0:#Am 1２:０0:00#；正数距离１899/１２／３１天数的日期;浮点数日期＋小数时间Cｂyｔe(nuｍ)：ｎum<255 转换为字节Ｃsng(stｒ):转换为单精度数值Cdbl(ｓtr):转换为双精度数值Ｃcur(ｓtｒ)：转换为现金格式４.时间函数：daｔe：取系统当前日期ｔime：取系统当前时间ｎｏｗ：取系统当前时间及日期值Ｄatｅtime类型ｔimｅr：取当前时间距离零点秒值，计时器，可计算时间差ＤateAdd(间隔单位,间隔值，日期）：推算相邻日期DateDiff(间隔单位,日期一，日期二)：计算时间差日期二-日期一Ｄａｔｅpart(间隔单位,日期)：计算日期的间隔单位值Dateｓｅriaｌ（datｅ)：输出日期值(按序列计算)Ｔｉmeｓerial(time):输出时间值（按序列计算）Ｄａtevalue(ｄａteｔimｅ):取出字符串中日期值Timeｖａlue(ｄatetiｍe）：取出字符串中时间值weekdａy（datｅ):计算星期几MontｈＮaｍe(datｅ）：输出月分名yeaｒ(ｄatetimｅ):截取年份moｎth(dａtetｉme)：截取月份day(ｄatetimｅ):截取日ｈoｕｒ(datetime)：截取小时minutｅ(datetｉme):截取分钟sｅconｄ(daｔetimｅ)：截取秒５.其它函数:Aｒray(ｕｎit,．.)：动态生成数组Aｓc(str):输出字符串第一个字符的ASCIＩ码Chr(ａsc):转换ASＣII为字符 Enter:Ｃhｒ(13)&Ｃhr（10) Fｉlteｒ（数组名称,关键字符串,[,包含][,比较方法]）：将字符串数组中含有关键字符串的元素存成新的数组(默认） [包含]为fａlsｅ则取不包含的元素oiｎ（ArrａｙName）:将数组中元素连成字符串Ubound（ArraｙNamｅ［,维数])：取得数组相应维数的上界Lbounｄ(ArrayＮame[,维数］）：取得数组相应维数的下界一般为0Randmize ｎ：启动随机数种子Rｎｄ(n）：取得随机数,n>０或为空,取序列下一随机值，ｎ<0,随机值相同，n=０,生产与上一随机值相同的数取介于A和B之间的随机正数Ｃ,公式:Ｃ=Int((Ｂ－A+1）*Rｎd+Ａ) 条件(B＞Ａ)子程序和自定义函数Sub ＳtrＳubName Ｆｕｎction StｒＦunName（arg[１］，..)子程序体函数体Eｘit Ｓｕb 中途跳出 Eｘit Funcｔｉon 中途跳出Ｅnd Sub StrFunＮamｅ=vａlue 返回值Enｄ Fｕnctioｎ［ｃall] SｔrＳｕbNａme 引用子程序Ｖar=ＳtｒFuｎName(arg[1］，．.) 引用函数...内容来自网络 ...。
VB命令语名一览表
X必须定义为wariant类型
子程序过程定义
Sub过程名(byval x!, byref Y!)
……
Exit sub
End sub
值传递：byval
地址传递：byref(缺省方式)
调用子过程
Call过程名(x0,y0)
过程名x0,y0
函数过程定义
Function函数名( byval x!, byref Y!) as类型
…….
Case else
…….
End select
循环语句
For变量=a to b step c
…
Next变量
循环次数=(b-a)\c
while (条件)
…
wend
Do while |until(条件)
…
loop
Do
…
loop while |until(条件)
定义数组P76
Dim a(最大下标) as类型
……
Exit function
函数名=表达式
End function
调用函数
W=函数名（x0,Y0）
打开文件
Open “路径\文件名.TXT” for模式as #文件号
Output|input|
append
写文件
Write #文件号，表达式列表
读文件记录数据
Input #文件号，表达式列表
关闭文件
Close #文件号
VB语句（命令）一览表
作用
语法格式
参数举例
定义变量（关注变量的作用域）
Dim变量as数据类型
Dim变量<类型符>
基本数据类型：Integer, long, single, double, string
vb命令汇总
·常量定义Const name [as type] = valueName:常量名Value:值type:常量数据类型（可有可无）变量定义Dim name [as type]如：Dim I as long, j as longName:变量名type:变量数据类型（可有可无）选取范围Range(“A1”). Font.ColorIndex = 3 ' Red Worksheets("Sheet1").Cells(1, 1).Value = 10条件语句：If anyDate < Now Thencar = oldElsecar = newEnd If或If condition1 Then [statements] ElseIf condition2Select Case markCase 0Msgbox(“缺考”)Case is<60Msgbox(“不及格”)Case 60 to 98Msgbox(“合格”) Case 99,100Msgbox(“优秀”) Case ElseMsgbox(“出错”) End Select循环语句：i=1Do while i<=10sum=sum+ii=i+1Loopi=1Do until i>10sum=sum+ii=i+1Loopi=1dosum=sum+ii=i+1Loop while i<=10i=1dosum=sum+ii=i+1Loop until i>10Do While n<100n=n+1m=m*nif m>=100000 Then Exit Do LoopFor i=1 To 100 Step 1sum=sum+iNext iFor Each mycell In SelectionIf mycell.Value Like "OK" Thenmycell.Font.Bold = TrueEnd IfNext当前活动工作簿（一个Workbook对象）Application.ActiveWorkbook当前活动工作表（一个Sheet对象）Application.ActiveSheet当前活动单元格（一个Range对象）Application.ActiveCell当前活动窗口中被选中的对象Application.Selection命令：ClearContents删除内容Msgbox 输出内容InputBox 输入内容命名Sheets(1).Name=”VBA世界”字体属性Application.Worksheets(“Sheet 1”).Cells(5,3).Font.Size=14ActiveCell.Font.Bold=True获取对象属性Sheet_name=Sheets(3).Name 获取工作表3的名称窗体1.Load:加载窗体Load UserForm2Unload：卸载窗体Show：显示窗体UserForm2.ShowHide：隐藏窗体Move：移动窗体Private Sub UserForm_Initialize（初始化事件）/ Termiate（销毁事件）/ Activate/Deactivate（激活/非激活事件）控件：控件名_事件名。
vb命令
（一）类型转换类函数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)] 产生随机数例：Rnd 结果：0--1之间的数6. Sin(N) 正弦函数例：Sin(0) 结果：07. Sgn(N) 符号函数' 说明：取正负号。
vb指令集1
Calendar 常数: vbCalGreg vbCalHijriColor 常数: vbBlack vbRed vbGreen vbYellow vbBlue vbMagenta vbCyan vbWhiteComparison常数: VbUseCompareOption VbBinaryCompare VbTextComparevbDatabaseCompareCompiler 常数: Win16 Win32Date 常数: vbUseSystem vbSunday vbMonday vbTuesday vbWednesdayvbThursday vbFriday vbSaturdayfirstdayofyear: vbUseSystem VbUseSystemDayOfWeek VbFirstJan1vbFirstFourDays vbFirstFullWeek返回值: vbSunday vbMonday vbTuesday vbWednesdayvbThursday vbFriday vbSaturday日期格式常数: vbGeneralDate vbLongDate vbShortDate vbLongTimevbShortTimeDir、GetAttr 和 SetAttr 常数: vbNormal vbReadOnly vbHidden vbSystemvbVolume vbDirectory vbArchive驱动器类型常数: Unknown Removable Fixed Remote CDROM RAMDisk文件属性常数: Normal ReadOnly Hidden System Volume DirectoryArchive Alias Compressed文件输入/输出常数: ForReading ForWriting ForAppendingIMEStatus 常数: vbIMEModeNoControl vbIMEModeOn vbIMEModeOffvbIMEModeDisable vbIMEModeHiragana vbIMEModeKatakana vbIMEModeKatakanaHalf vbIMEModeAlphaFull vbIMEModeAlpha Keycode 常数: vbKeyLButton vbKeyRButton vbKeyCancel vbKeyMButtonvbKeyBack vbKeyTab vbKeyClear vbKeyReturn vbKeyShift vbKeyControl vbKeyMenu vbKeyPause vbKeyCapital vbKeyEscape vbKeySpace vbKeyPageUp vbKeyPageDownvbKeyEnd vbKeyHome vbKeyLeft vbKeyUp vbKeyRightvbKeyDown vbKeySelect vbKeyPrint vbKeyExecutevbKeySnapshot vbKeyInsert vbKeyDelete vbKeyHelpvbKeyNumlockvbKeyA vbKeyB vbKeyC vbKeyD vbKeyE vbKeyF vbKeyG vbKeyH vbKeyI vbKeyJ vbKeyK vbKeyL vbKeyM vbKeyNvbKeyO vbKeyP vbKeyQ vbKeyR vbKeyS vbKeyT vbKeyU vbKeyV vbKeyW vbKeyX vbKeyY vbKeyZvbKey0 vbKey1 vbKey2 vbKey3 vbKey4 vbKey5 vbKey6vbKey7 vbKey8 vbKey9vbKeyNumpad0 vbKeyNumpad1 vbKeyNumpad2 vbKeyNumpad3 vbKeyNumpad4 vbKeyNumpad5 vbKeyNumpad6 vbKeyNumpad7 vbKeyNumpad8 vbKeyNumpad9 vbKeyMultiply vbKeyAdd vbKeySeparator vbKeySubtract vbKeyDecimal vbKeyDivide vbKeyF1 vbKeyF2 vbKeyF3 vbKeyF4 vbKeyF5 vbKeyF6vbKeyF7 vbKeyF8 vbKeyF9 vbKeyF10 vbKeyF11 vbKeyF12 vbKeyF13 vbKeyF14 vbKeyF15 vbKeyF16Miscellaneous 常数: vbCrLf vbCr vbLf vbNewLine vbNullCharvbNullString vbObjectError vbTab vbBackvbFormFeed vbVerticalTabMsgBox 常数: vbOKOnly vbOKCancel vbAbortRetryIgnore vbYesNoCancelvbYesNo vbRetryCancel vbCritical vbQuestionvbExclamation vbDefaultButton1 vbDefaultButton2vbDefaultButton3 vbDefaultButton4 vbApplicationModalvbSystemModal vbMsgBoxHelpButton VbMsgBoxSetForeground vbMsgBoxRight vbMsgBoxRtlReadingvbOK vbCancel vbAbort vbRetry vbIgnore vbYes vbNo QueryClose常数: vbFormControlMenu vbFormCode vbAppWindowsvbAppTaskManagerShell 常数: vbHide vbNormalFocus vbMinimizedFocus vbMaximizedFocus vbNormalNoFocus vbMinimizeNoFocus特殊文件夹常数: WindowsFolder SystemFolder TemporaryFolderStrConv 常数: vbUpperCase vbLowerCase vbProperCase vbWide vbNarrow vbKatakana vbHiragana vbUnicode vbFromUnicodeSystem Color 常数: vbScrollBars vbDesktop vbActiveTitleBarvbInactiveTitleBar vbMenuBar vbWindowBackgroundvbWindowFrame vbMenuText vbWindowText vbTitleBarText vbActiveBorder vbInactiveBorder vbApplicationWorkspace vbHighlight vbHighlightText vbButtonFace vbButtonShadow vbGrayText vbButtonText vbInactiveCaptionTextvb3Dhighlight vb3DDKShadow vb3Dlight vbInfoTextvbInfoBackground三态常数: TristateTrue TristateFalse TristateUseDefaultVarType 常数: vbEmpty vbNull vbInteger vbLong vbSingle vbDouble vbCurrency vbDate vbString vbObject vbError vbBoolean vbVariant vbDataObject vbDecimal vbBytevbUserDefinedType vbArrayBoolean 数据类型 Byte 数据类型 Currency 数据类型 Date 数据类型Decimal 数据类型 Double 数据类型 Integer 数据类型 Long 数据类型Object 数据类型 Single 数据类型 String 数据类型用户定义数据类型Variant 数据类型#Const 指令 #If...Then...#Else 指令 Abs(number) Array(arglist) Asc(string) Atn(number) CallByName(object, procedurename, calltype,[arguments()])Choose(index, choice-1[, choice-2, ... [, choice-n]]) Chr(charcode) CommandCos(number) CreateObject(class,[servername]) CurDir[(drive)]CVErr(errornumber) Date DateAdd(interval, number, date)DateDiff(interval, date1, date2[, firstdayofweek[,firstweekofyear]])DatePart(interval,date[,firstdayofweek[,firstweekofyear]])DateSerial(year, month, day) DateValue(date) Day(date)DDB(cost,salvage, life, period[, factor]) Dir[(pathname[, attributes])]DoEvents( ) Environ({envstring| number}) EOF(filenumber) Error[(errornumber)] Exp(number) FileAttr(filenumber, returntype) FileDateTime(pathname)FileLen(pathname) Filter(InputStrings,Value[,Include[,Compare]])Format(expression[, format[, firstdayofweek[, firstweekofyear]]]) FormatCurrency(Expression[,NumDigitsAfterDecimal [,IncludeLeadingDigit[,UseParensForNegativeNumbers [,GroupDigits]]]])FormatDateTime(Date[,NamedFormat])FormatPercent(Expression[,NumDigitsAfterDecimal [,IncludeLeadingDigit[,UseParensForNegativeNumbers [,GroupDigits]]]])FreeFile[(rangenumber)] FV(rate, nper, pmt[, pv[, type]])GetAllSettings(appname,section) GetAttr(pathname)GetObject([pathname] [, class]) GetSetting(appname,section,key[,default])Hex(number) Hour(time) IIf(expr,truepart,falsepart) IMEStatusInput(number, [#]filenumber)InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context]) InStr([start, ]string1, string2[, compare])InstrRev(string1,string2[,start[,compare]])Int(number) Fix(number) IPmt(rate, per, nper, pv[, fv[, type]])IRR(values()[, guess]) IsArray(varname) IsDate(expression)IsEmpty(expression) IsError(expression) IsMissing(argname)IsNull(expression) IsNumeric(expression) IsObject(identifier)Join(list[, delimiter]) LBound(arrayname[, dimension]) LCase(string)Left(string, length) Len(string | varname) Loc(filenumber) LOF(filenumber)Log(number) LTrim(string) RTrim(string) Trim(string)Mid(string, start[, length]) Minute(time)MIRR(values(),finance_rate, reinvest_rate) Month(date)MonthName(month[,abbreviate])MsgBox(prompt[, buttons] [, title] [, helpfile, context])Now NPer(rate, pmt, pv[, fv[, type]]) NPV(rate, values()) Oct(number) Partition(number, start, stop, interval) Pmt(rate, nper, pv[, fv[, type]])PPmt(rate, per, nper, pv[, fv[, type]]) PV(rate, nper, pmt[, fv[, type]]) QBColor(color) Rate(nper, pmt, pv[, fv[, type[, guess]]])Replace(expression,find,replacewith[,start[,count[,compare]]])RGB(red, green, blue) Right(string, length) Rnd[(number)]Round(expression [,numdecimalplaces]) Second(time) Seek(filenumber)Sgn(number) Shell(pathname[,windowstyle]) Sin(number)SLN(cost, salvage, life) Space(number) Spc(n)Split(expression[,delimiter[,count[,compare]]])Sqr(number) Str(number) StrComp(string1, string2[, compare])StrConv(string, conversion, LCID) StrReverse(string1)String(number, character)Switch(expr-1,value-1[,expr-2,value-2 _ [,expr-n,value-n]])SYD(cost, salvage, life, period) Tab[(n)] Tan(number) TimeTimer TimeSerial(hour,minute,second) TimeValue(time)CBool(expression)CByte(expression) CCur(expression)CDate(expression)CDbl(expression)CDec(expression)CInt(expression)CLng(expression)CSng(expression)CStr(expression)CVar(expression)CStr(expression) TypeName(varname) UBound(arrayname[, dimension]) UCase(string)VarType(varname) Weekday(date, [firstdayofweek])WeekdayName(weekday,abbreviate,firstdayofweek) Year(date)数据类型概述: Byte Boolean Integer Long Single Double CurrencyDecimal Date Object String String Variant VariantType导出的数学函数: Secant Cosecant Cotangent Inverse SineInverse Cosine Inverse Secant Inverse CosecantInverse Cotangent Hyperbolic Sine Hyperbolic CosineHyperbolic Tangent Hyperbolic SecantHyperbolic Cosecant Hyperbolic CotangentInverse Hyperbolic Sine Inverse Hyperbolic Cosinenverse Hyperbolic Tangent Inverse Hyperbolic SecantInverse Hyperbolic Cosecant nverse Hyperbolic Cotangent 逻辑运算符: And Eqv Imp Not Or Xor数学函数: Abs Atn Cos Exp Fix Int Log Rnd Sgn Sin Sqr Sqr运算符优先顺序: ^ - (*、/) \Mod (+、-) &= <> < > <= >= LikeNot And Or Xor Eqv Imp Is数组关键字总结: IsArrayArrayOption BaseDim, Private, Public, ReDim, StaticLBound, UboundErase, ReDimCollection 对象关键字总结: IsArrayArrayOption BaseDim, Private, Public, ReDim, StaticLBound, UboundErase, ReDim编译命令关键字总结: #Const#If...Then...#Else控制流关键字总结: GoSub...Return, GoTo, On Error, On...GoSub, On...GoTo DoEvents, End, Exit, StopDo...Loop For...Next, For Each...Next, While...Wend, With Choose, If...Then...Else, Select Case, SwitchCall, Function, Property Get, Property Let, Property Set, Sub 变换关键字总结: Chr Format, LCase, UCase DateSerial, DateValue Hex, Oct Format, StrCBool, CByte, CCur, CDate, CDbl, CDec, CInt, CLng, CSng,CStr, CVar, CVErr, Fix, IntDay, Month, Weekday, YearHour, Minute, Second Asc ValTimeSerial, TimeValue数据类型关键字总结: CBool, CByte, CCur, CDate, CDbl, CDec, CInt, CLng,CSng, CStr, CVar, CVErr, Fix, IntBoolean, Byte, Currency, Date, Double, Integer, Long, Obect, Single,String, Variant (default)IsArray, IsDate, IsEmpty, IsError, IsMissing, IsNull,IsNumeric, IsObject日期与时间关键字总: Date ,Now, Time DateAdd, DateDiff, DatePartDateSerial, DateValue TimeSerial, TimeValueDate, Time Timer目录和文件关键字总结: ChDir ChDrive FileCopy MkDirRmDir Name CurDir FileDateTimeGetAttr FileLen Dir SetAttr错误关键字总结: Clear, Error, Raise Error Err CVErrOn Error, Resume IsError金融关键字总结: DDB, SLN, SYD FV Rate IRR, MIRRNPer IPmt, Pmt, PPmt NPV, PV输入与输出关键字总结: DDB, SLN, SYD FV Rate IRR,MIRR NPer IPmt, Pmt, PPmt NPV, PV 数学关键字总结: Atn, Cos, Sin, Tan Exp, Log, Sqr Randomize, RndAbs Sgn Fix, Int其他关键字总结: DoEvents AppActivate, Shell SendKeysBeep Environ Command MacID, MacScriptCreateObject, GetObject QBColor, RGB运算符关键字总结: DoEvents AppActivate, Shell SendKeysBeep Environ Command MacID, MacScriptCreateObject, GetObject QBColor, RGB注册关键字总结: DoEvents AppActivate, Shell SendKeysBeep Environ Command MacID, MacScriptCreateObject, GetObject QBColor, RGB字符串处理关键字总结: StrComp StrConv Format, LCase, UCaseSpace, String Len Format LSet, RSetInStr, Left, LTrim, Mid, Right, RTrim, TrimOption Compare Asc, Chr变量与常数关键字总结: Let Const, Dim, Private, Public, New, StaticOption Private ModuleIsArray, IsDate, IsEmpty, IsError, IsMissing, IsNull,IsNumeric, IsObject, TypeName, VarTypeMe Option Explicit DeftypeAs: Const 语句 Declare 语句 Dim 语句 Function 语句 Name 语句Open 语句 Private 语句 Property Get 语句 Property Let 语句Property Set 语句 Public 语句 ReDim 语句 Static 语句Sub 语句 Type 语句Binary: Open 语句 Option Compare 语句ByRef: Call 语句 Declare 语句 Function 语句 Property Get 语句Property Let 语句 Property Set 语句 Sub 语句ByVal: Call 语句 Declare 语句 Function 语句 Property Get 语句Property Let 语句 Property Set 语句 Sub 语句Date: Date 数据类型 Date 函数 Date 语句Else: If...Then...Else 语句 Select Case 语句Empty: Empty关键字是用作 Variant 子类型。
vb常用代码大全
#define __LLF_VB_GUI__#include "vb.h"//Sub Output( ByRef( msg As String ) ) { //why can't replace ',' ? Sub Output( ByRef( msg , String ) ) { //must add '{' now .Call Print( msg ); //must add ';' .End_SubSub Main() {If False Or False ThenCall Output( "That's True!\n" ); //must add ';' .ElseCall Output( "That't False!\n" ); //must add ';'.End_Ifint i = 0;//For( i, 0 To 10 ) //why can't replace ',' ?For( i, 0, 10 )Print( i );NextPause();End_Sub#ifndef __LLF_VISUAL_BASIC_LIKE_MODULE_MAIN__#define __LLF_VISUAL_BASIC_LIKE_MODULE_MAIN__#include <stdio.h>inline void Print(const char *msg){ printf(msg); }inline void Print(int i){ printf( "%i\n", i); }inline void Pause() { getchar(); }void Main();int main (int argc, char *argv[]) { Main(); return 0; }#endif#ifndef __LLF_VISUAL_BASIC_LIKE_MODULE__#define __LLF_VISUAL_BASIC_LIKE_MODULE__//Ö÷º¯Êý¶¨ÒåÓëʹÓÃ#ifdef __LLF_VB_GUI__#include "winmain.h"#else#include "main.h"#endif//ÀàÐͶ¨Òå#define Integer int#define String char#define Boolean bool#define True true#define False false// Óï·¨Ïà¹Ø²¿·ÖµÄºê¶¨Òå#define If if(#define Then ){#define End_If }#define Or ||#define And &&#define Else }else{#define To #@,#define For(i, min , max) for(i=min;i<=max;i++){#define Next }//½á¹¹Ïà¹Ø²¿·ÖµÄºê¶¨Òå#define Call#define Sub void#define NewSub(x) void x {#define End_Sub }#define As ,#define ByRef(m, t) t *m#define ByVal(m, t) t m#endif#ifndef __LLF_VISUAL_BASIC_LIKE_MODULE_MAIN__#define __LLF_VISUAL_BASIC_LIKE_MODULE_MAIN__#include <windows.h>inline void Print(const char *msg){ MessageBox(NULL, msg, "vb", MB_OK); }inline void Print(int i){ char s[1024]; Print( itoa(i, s, 1023) ); } inline void Pause() { Print("** Pause **"); }void Main();int WINAPI WinMain(HINSTANCE, HINSTANCE,LPSTR, int) { Main(); return 0; }#endif--------下面红色部分是赠送的工作总结，不需要的朋友可以编辑删除！谢谢行政管理干部个人总结20XX年上半年，在公司的正确领导下，在各科室部门的大力支持下，我按照公司的工作部署和工作要求，严格执行公司的工作方针，围绕中心，突出重点，狠抓落实，注重实效，在自身工作岗位上认真履行职责，做好各项行政管理工作，较好地完成了工作任务，取得了一定的成绩。
VB命令大全
VB命令大全VB命令大全命令Call：调用事件处理器Close关闭用Open命令所打开文件的输入输出。
格式：Close #文件号1, #文件号2……。
若无文件号，则关闭打开的所有活动文件。
Const：声明常量,格式:Const常量名[As类型] =常量值DoEvents：让应用程序提供少量时间处理等待的任务，然后控制权立即返回应用程序。
Dim声明变量，格式：Dim变量名As变量类型Exit sub：中途退出子程序End：结束程序Global：声明全局变量Load：装入窗体MsgBox消息内容：将结果显示在消息框中Open打开或保存文件。
格式：Open文件全名For模式As #文件号[Len =文件长度]其中，模式有：Append、Binary、Input、Output、Random(缺省)；文件号在1到511之间，可用FreeFile函数取得；文件长度在1到32767之间。
例：Open CommonDialog1.FileName For Output As #1Option Base 1：放在声明部分,强制数组从1开始索引,(如果不习惯从0开始的话)Option Explicit：强制声明变量(放在窗体或模块的声明部分)PopupMenu调出弹出式菜单。
格式：PopupMenu弹出式菜单名, flags, x, y, Boldcommand（只有前面两项为必选）。
Flags变元定义弹出菜单的位置和功能（可用逻辑“或”运算符组合）；BoldCommand变元指定黑体显示的菜单命令名（只能有一个，常用于表示缺省值）。
Flags变元的值：常量位置或功能VbPopupMenuLeftAlign指定X位置，确定菜单左边沿（缺省）VbPopupMenuCenterAlign指定X位置，确定弹出菜单左中点。
VbPopupMenuRightAlign指定X位置，确定弹出菜单右边沿。
VbPopupMenuLeftButton用户用鼠标左键单击菜单项目时，弹出菜单触发Click事件（缺省）。
wincc中常用的vb指令
在WinCC中，常用的VB指令有很多，以下是一些常见的示例：
1. **ScreenItems**：这个函数用于获取屏幕上的项目。
例如，你可以使用`ScreenItems(圆1)`来获取名为"圆1"的项目。
2. **HMIRuntime.Screens**：这个函数用于获取要操作的窗体。
例如，你可以使用`HMIRuntime.Screens(Home1)`来获取名为"Home1"的窗体。
3. **Set**：这个函数用于设置对象的属性。
例如，你可以使用`Set objCircle= ScreenItems(圆1)`来获取名为"圆1"的项目并将其赋值给`objCircle`变量。
4. **InStr**和**InStrRev**：这两个函数都在主字符串中搜索子字符串，并返回找到的子字符串在主字符串中出现的位置。
不同之处在于，InStr从左到右搜索，而InStrRev从右到左搜索。
以上只是WinCC中VB指令的一部分，还有很多其他的指令和函数可供使用，具体取决于你的需求和场景。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB命令大全命令Call：调用事件处理器Close关闭用Open命令所打开文件的输入输出。
格式：Close #文件号1, #文件号2……。
若无文件号，则关闭打开的所有活动文件。
Const：声明常量,格式:Const常量名[As类型] =常量值DoEvents：让应用程序提供少量时间处理等待的任务，然后控制权立即返回应用程序。
Dim声明变量，格式：Dim变量名As变量类型Exit sub：中途退出子程序End：结束程序Global：声明全局变量Load：装入窗体MsgBox消息内容：将结果显示在消息框中Open打开或保存文件。
格式：Open文件全名For模式As #文件号[Len =文件长度]其中，模式有：Append、Binary、Input、Output、Random(缺省)；文件号在1到511之间，可用FreeFile函数取得；文件长度在1到32767之间。
例：Open CommonDialog1. For Output As #1Option Base 1：放在声明部分,强制数组从1开始索引,(如果不习惯从0开始的话)Option Explicit：强制声明变量(放在窗体或模块的声明部分)PopupMenu调出弹出式菜单。
格式：PopupMenu弹出式菜单名, flags, x, y, Boldcommand（只有前面两项为必选）。
Flags变元定义弹出菜单的位置和功能（可用逻辑“或”运算符组合）；BoldCommand变元指定黑体显示的菜单命令名（只能有一个，常用于表示缺省值）。
Flags变元的值：常量位置或功能VbPopupMenuLeftAlign指定X位置，确定菜单左边沿（缺省）VbPopupMenuCenterAlign指定X位置，确定弹出菜单左中点。
VbPopupMenuRightAlign指定X位置，确定弹出菜单右边沿。
VbPopupMenuLeftButton用户用鼠标左键单击菜单项目时，弹出菜单触发Click事件（缺省）。
VbPopupMenuRightButton用户用左鼠标键或右鼠标键单击菜单项目时，弹出菜单触发Click事件print：显示Public：用以代替Dim,声明变量为公用变量Public Const：用以代替Const,声明为公用常量Set：设置对象变量的值。
格式：Set a =控件名Static：用以代替Dim,强制局部变量在不同过程调用之间保持其数值TypeOf求出（或判断）对象变量的类型值。
格式：TypeOf对象名Is对象类型。
例：If TypeOf Soource Is Textbox Then …UnLoad：卸出窗体Write将已打开的文件内容显示到文本框中，例：Write #FNum, Text1.Text（FNum 为打开文件的文件号，前面要加“#”号）语句For循环规定循环多少次，例：For I = 1 To 5……Next IWhile循环如果符合某条件则……，否则……。
例：While A > 0……Wend……方法Add向集合中增加项目，格式如下：（befor为插到前面，after为插到谁的前面或后面）。
格式：集合名.Add主题词,变元名, befor, after例：工资.Add 680, "12月", ,"11月"(或after:="11月")AddItem向列表框中增加项目。
格式：列表框名.AddItem "项目名"Clear清除所有内容(列表框、组合框等)Drag使源控件既可以拖动，又可以响应鼠标事件（就象拖动时将DragMode属性暂时设为“1”一样）。
用MouseDown事件调用，常与[CTRL]等功能键结合使用。
例：If Shift = 2 Then源控件名.DragGetFormat()Clipboard对象（剪切板）方法，检查剪切板中的内容。
检查剪贴板中是否包含文本：If Clipboard.GetFormat(vbCFText) ThenGetTextClipboard对象（剪切板）方法，从剪切板中取得数据。
格式：变量= Clipboard.GetTextHide隐藏窗口Item返回集合中的项目值，格式：集合名.Item(项目名或索引号)Move调整窗体或控件的大小和位置。
格式：窗体或控件名.MoveLeft,Top,width,HeightParent访问控件所在的窗体。
例：a = （在拖放操作中访问源控件所在窗体的名称）（拖动操作的目标控件并不关心源控件来自何方）Refresh更新显示。
例：form.refreshRemove删除集合项目，格式：集合名.Remove项目名（项目名可以是索引号）RemoveItem从列表框或组合框中删除项目。
格式：组合框名.RemoveItem, index 或组合框名.RemoveItem “项目名”SetFocus移动焦点到某一控件上SetTextClipboard对象（剪切板）方法，将内容放到剪切板中。
格式：Clipboard.SetText变量或常量Show打开某个窗体。
格式：Form.ShowShowColorCommonDialog调用Windows的颜色窗口。
例：CommonDialog1.ShowColorShowFontCommonDialog调用Windows的字体窗口ShowOpenCommonDialog调用Windows的打开窗口ShowSaveCommonDialog调用Windows的保存窗口。
事件Activate活动事件（激活状态）Click左键单击Change控件内容改变时触发，提示上次save以来改变数据时保存数据。
DblClick 双击左键Deactivate非活动事件（未激活状态）DragDrop响应被拖动的控件的放置事件。
格式：Sub控件名_DragDrop(Source As Control, X As Single, Y As Single)。
其中Source变元表示被放置的控件对象。
Control项目可以是窗体上的任何控件。
（参见TypeOf关键字）DragOver响应拖过的控件的事件请求。
格式：Sub Label1_DragOver(Source As Control, X As Single, Y As Single, State As Integer)。
其中State变元对应于被拖动的控件的瞬时状态，其值如下：0：源控件进入目标区域；1：源控件离开目标区域；2：源控经过目标区域。
GotFocus某控件接受焦点KeyDown键按下时触发KeyUp键弹起时触发KeyPress敲键盘时触发（常用）。
在change事件中设置变量状态，即可加入该特性LostFocus某焦点控件退出焦点MouseDown按住鼠标键MouseUp释放鼠标键MouseMove鼠标经过控件时连续发生Resize改变窗体大小属性ActiveControl窗体属性，用于访问当前活动控件。
例：访问当前活动控件名：Action公用对话框控件的属性，赋值后将显示打开、打印等相应的公用对话框，用showOpen等方法则更直观，其数值如下：方法数值说明ShowOpen1显示Open对话框ShowSave2显示Save As对话框ShowColor3显示Color对话框ShowFont4显示Font对话框ShowPrinter5显示Printer对话框或Print Options对话框。
ShowHelp6显示Windows Help工具Alignment标签名左对齐（0）、右对齐（1）、居中对齐（3）Appearance若为0，是平面外观；若为1，是三维外观BackColor背景颜色BorderStyle三维外观（1-Fixed single）BorderStyle确定窗体样式、外观。
若为0-None则无可见边框和标题条，无法调整大小；若为1则有可见边框，但无法调大小；为2时，有边框和标题条，可调大小和位置；为3时，固定对话框；为4时，窗体外观象工具条，有Close 钮，但无法调大小；为5时，同上，但可调大小。
Caption不接受输入的控件的标签文本CancelErrorCommonDialog控件公用属性，指定单击Cancel钮时是否产生错误。
若取False钮则单击Cancel钮时其或Color属性值为空。
取True（缺省）时，返回的错误号为32755（可用If Err.Number语句判断）。
Checked菜单前是否有对钩，即菜单编辑器中的“复选”属性（有些菜单命令是触发式的，通常用选定表示打开，用取消表示关闭）。
Count返回集合中的项目数，格式：集合名.CountColorCommonDialog控件属性，指定选取的颜色。
在Font对话框中要使用它，先要将Flags属性设为cdllFEffects。
DefaultExtCommonDialog属性，缺省的文件类型。
例：CommonDialog1.DefaultExt = "YZH"DialogTitleCommonDialog控件公用属性，返回或设置对话框标题条中显示的字符串。
DragMode确定该控件能否用鼠标拖动。
0-Manual：拖动操作必须在程序中进行（手动）；1-Automatic：可以用鼠标拖动控件（自动）。
注意：设为True时，不再响应通常的鼠标事件。
Enabled缺省为True，可变为焦点，False则变为灰键。
属性，打开文件的全名FilterCommonDialog属性，文件类型列表中的项目。
例：CommonDialog1.Filter = "YZH文件|*.YZH|纯文本文件|*.TXT|所有文件|*.*"FlagsCommonDialog属性，调整每个公用对话框的功能，取值因对话框不同而不同。
组合时将数值相加或用or运算符。
Color公用对话框常量数值说明CdlCCFullOpen&H2显示完整对话框，包括Define Custom Colors部分CdlCChelpButton&H8在对话框中显示Help钮CdlCCPreventFullOpen&H4隐藏Define Custom Colors部分（提供用户自定义颜色）CdlCCRGBInit&H1设置打开这个对话框时显示的初始选择颜色Font公用对话框ForeColor前景颜色Font字体、字符串特性、字号FontBold加粗显示文字FontItalic倾斜显示文字FontName返回字体名。
FontSize返回字号FontStrikethru文字中间是否带删除线FontUnderline文字下方是否带下划线Height控件的高HideSelection 文本框属性，当文本框失去焦点时是否取消反白显示所选文本。