VBProject代码操作代码之常用语句

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得知日期变量内是几年。

一.函数1.Abs函数语法Abs(number)必要的number 参数是任何有效的数值表达式，如果number 包含Null，则返回Null，如果number 是未初始化的变量，则返回0。

说明一个数的绝对值是将正负号去掉以后的值。

例如，ABS(-1) 和ABS(1) 都返回1。

返回参数的绝对值，其类型和参数相同。

2.Array函数返回一个包含数组的Variant。

语法Array(arglist)所需的arglist 参数是一个用逗号隔开的值表，这些值用于给Variant 所包含的数组的各元素赋值。

如果不提供参数，则创建一个长度为0的数组。

说明用来表示数组元素的符号由变量名、圆括号以及括号中的所需元素的索引号组成。

在下面的示例中，第一条语句创建一个Variant 的变量A。

第二条语句将一个数组赋给变量A。

最后一条语句将该数组的第二个元素的值赋给另一个变量。

Dim A As VariantA = Array(10,20,30)B = A(2)使用Array 函数创建的数组的下界受Option Base 语句指定的下界的决定, 除非Array 是由类型库（例如VBA.Array )名称限定。

如果是由类型库名称限定，则Array 不受Option Base 的影响。

注意没有作为数组声明的Variant 也可以表示数组。

除了长度固定的字符串以及用户定义类型之外，Variant 变量可以表示任何类型的数组。

尽管一个包含数组的V ariant 和一个元素为Variant 类型的数组在概念上有所不同，但对数组元素的访问方式是相同的。

3.Asc函数返回一个Integer，代表字符串中首字母的字符代码。

语法Asc(string)必要的string 参数可以是任何有效的字符串表达式。

如果string 中没有包含任何字符，则会产生运行时错误。

说明在非DBCS 系统下，返回值范围为0 –255 。

在DBCS 系统下，则为-32768 –32767。

vb编程代码大全Visual Basic (VB) 是一种广泛用于软件开发的高级编程语言，可以用于开发 Windows 应用程序、Web 应用程序、数据库应用程序等。

在本文中，将介绍一些常用的 VB 编程代码，帮助初学者快速入门和提高编程水平。

一、基本数据类型1. 整型数据在 VB 中，整型数据可以使用 Integer 类型表示，范围为 -32,768 到32,767。

定义整型变量的代码如下：```Dim num As Integernum = 10```2. 浮点数据浮点数据可以使用 Single 或 Double 类型表示，分别表示单精度浮点数和双精度浮点数。

定义浮点变量的代码如下：```Dim num As Singlenum = 3.143. 字符串数据字符串数据可以使用 String 类型表示，可以存储文本数据。

定义字符串变量的代码如下：```Dim str As Stringstr = "Hello, World!"```二、控制流程1. If...Then...Else 语句If...Then...Else 语句用于根据条件执行不同的代码块。

例如：```Dim num As Integernum = 10If num > 0 ThenMsgBox("Num is positive.")ElseMsgBox("Num is negative.")End If2. For 循环For 循环用于重复执行一段代码。

例如：```For i = 1 To 10MsgBox(i)Next i```3. Do While 循环Do While 循环在满足条件时执行代码块。

例如：```Dim i As Integeri = 1Do While i <= 10MsgBox(i)i = i + 1Loop```三、数组1. 一维数组一维数组在 VB 中用于存储相同类型的多个元素。

VB编程程序代码1、求100以内的素Private Sub Form_Click()Dim i%, j%For i = 2 To 100For j = 2 To i - 1If i Mod j = 0 Then Exit For Next jIf j = i Then Print iNext iEnd Sub2、从键盘输入任意长度的字符串，要求将字符顺序倒置例如，将输入的“ABCDEFG”变换成“GFEDCBA”。

Private Sub Command1_Click()Dim a$, I%, c$, d$, n%a = InputBox$("输入字符串")n = Len(a)For I = 1 To Int(n \ 2)c = Mid(a, I, 1)Mid(a, I, 1) = Mid(a, n - I + 1, 1)Mid(a, n - I + 1, 1) = cNext IPrint aEnd Sub3、计算0~200之间所有能被11或5整除的数之和Private Sub Form_Click()Dim n%, i%n = 0For i = 1 To 200If i Mod 11 = 0 Or i Mod 5 = 0 Thenn = n + iEnd IfNext iPrint nEnd Sub4、输入一年份，判断它是否为闰年，并显示有关信息。

（判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除）Private Sub Command1_Click()Dim y%y = InputBox("请输入年数")If y Mod 4 = 0 And y Mod 100 <> 0 Or y Mod 400 = 0 Then MsgBox (y & "年是闰年")ElseMsgBox (y & "年是平年")End IfEnd Sub5、已知x,y,z 3个变量中存放了3个不同的数，比较它们的大小并进行调整，使得x<y<z。

隐藏form1：form1.hide显示form1：form1.show--------------------------------------------------------------------------------------------- 退出程序时，弹出窗口提示是否要退出：Private Sub Form_Unload(Cancel As Integer)Dim iAnswer As IntegeriAnswer = MsgBox("真要退出吗?", vbYesNo)If iAnswer = vbNo ThenCancel = TrueElseEndEnd IfEnd Sub---------------------------------------------------------------------------------------------- 只能用任务管理器关闭程序的代码：Private Sub From_Unload(Cancel As Integer)Cancel = trueEnd Sub------------------------------------------------------------------------------------------------ 点击command1打开33IQ网：Dim strURLPrivate Sub Command1_Click()strURL = "错误！超链接引用无效。

Shell "explorer.exe " & strURL, 1End Sub------------------------------------------------------------------------------------------------ 运行c:\1.exeshell "c:\1.exe"执行c:\1.batshell "c:\1.bat"注：只适用于大部分exe和全部bat。

VB编程常用代码大全讲解学习V B编程常用代码大全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.8)=99; int(-99.2)=100fix(num): 取整 fix(99.8)=99; fix(-99.2)=99round(num,n): 四舍五入取小数位round(3.14159,3)=3.142 中点数值四舍五入为近偶取整 round(3.25,1)=3.2log(num): 取以e为底的对数 num>0exp(n): 取e的n次幂通常用 num^nsin(num): 三角函数，以弧度为值计算(角度*Pai)/180=弧度con(num); tan(num); atn(num)2.字符串函数：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,分割字符串[,次数][,比较方法])：以分割字符串为分割标志将字符串转为字符数组可选参数需同时选3.数据类型转换函数：Cint(str)：转换正数 True -1；False 0；日期距离1899/12/31天数；时间上午段 0；下午段 1；Cstr(str)：日期输出格式yyyy/mm/dd；时间输出格式Am/Pm hh:mm:ss。

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语句集200句.txt人生重要的不是所站的位置，而是所朝的方向。

不要用自己的需求去衡量别人的给予，否则永远是抱怨。

VB语句集200句VB所有语句总结（包括简单功能介绍）下面对VB的几乎所有语句进行简单的分类和介绍。

需要注意的是这里介绍的几乎都是语句，而不是函数，请大家注意VB语句和函数的区别。

一.数据类型、变量、常量类Dim 模块级或过程级中声明变量Global 模块级中声明全局变量，private 功能与Dim相同Static 过程级中声明静态变量Deftype 设置变量缺省类型Let或= 赋值Type …End Type 自定义类型Enum 定义枚举类型Lset、Rset 左或右对齐变量中的一字符串Const 声明用于代替文字量的常数二.程序控制类End 结束程序运行Stop 暂停程序执行进入中断模式Goto 无条件转移If then else 根据条件选择执行某一分支语句块Select case 情况选择控制，选择执行某一语句块Do…loop 循环控制While wend 循环控制For…next 计数循环控制Exit for\exit do 退出循环控件三.过程类Declare 语句用于在模块级中声明外部过程的引用Function 函数过程，文件名可带返回值Sub 过程Call 将控制权转移到一个 Sub 过程，Exit function 退出Funtion过程Exit sub 退出Sub过程四.对象操作类Load 把窗体或控件加载到内存中Unload 从内存中卸载窗体或控件Show/Hide 显示或隐藏窗体With 在一个单一对象或一个用户定义类型上执行一系列的语句Redim 重新声明数组五.数组类Erase 重新初始化数据Option base 设置数组默认值为0或1Open 打于或建立文件六.文件操作类Close 关闭 (I/O) 文件Print # 、Write # 写顺序文件Put# 写随机文件或二进制文件Input# Line Input# 顺序文件中读出数据并将数据指定给变量Get# 将一个已打开的磁盘文件读入一个变量之中。

Vb常用语句解析下面10条语句是最常用的语句，将指针移到上面按ctrl键单击可查看用法：包括功能、语法、参数、举例等。

1、Let（赋值语句即=）3、Dim语句7、If...Then...Else 语句21、Select case6、For...Next 语句19、While...Wend 语句15、Randomize 语句16、Rem 语句17、Static 语句18、Unload 语句1、Let（赋值语句即=）功能：将表达式的值赋给变量或属性。

语法[Let] varname=expressionLet语句的语法包含下面部分：部分描述Let可选的。

显式使用Let关键字也是一种格式，但通常都省略该关键字。

varname必需的。

变量或属性的名称；遵循标准变量命名约定。

expression必需的。

赋给变量或属性的值。

2、call语句将控制权转移到一个Sub过程，Function过程，或动态连接库 (DLL)过程。

语法[Call] name [argumentlist]Call语句的语法具有以下几个部分：部分描述Call可选参数；关键字。

如果指定了这个关键字，则 argumentlist 必须加上括号，例如：Call MyProc(0)?name必要参数，要调用的过程名称。

argumentlist?说明调用一个过程时，并不一定要使用Call关键字。

如果使用Call关键字来调用一个需要参数的过程，argumentlist 就必须要加上括号。

如果省略了Call关键字，那么也必须要省略argumentlis 外面的括号。

如果使用Call 语法来调用内建函数或用户定义函数，则函数的返回值将被丢弃。

若要将整个数组传给一个过程，使用数组名，然后在数组名后加上空括号。

3、Dim语句声明变量并分配存储空间。

语法Dim[WithEvents] varname[([subscripts])] [As[New] type] [, [WithEvents] varname[([subscripts])] [As [New] type]] . . .Dim语句的语法包含下面部分：部分描述WithEvents可选的。

VBProject：代码操作代码之常用语句一、增加模块1．增加一个模块，命名为“我的模块”ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule).Name = "我的模块"系统常量vbext_ct_StdModule=12．增加一个类模块，命名为“我的类”ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_ClassModule).Name = "我的类"vbext_ct_ClassModule=23．增加一个窗体，命名为“我的窗体”ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm).Name = "我的窗体"vbext_ct_MSForm=3二、删除模块1．删除“模块1”ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("模块1")2．删除窗体“UserForm1”ThisWorkbook.VBProject.VBComponents.RemoveThisWorkbook.VBProject.VBComponents("UserForm1")3．删除类模块“类1”ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("类1")4.删除所有的窗体Sub RmvForms()Dim vbCmp As VBComponentFor Each vbCmp In ThisWorkbook.VBProject.VBComponentsIf vbCmp.Type = vbext_ct_MSForm Then ThisWorkbook.VBProject.VBComponents.Remove vbCmpNext vbCmpEnd Sub相关：工作表和ThisWorkbook的模块类型为vbext_ct_Document=100三、增加代码1.在“模块1”中插入代码如果需要在“Sheet1”、“Thisworkbook”、或“Userform1”中操作，用只需将下面的“模块1”换成相应的名称即可。