vb语句大全
一VB的基本语句.
传说在很久以前，印度有个叫塞萨的人，为了 能使国王忘掉战争，精心设计了一种游戏（国际 象棋）献给国王。国王对这种游戏非常满意，决 定赏赐塞萨。国王问塞萨需要什么，塞萨指着象 棋盘上的小格子说：“就按照棋盘上的格子数， 在第一个小格内赏我1粒麦子，在第二个小格内赏 我2粒麦子，第三个小格内赏4粒，照此下去，每 一个小格内的麦子都比前一个小格内的麦子加一 倍。陛下，把这样摆满棋盘所有64格的麦粒，都 赏给我吧。”国王听后不加思索就满口答应了塞 萨的要求。
课后作业：以下的程序功能是求1+2+3+…+n, 现要求对 给出的程序进行修改，使之实现右边式子的功能。
n=val(text1.text) s=0 for I=1 to n s=s+I next I print s
…
PP*2
P=1 For I=2 to 64 p=p*2 Next I Text1.text=p
麦粒问题算法分析(二)
第i格 第i格存放的麦粒数(设用p表示) 从第1格到第i格总共 需多少的麦粒数（设 用s表示）
1 2 3 4 5 … 64
1
2 4 8 16 PP*2
1பைடு நூலகம்
1+2 1+2+4 1+2+4+8 1+2+4+8+16 SS+P
下面，请同学们帮这位国王算一算，他 到底要赏给塞萨多少麦子？
2 + 2 + 2 + 2 + … + 2
0 1 2 3 63
人工计算这个问题会非常麻烦，即使用计 算器也不方便。 我们能不能用计算机来解决这个问题呢？
计算机程序
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语句大全
VisualBasic是微软公司推出的简单易学、功能强大编程工具，是一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，使用VB能轻而易举地开发适合在Windows 环境下各类应用程序。
语句是程序的基本功能单位，每条语句都有确切的含义，能完成一定的任务。
熟练掌握语句，是开发应用程序的基础。
VB共有语句77个，这里给出72个，另外5个由于很少用到没有给出，它们是Width#语句，设置文件的输出行宽度。
Implements语句，指定要在包含该语句的类模块中实现的接口或类。
其余3个用于声明Property过程的名称，参数以及构成其主体的代码，PropertyGet语句，该Property过程获取一个属性的值；PropertyLet语句，该Property过程给一个属性赋值；PropertySet语句，该Property过程设置一个对象引用。
点击相关语句看详细内容语句描述AppActivate语句激活其它应用程序。
Beep语句通过计算机喇叭发出声音。
Call语句调用一个子程序或函数。
ChDir语句改变当前的路径(目录或文件夹)。
ChDrive语句改变当前的驱动器。
Close语句关闭用Open语句打开的文件。
Const语句声明常量。
Date语句设置当前系统日期。
Declare语句用于在模块或窗体中声明对动态链接库(DLL)中外部过程的引用，在引用API函数时经常用到。
Deftype语句在模块或窗体，为变量和传给过程的参数，设置缺省数据类型，以及为其名称以指定的字符开头的Function和PropertyGet过程，设置返回值类型。
DeleteSetting语句删除指定的Windows注册表的子键。
Dim语句声明局部变量并分配存储空间。
Do...Loop语句循环语句，有两种变形，一种是当条件为True时，重复执行一个语句块中的命令。
另一种重复执行一个语句块中的命令，直到条件变为True时。
End语句结束程序、过程或语句。
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调出弹出式菜单。
格式：常量位置或功能VbPopupMenuLeftAlign指定X位置，确定菜单左边沿（缺省）VbPopupMenuCenterAlign指定X位置，确定弹出菜单xx。
VbPopupMenuRightAlign指定X位置，确定弹出菜单右边沿。
VbPopupMenuLeftButton用户用鼠标左键单击菜单项目时，弹出菜单触发Click事件（缺省）。
VbPopupMenuRightButton用户用左鼠标键或右鼠标键单击菜单项目时，弹出菜单触发Click事件print：显示Public：用以代替Dim,声明变量为公用变量Public Const：用以代替Const,声明为公用常量Set：设置对象变量的值。
vb几种常用语句自己总结
If vbNo = MsgBox("确实要关闭程序？", vbYesNo + vbQuestion, "关闭程序" ) Then
Cancel = 1: Exit Sub
End If
ctExit = True
-----------------------------------------------------------------
__________________________________________________________________________________________________________________________________________________________
MsgBox "回答正确：你是大笨蛋！！！！！！！！！", vbExclamation '惊叹号，提示警告消息
MsgBox "回答正确：你是大笨蛋！！！！！！！！！", vbQuestion '询问消息
MsgBox "回答正确：你是大笨蛋！！！！！！！！！", vbCritical '警告危机消息
Call WinInTop(Me.hwnd) '使本程序显示在最前面 * 有问题
Kill "C:\123.txt" '删除C盘的123.txt文件
VB消息语句：
MsgBox "回答正确：你是大笨蛋！！！！！！！！！" '普通消息
MsgBox "回答正确：你是大笨蛋！！！！！！！！！", vbInformation '信息
VB语句
VB循环语句有：1、do while...loop：当条件为True时循环,，在进入循环之前检查条件。
2、do...loop while:当条件为True循环，在循环至少运行一次后检查条件。
3、do until...loop:当条件为false循环，在进入循环之前检查条件。
4、do.. loop until:当条件为false循环，在循环至少运行一次后检查条件。
5、While...Wend: 当条件为Ture时循环。
6、for....next:指定循环次数，使用计数器重复运行语句。
7、for Each...next:对于集合中的每项或数组中的元素，重复执行每个语句。
8、for Each...in:从一个集合中取出每一个元素。
一、赋值语句：把一个表达式的值交给一个变量保管例： a = 12*5 a 的值变为 60b = "芜湖" + "一中" b 的值变为 "芜湖一中"c = text1.text c 的值变为 text1 中的内容二、选择语句行IF： If 条件 Then 语句1 当条件被满足时，执行语句1块IF： If 条件 Then语句1Else语句2End If当条件被满足时，执行语句1 ，不能被满足时，执行语句2三、循环语句Do …… Loop 语句先测试型： Do While 条件要循环执行的语句Loop后测试型： Do要循环执行的语句Loop While 条件For …… Next 语句For 循环变量＝初值 To 终值要循环执行的语句Next 循环步长（循环步长＝1时，可以不写）。
VB程序的设计VB基本语句-精选文档
第5章 基本的控制结构
For循环
例2: 求10！
例1:求1+2+3+4+ …+10之和. 分析: •重复过程(循环体): + •初值、终值和增量:1、10、1 Dim I, s As Integer For I = 1 To 10 s=s+I Next I Print I, s
分析:
•重复过程:* •初值、终值与增量不变 Dim I, s As Integer s=1 For I = 1 To 10 Fors=1 =1 1 To To 10 10 For II = s=s*I Next I Print I, s
循环体的执行次数是多少 ? 输出的I、S的值是多少 ? For I = 1 To 10执行多少次？
初值与终值换位 可以吗？
程序代码： Dim I%, s % ForI I=10 To Step For = 1 To 10 1 step 1 -1
s=s+I
Next I Print I, s
Visual Basic 程序设计
visualbasicvisualbasic程序设计程序设计第第55章章基本的控制结构基本的控制结构第第55章章基本的控制结构基本的控制结构累加和平均值累加和平均值求素数求素数求数的质因数求数的质因数穷举法穷举法递推法递推法55visualbasicvisualbasic程序设计程序设计第第55章章基本的控制结构基本的控制结构第第55章章基本的控制结构基本的控制结构例1
优：Mark ≥ 90 等级： 通过：60 ≤ Mark ＜ 90 未通过：<60
思考?
Visual Basic 程序设计
第5章 基本的控制结构
vb6.0语句大全讲解
Vb6.0语句大全1、AppActivate 语句激活一应用程序窗口。
语法AppActivate title[, wait]AppActivate语句的语法具有以下几个命名参数：说明AppActivate语句将焦点移动到命名的应用程序或窗口，但并不影响焦点是否最大化或最小化。
当用户采取行动改变焦点或将窗口关闭时，就会将焦点从活动的应用程序窗口移动出去。
可用Shell函数启动一个应用程序并设置窗口样式。
在决定激活哪个应用程序时，请将title与每一个运行中的应用程序的标题字符串进行比较。
如果没有完全匹配，就激活任何这样的应用程序，其标题字符串以title开头。
如果以title命名的应用程序有很多实例，则激活任何一个实例。
AppActivate 语句示例本示例说明使用AppActivate语句来激活应用程序的各种用法。
示例中用到的Shell语句均假定该应用程序已经存在指定的路径中。
Dim MyAppID, ReturnValueAppActivate "Microsoft Word" ' 激活 Microsoft Word。
' AppActivate 也可利用 Shell 函数的返回值。
MyAppID = Shell("C:\WORD\WINWORD.EXE", 1) ' 运行 Microsoft Word。
AppActivate MyAppID ' 激活 Microsoft Word。
' 您也可使用 Shell 函数的返回值。
ReturnValue = Shell("c:\EXCEL\EXCEL.EXE",1) ' 运行 Microsoft Excel。
AppActivate ReturnValue ' 激活 Microsoft Excel。
2、Beep 语句通过计算机喇叭发出一个声调。
VB常用语句
分支语句if [conditions] then [statement]conditions为条件，statement为语句（下同）if [conditions] then[statement]else '如果不满足conditions时，转到else之后的语句[statement]end if----------if [condition1] then[statement]elseif [condition2][statement]...else[statement]end if'这不常用，一般用下面这种select case 变量case 值1 '指变量的值[statement]case 值2[statement]……end select'循环语句do while [conditions] '当满足conditions时，执行条件statementexit do '跳出循环statementloop'一般在语句中都有一个计数变量，例如i=i+1,不然会死循环dostatementexit dostatementloop while conditions这样至少执行一次循环do untill conditions '直到conditions一直都循环...同whileloop--------------(不好意思，untill几个“l”我忘了……)do...loop untill conditions-----------------------下面比较常用for [变量]=[起始值] to [终值] （[步长]）statementexit forstatementnext这一方法的优点是不需要计数器，每next一次都会[变量]+[步长]一般省略步长，因为步长的默认值为1基本语句基本上就这些了，还有一个for each...next的不常用就不加介绍了。
vb语句大全
Beep语句
描述：通过计算机喇叭发出声音。 一、语法：
Beep 二、说明：
呼叫的频率与时间长短取决于硬件和系统软件，并随计算机不同而不同。 三、应用举例：
在调试程序时，有时需要在发生错误时发出音响。本例在程序运行时，如果某一步发生 错误，则转到错误处理入口，使用 Beep 语句让计算机发出响声，同时 MsgBox 函数将提示 错误。
必需的。文字，其它常量，或由除 Is 之外的任意的算术操作符和逻辑操作符所 expression 构成的任意组合。
二、说明： 对于程序中多次出现的数值、文字等最好使用常量，这样在程序运行时不易出错。常量
可以使程序更具可读性，以及易于修改。 在缺省情况下常量是局部的。在 Sub、Function 或 Property 过程中声明的常量都是该过
用 AppActivate 语句时必须打开应用程序，否则程序会报错。所以通常先用 Shell 函数启动 一个应用程序，然后使用 AppActivate 语句激活。 三、应用举例：
本例使用 AppActivate 语句来激活 Microsoft Excel。建立一个标准工程，在窗体上添加 一个命令按钮，将下面的程序粘贴过去。 Private Sub Command1_Click()
若省略 filenumberlist，则将关闭 Open 语句打开的所有活动文件。文件被关闭后，相关 联的缓冲区空间被释放，文件与其文件号之间的关联也将终结。 三、应用举例：
本示例使用 Close 语句来关闭为 Output 而打开的文件。建立一个标准工程，在窗体上 添加一命令按钮，将下面的程序粘贴过去。 Private Sub Command1_Click()
程的局部常量，在类模块声明的常量也是局部的。在标准模块中，可以用 Public 关键字来 声明常量为全局的。