VB语句集200句
一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常用(chánɡ yònɡ)语句vb常用(chánɡ yònɡ)语句Vb常用(chánɡ yònɡ)语句解析(jiě xī)下面(xià mian)10条语句(yǔjù)是最常用的语句，将指针移到上面按ctrl键单击可查看用法：包括功能、语法、参数(cānshù)、举例等。
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（赋值语句即=）功能：将表达式的值赋给变量或属性。
语法(yǔfǎ)[Let] varname = expressionLet语句(yǔjù)的语法包含下面部分：部分描述Let可选的。
显式使用Let关键字也是一种格式，但通常都省略该关键字。
varname必需的。
变量或属性的名称；遵循标准变量命名约定。
expression必需的。
赋给变量或属性的值。
2、call语句(yǔjù)将控制权转移(zhuǎnyí)到一个Sub 过程(guòchéng)，Function 过程，或动态连接库(DLL)过程。
语法[Call] name [argumentlist]Call语句的语法具有以下几个部分：部分描述Call可选参数；关键字。
如果指定了这个关键字，则argumentlist必须加上括号，例如：�Call MyProc(0)name必要参数，要调用的过程名称。
argumentlist�说明(shuōmíng)调用一个过程(guòchéng)时，并不一定要使用Call关键字。
如果(rúguǒ)使用Call关键字来调用一个需要参数(cānshù)的过程，argumentlist 就必须要加上括号(kuòhào)。
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常用语句
1.選取list控件的多個選項Dim k As IntegerDim msql As StringSQL = "select sn from gm1_carton_log where batch_no='" & Trim(Text1.Text) & "' and wo_no in "For k = 0 To List2.ListCount - 1msql = msql & "'" & Trim(List2.List(k)) & "',"Next kmsql = Left(msql, Len(msql) - 1)SQL = SQL & "(" & msql & ")"2.自動執行程式Timeleft=autocloseAutoclose=5Private Sub Timer1_Timer()TimeLeft = TimeLeft - 1lblTimeRemaining.Caption = TimeLeftIf TimeLeft = 0 ThenTimer1.Enabled = FalseCall OKButton_ClickEnd IfEnd Subbox控件的用法With Combo1SQL = ""SQL = "select distinct(b.invoice_no) from gm1_ship_invoicea,gm1_ship_ms b where a.invoice_no=b.invoice_no and b.ship_fg='OPEN' "Set rs = DB.Execute(SQL)If Not rs.EOF Thenrs.MoveFirstDo While Not rs.EOFCombo1.AddItem Trim(rs!invoice_no)rs.MoveNextLoopEnd IfEnd With2.MsflexGrid的用法Private Sub Initgrddata()With grddata.Cols = 6.Row = 0.Col = 0: .Text = "No.".Col = 1: .Text = "Model.".Col = 2: .Text = "WO_NO.".Col = 3: .Text = "Carton_No.".Col = 4: .Text = "Description.".Col = 5: .Text = "CDT.".ColWidth(0) = 500.ColWidth(1) = 1500.ColWidth(2) = 1500.ColWidth(3) = 1500.ColWidth(4) = 1500.ColWidth(5) = 1500End WithEnd SubIf rs.RecordCount > 0 ThentxtCount.Text = rs.RecordCountgrddata.Rows = 1While Not rs.EOFgrddata.AddItem grddata.Rows & _Chr(9) & rs!model & _Chr(9) & rs!wo_no & _Chr(9) & rs!carton_no & _Chr(9) & rs!Description & _Chr(9) & rs!cdtrs.MoveNextWendEnd If1.連結數據庫db.CursorLocation = adUseClientdb.Open "Provider=MSDAORA.1;Password=jackjai;User ID=gemtek_line1;Data Source=gemtek_sfcs;Persist Security Info=True"Option ExplicitPublic SQL As StringPublic db As New ADODB.ConnectionPublic rs As New ADODB.Recordset2.定義文本框Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii >= 97 And KeyAscii <= 122 ThenKeyAscii = KeyAscii - 32End IfIf KeyAscii = 13 ThenIf Len(Text1.Text) = 12 ThenSQL = ""SQL = "select * from mac_133 where mac='" & Trim(Text1.Text) & "'"Set rs = DB.Execute(SQL)If rs.RecordCount > 0 Thenpflag = Trim(rs!flag)ptime = Trim(rs!cdt)pmac = Trim(rs!Mac)Me.Top = (Screen.Height - Me.Height) / 2Me.Left = (Screen.Width - Me.Width) / 2Me.Picture = LoadPicture(App.Path & "\LOAD.WMF")3.sql語句的應用SQL = ""SQL = "select * from GM1_TESTV ALUES_LOG whereGM1_TESTV ALUES_LOG.wo_no='" & Trim(Text1.Text) & "'"Set RS = DB.Execute(SQL)If RS.RecordCount > 0 ThenDataGrid1.SetFocusSet DataGrid1.DataSource = RSINSERT 語劇db.BeginTransSQL = "insert into mac_temp (mac,in_time) values('" &Trim(TxtDCode) & "',sysdate) "'MsgBox (sql)db.Execute (SQL)mm = mm + 1' lbltotal = "Total:" & mmmitTrans'檢查插入MAC成功lblOK.Caption = "OK"lblOK.ForeColor = vbBluelblErrMsg.ForeColor = vbBluelblErrMsg.Caption = "CHECK MAC-" & Trim(TxtDCode) & "成功！！" TxtDCode.Text = ""TxtDCode.SetFocussavedata4.定義模組(username)End Function5.定義模組2(語言切換)MdlLanMgr.bas ：Attribute VB_Name = "ModuleLanMgr"Option ExplicitPrivate Declare Function GetPrivateProfileString& Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String)Private LanguageFileName As String'选择语言Public Sub SelectLanguage(LanName As String)On Error Resume NextSelect Case LanName '根据用户选择的语言的名称，分别读取不同的语言文件Case "English":LanguageFileName = AddSplash(App.Path) & "n"Case "Chinese(Simplify)":LanguageFileName = AddSplash(App.Path) & "n"Case "Chinese(Traditional)":LanguageFileName = AddSplash(App.Path) & "n"Case Else:LanguageFileName = ""End SelectEnd Sub'翻译文字Public Function TranslateStr(sSection As String, sKey As String, sDefVal As String) As StringDim sValue As String * 128Dim N As LongOn Error Resume NextTranslateStr = sDefValIf Not FileExists(LanguageFileName) ThenExit FunctionEnd IfN = GetPrivateProfileString(sSection, sKey, sDefVal, sValue, 127, LanguageFileName)If N > 0 ThenTranslateStr = Left(sValue, N)End IfEnd Function'自动转换Form上的一些基本控件（也可自行扩展，目前支持CommandButton,Label,OptionButton,CheckButton）Public Sub TranslateForm(Frm As Form)Dim I As LongOn Error Resume NextFrm.Caption = TranslateStr(, "Caption", Frm.Caption)For I = 0 To Frm.Controls.Count - 1If (TypeOf Frm.Controls(I) Is CommandButton) Or (TypeOfFrm.Controls(I) Is Label) _Or (TypeOf Frm.Controls(I) Is OptionButton) Or (TypeOfFrm.Controls(I) Is CheckBox) ThenFrm.Controls(I).Caption = TranslateStr(,Frm.Controls(I).Name, Frm.Controls(I).Caption)End IfNext IEnd Sub6.導入Excel(FillDataArray)Public Function FillDataArray(asArray(), adoRS As ADODB.Recordset) As Long '将数据送Excel 函数Dim nRow As IntegerDim nCol As IntegerOn Error GoTo FillErrorReDim asArray(100000, adoRS.Fields.Count)nRow = 0For nCol = 0 To adoRS.Fields.Count - 1asArray(nRow, nCol) = adoRS.Fields(nCol).NameNext nColnRow = 1Do While Not adoRS.EOFFor nCol = 0 To adoRS.Fields.Count - 1asArray(nRow, nCol) = adoRS.Fields(nCol).ValueNext nColadoRS.MoveNextnRow = nRow + 1LoopnRow = nRow + 1FillDataArray = nRowExit FunctionFillError:MsgBox Error$Exit FunctionResumeEnd Function7錯誤信息Private Function SfcErrCode(m_err As Integer)Rem 顯示錯誤訊息,代碼,訊息,站別Dim Line1, Line2, Line3 As StringDim err_msg As StringSelect Case m_errCase Is = 1000Line2 = "Mac - " & Trim(TxtDCode) & " , MAC Not Found!!"Line3 = "或者此Mac未過CNC,請查明原因!!"Case Is = 1100Line2 = "Mac - " & Trim(TxtDCode) & " , MAC Duplicate!!"Line3 = "刷入時間: " & Trim(rs!in_time)Line4 = "此Mac 已刷過此程式,請查明是否重覆刷過資料!!"Case Is = 1200Line2 = "插入MAC-& Trim(RS!in_time) &成功！！"End SelectlblErrMsg.ForeColor = vbRed' NG_BeeplblErrMsg.Visible = TruelblOK.Visible = TrueLine1 = "錯誤代碼= " & m_errerr_msg = Line1 & vbCrLf & Line2 & vbCrLf & Line3 & vbCrLf & Line4 lblErrMsg.Caption = err_msgEnd Function7.加入圖形Private Sub MDIForm_Load()' Call gDisableMenuIf App.PrevInstance ThenMsgBox "This Program already executed.", vbOKOnlyEndEnd IfMe.Top = (Screen.Height - Me.Height) / 2 ' Me is for the FormMe.Left = (Screen.Width - Me.Width) / 2 ' Screen gives your Screen DetailsMe.Picture = LoadPicture(App.Path & "\load.wmf")Me.WindowState = 2End Sub打印文件Data_file = App.Path & "\temp.txt"Label_file = App.Path & "\label.btw"log_file = App.Path & "\log.txt"*text中只能輸入數字*Sub text1_keypress(keyascii as integer)If keyascii<48 or keyascii>57 thenKekyascii=0End ifEnd sub自動選擇文字Private Sub Text1_GotFocus()Text1.SelStart = 0Text1.SelLength = Len(Text1)End Sub一個程序只運行一次Dim title As StringIf App.PrevInstance Thentitle = App.titleCall MsgBox("程序已經執行,且只能執行一個", vbInformation) App.title = ""AppActivate titleUnload frmLoginEnd If點幾右健彈出對話框Private Sub Form〞MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = vbRightButton ThenPopMenu.Visible = TruePopupMenu PopMenuEnd IfEnd Sub杅睿髒杅苺桄If i% And 1 Then' 杅Else'髒杅End If衱ㄩ髒杅苺桄ㄩbool_IsEven = int_Number MOD 2 = 0bool_IsEven = int_Number AND 1 = 0瓚剿珨跺爛爺岆瘁峈 爛Private Sub Command1_Click()Print 2000,Print IsLeapYearA(2000),Print IsLeapYearB(2000)Print 1999,Print IsLeapYearA(1999),Print IsLeapYearB(1999)Print 1998,Print IsLeapYearA(1998),Print IsLeapYearB(1998)Print 1997,Print IsLeapYearA(1997),Print IsLeapYearB(1997)Print 1996,Print IsLeapYearA(1996),Print IsLeapYearB(1996)End SubFunction IsLeapYearA(ByVal yr As Integer) As BooleanIf ((yr Mod 4) = 0) ThenIsLeapYearA = ((yr Mod 100) > 0) Or ((yr Mod 400) = 0)End IfEnd FunctionPublic Function IsLeapYearB(ByVal yr As Integer) As Boolean IsLeapYearB = Day(DateSerial(yr, 2, 29)) = 29End Function。
VBA 语法大全
[VBA] 语法大全200句VBA语句集200句VBA语句集定制模块行为(1) Option Explicit '强制对模块内所有变量进行声明Option Private Module '标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示Option Compare Text '字符串不区分大小写Option Base 1 '指定数组的第一个下标为1(2) On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息(3) On Error GoTo ErrorHandler '当错误发生时跳转到过程中的某个位置(4) On Error GoTo 0 '恢复正常的错误提示(5) Application.DisplayAlerts=False '在程序执行过程中使出现的警告框不显示(6) Application.ScreenUpdating=False '关闭屏幕刷新Application.ScreenUpdating=True '打开屏幕刷新(7) Application.Enable.CancelKey=xlDisabled '禁用Ctrl+Break中止宏运行的功能工作簿(8) Workbooks.Add() '创建一个新的工作簿(9) Workbooks(「book1.xls」).Activate '激活名为book1的工作簿(10) ThisWorkbook.Save '保存工作簿(11) ThisWorkbook.close '关闭当前工作簿(12) ActiveWorkbook.Sheets.Count '获取活动工作薄中工作表数(13) '返回活动工作薄的名称(14) 『返回当前工作簿名称ThisWorkbook.FullName 『返回当前工作簿路径和名称(15) ActiveWindow.EnableResize=False 『禁止调整活动工作簿的大小(16) Application.Window.Arrange xlArrangeStyleTiled 『将工作簿以平铺方式排列(17) ActiveWorkbook.WindowState=xlMaximized 『将当前工作簿最大化工作表(18) edRange.Rows.Count 『当前工作表中已使用的行数(19) Rows.Count 『获取工作表的行数(注：考虑向前兼容性)(20) Sheets(Sheet1).Name= 「Sum」'将Sheet1命名为Sum(21) ThisWorkbook.Sheets.Add Before:=Worksheets(1) '添加一个新工作表在第一工作表前(22) ActiveSheet.Move After:=ActiveWorkbook. _Sheets(ActiveWorkbook.Sheets.Count) '将当前工作表移至工作表的最后(23) Worksheets(Array(「sheet1」,」sheet2」)).Select '同时选择工作表1和工作表2(24) Sheets(「sheet1」).Delete或Sheets(1).Delete '删除工作表1(25) ActiveWorkbook.Sheets(i).Name '获取工作表i的名称(26) ActiveWindow.DisplayGridlines=Not ActiveWindow.DisplayGridlines '切换工作表中的网网格线显示，这种方法也可以用在其它方面进行相互切换，即相当于开关按钮(27) ActiveWindow.DisplayHeadings=Not ActiveWindow.DisplayHeadings 『切换工作表中的行列边框显示(28) edRange.FormatConditions.Delete 『删除当前工作表中所有的条件格式(29) Cells.Hyperlinks.Delete 『取消当前工作表所有超链接(30) ActiveSheet.PageSetup.Orientation=xlLandscape或ActiveSheet.PageSetup.Orientation=2 '将页面设置更改为横向(31) ActiveSheet.PageSetup.RightFooter=ActiveWorkbook.FullName 『在页面设置的表尾中输入文件路径ActiveSheet.PageSetup.LeftFooter=erName 『将用户名放置在活动工作表的页脚单元格/单元格区域(32) ActiveCell.CurrentRegion.Select或Range(ActiveCell.End(xlUp),ActiveCell.End(xlDown)).Select'选择当前活动单元格所包含的范围，上下左右无空行(33) Cells.Select 『选定当前工作表的所有单元格(34) Range(「A1」).ClearContents '清除活动工作表上单元格A1中的内容Selection.ClearContents '清除选定区域内容Range(「A1:D4」).Clear '彻底清除A1至D4单元格区域的内容，包括格式(35) Cells.Clear '清除工作表中所有单元格的内容(36) ActiveCell.Offset(1,0).Select '活动单元格下移一行，同理，可下移一列(37) Range(「A1」).Offset(ColumnOffset:=1)或Range(「A1」).Offset(,1) 『偏移一列Range(「A1」).Offset(Rowoffset:=-1)或Range(「A1」).Offset(-1) 『向上偏移一行(38) Range(「A1」).Copy Range(「B1」) '复制单元格A1，粘贴到单元格B1中Range(「A1:D8」).Copy Range(「F1」) '将单元格区域复制到单元格F1开始的区域中Range(「A1:D8」).Cut Range(「F1」) '剪切单元格区域A1至D8，复制到单元格F1开始的区域中Range(「A1」).CurrentRegion.Copy Sheets(「Sheet2」).Range(「A1」) '复制包含A1的单元格区域到工作表2中以A1起始的单元格区域中注：CurrentRegion属性等价于定位命令，由一个矩形单元格块组成，周围是一个或多个空行或列(39) ActiveWindow.RangeSelection.Value=XX '将值XX输入到所选单元格区域中(40) ActiveWindow.RangeSelection.Count '活动窗口中选择的单元格数(41) Selection.Count '当前选中区域的单元格数(42) GetAddress=Replace(Hyperlinkcell.Hyperlinks(1).Address,mailto:,」」) 『返回单元格中超级链接的地址并赋值(43) TextColor=Range(「A1」).Font.ColorIndex 『检查单元格A1的文本颜色并返回颜色索引Range(「A1」).Interior.ColorIndex 『获取单元格A1背景色(44) cells.count 『返回当前工作表的单元格数(45) Selection.Range(「E4」).Select 『激活当前活动单元格下方3行，向右4列的单元格(46) Cells.Item(5,」C」) 『引单元格C5Cells.Item(5,3) 『引单元格C5(47) Range(「A1」).Offset(RowOffset:=4,ColumnOffset:=5)或Range(「A1」).Offset(4,5) 『指定单元格F5(48) Range(「B3」).Resize(RowSize:=11,ColumnSize:=3)Rnage(「B3」).Resize(11,3) 『创建B3：D13区域(49) Range(「Data」).Resize(,2) 『将Data区域扩充2列(50) Union(Range(「Data1」),Range(「Data2」)) 『将Data1和Data2区域连接(51) Intersect(Range(「Data1」),Range(「Data2」)) 『返回Data1和Data2区域的交叉区域(52) Range(「Data」).Count 『单元格区域Data中的单元格数Range(「Data」). Columns.Count 『单元格区域Data中的列数Range(「Data」). Rows.Count 『单元格区域Data中的行数(53) Selection.Columns.Count 『当前选中的单元格区域中的列数Selection.Rows.Count 『当前选中的单元格区域中的行数(54) Selection.Areas.Count 『选中的单元格区域所包含的区域数(55) edRange.Row 『获取单元格区域中使用的第一行的行号(56) Rng.Column 『获取单元格区域Rng左上角单元格所在列编号(57) ActiveSheet.Cells.SpecialCells(xlCellTypeAllFormatConditions) 『在活动工作表中返回所有符合条件格式设置的区域(58) Range(「A1」).AutoFilter Field:=3,VisibleDropDown:=False 『关闭由于执行自动筛选命令产生的第3个字段的下拉列表名称(59) Range(「A1：C3」).Name=「computer」『命名A1：C3区域为computer或Range(「D1：E6」).Name=「Sheet1!book」『命名局部变量，即Sheet1上区域D1：E6为book或Names(「computer」).Name=「robot」『将区域computer重命名为robot(60) Names(「book」).Delete 『删除名称(61) Names.Add Name:=「ContentList」，_RefersTo:=「=OFFSET(Sheet1!A2,0,0,COUNTA(Sheet2!$A:$A))」『动态命名列(62) Names.Add Name:=「Company」,RefersTo:=「CompanyCar」『命名字符串CompanyCar(63) Names.Add Name:=「Total」,RefersTo:=123456 『将数字123456命名为Total。
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基本语句-精选文档
第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章 基本的控制结构
VB循环语句
VB循环语句⼀、Do...Loop 语句当条件为 True 时，或直到条件变为 True 时，重复执⾏⼀个块中的命令。
语法Do [{While | Until} condition][statements][Exit Do][statements]Loop或者可以使⽤下⾯这种语法：Do[statements][Exit Do][statements]Loop [{While | Until} condition]Do Loop 语句的语法具有以下⼏个部分：部分描述condition可选参数。
或，其值为 True 或 False。
如果condition 是，则condition 会被当作False。
statements⼀条或多条命令，它们将被重复当或直到condition 为 True。
说明在 Do...Loop 中可以在任何位置放置任意个数的 Exit Do 语句，随时跳出 Do...Loop 循环。
Exit Do 通常⽤于条件判断之后，例如 If...Then，在这种情况下，Exit Do 语句将控制权转移到紧接在 Loop 命令之后的语句。
如果 Exit Do 使⽤在嵌套的 Do...Loop 语句中，则 Exit Do 会将控制权转移到 Exit Do 所在位置的外层循环。
Do...Loop 语句⽰例本⽰例⽰范如何使⽤ Do...Loop 语句。
内层的 Do...Loop 语句循环到第 10 次时将标志值设置为 False，并⽤ Exit Do 语句强制退出内层循环。
外层循环则在检查到标志值为 False 时，马上退出。
Dim Check, CounterCheck = True: Counter = 0 ' 设置变量初始值。
Do ' 外层循环。
Do While Counter < 20 ' 内层循环。
Counter = Counter + 1 ' 计数器加⼀。
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语句集200句
VB语句集200句一.数据范例、变量、常量类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 forexit 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# 将一个已打开的磁盘文件读入一个变量之中。
Reset 封闭全部用Open 语句打开的文件Seek 设置下一个读/写操纵的位置Chdrive 变化当前的驱动器Chdir 变化当前的目次或文件夹Mkdir 创建目次或文件夹Rmdir 删除目次或文件夹Kill 删除文件Lock、unlock 锁定或解锁文件记录Name 文件得定名On error 打开错误捕获七.错误捕获类Resume 在错误处理惩罚步伐结束后，恢复兴复兴有的运行Error 模仿错误的产生AppActivate 激活一应用步伐窗口八.别的类Shell 运行别的应用步伐Beep 通过谋略机喇叭发出一个声调Date 语句设置当前体系日期Time 设置体系时间Savepicture 将图形生存到文件中Randomize 初始化随机数天生器。
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 如果需要函数的返回值，则应先定义一个变量，然后将函数的返回值赋予变量，这时虽
vb6.0函数和语句大全
Val 函数示例
本示例使用 Val 函数返回字符串中所含的数值。
Dim MyValue
MyValue = Val("2457") ' 返回 2457。
MyValue = Val(" 2 45 7") ' 返回 2457。
MyValue = Val("24 and 57") ' 返回 24。
[格式]：
P=InStr(X,Y)
从X第一个字符起找出Y出现的位置
P=InStr(n,X,Y)
从X第n个字符起找出Y出现的位置
[说明]：
（1） 若在X中找到Y，则返回值是Y第一个字符出现在X中的位置。
（2） InStr(X,Y)相当于InStr(1,X,Y)。
（3） 若字符串长度，或X为空字符串，或在X中找不到Y，则都返回0。
例：Rnd 结果：0--1之间的数
6. Sin(N) 正弦函数
例：Sin(0) 结果：0
7. Sgn(N) 符号函数
' 说明：取正负号。Y=Sgn(X) 既 X>0 则Y=1；X=0 则Y=0；X<0 则Y= -1
8. Sqr(N) 平方根
例：Sqr(9) 结果：3
9. Tan(N) 正切函数
[范例]：
若当前时间为2003年8月29日晚上19点26分45秒，则
P=Now()
结果为：P=2003-08-29 19:26:45
6．MonthName：返回月份名称
[格式]：P=MonthName(X)
[说明]：X参数可传入1---12，则返回值为“一月”、“二月”……，但是在英文Windows环境下，返回的是”January”,”February”……
第3章 VB基本语句
Visual Basic 程序设计
第7章 VB控制结构 VB控制结构
§3.1顺序结构 3.1顺序结构
2.注释、 2.注释、暂停与结束语句 注释
（1）注释语句 • 以 Rem开头，注释整行 ； • 以注释符“'”引导 注释内容从注释符开始直到该行结束 • 利用“编辑”工具栏的 “设置注释块”、“解除注 释块”来设置/取消多行注释。
第7章 VB控制结构 VB控制结构
§3.2.2 IIf函数 IIf函数
2、IIf函数可以嵌套使用 IIf函数可以嵌套使用
例：Print IIf(a<0,-1,IIf(a=0,0,1)) IIf(a<0,-
Visual Basic 程序设计
第7章 VB控制结构 VB控制结构
§3.2.3 多分支控制结构
4. If语句的嵌套 If语句的嵌套
Visual Basic 程序设计
第7章 VB控制结构 VB控制结构
§3.2.2 IIf函数 IIf函数
1. Iif函数----替代IF语句 Iif函数 替代IF 函数--IF语句
格式：Iif(表达式、条件为真的值，条件为假的值) 格式：Iif(表达式、条件为真的值，条件为假的值) 表达式 例：实现将X，Y变量中的大数放入 变量中的大数放入Tmax变量 实现将 ， 变量中的大数放入 变量 • 用If语句：If X > Y Then 语句： 语句 Tmax = X Else Tmax = Y End If • 用Iif函数： 函数： 函数 Tmax = IIf(X > Y, X, Y) Visual Basic 程序设计
Select case Mark K=mark\10 的值类型相同 常用形式为： 类型相同， 的值类型相同，常用形式为： Select case K case is>=90 具体取值， 具体取值，用逗号隔开 casePrint "优" is>=9 如：1 Print "优" ，5，9 case 60 to 90 连续的范围： 连续的范围：界1 TO 界2 case 6 to 8 Print “通过" To 20 如：12 Print “通过" Case Else 满足某个条件：Is运算符 运算符, Case Else 满足某个条件：Is运算符,只能 Print “未通过" Print “未通过" 是单个条件 如：Is>10 Endselect select End三种形式可以组合使用
VB常用语句
VB常用语句关键词： VB语句：1.AppActivate语句激活一应用程序窗口。
语法AppActivate title[, wait]AppActivate 语句的语法具有以下几个命名参数：部分描述title 必需的。
字符串表达式，所要激活的应用程序窗口的标题。
可以使用 Shell 函数返回的任务识别码来替换 title，以激活应用程序。
wait 可选的。
Boolean值，说明在激活另一个应用程序之前调用的应用程序是否有焦点。
如果为 False（缺省），那么，即使调用的应用程序没有焦点，也直接激活指定的应用程序。
如果为 True，则调用的应用程序会等到有焦点后，才激活指定的应用程序。
说明AppActivate 语句将焦点移动到命名的应用程序或窗口，但并不影响焦点是否最大化或最小化。
当用户采取行动改变焦点或将窗口关闭时，就会将焦点从活动的应用程序窗口移动出去。
可用 Shell 函数启动一个应用程序并设置窗口样式。
在决定激活哪个应用程序时，请将 title 与每一个运行中的应用程序的标题字符串进行比较。
如果没有完全匹配，就激活任何这样的应用程序，其标题字符串以 title 开头。
如果以 title 命名的应用程序有很多实例，则激活任何一个实例。
2.Beep语句通过计算机喇叭发出一个声调。
语法Beep说明呼叫的频率与时间长短取决于硬件和系统软件，并随电脑不同而不同。
3.Call语句返回将控制权转移到一个 Sub 过程，Function 过程，或动态连接库 (DLL)过程。
语法[Call] name [argumentlist]Call 语句的语法具有以下几个部分：部分描述Call 可选参数；关键字。
如果指定了这个关键字，则 argumentlist 必须加上括号，例如：Call MyProc(0)name 必要参数，要调用的过程名称。
argumentlist说明调用一个过程时，并不一定要使用 Call 关键字。
VB语言(语句)
ChDir语句
改变当前的目录或文件夹。
语法
ChDir path
必要的 path 参数是一个字符串表达式，它指明哪个目录或文件夹将成为新的缺省目录或文件夹。path 可能会包含驱动器。如果没有指定驱动器，则 ChDir 在当前的驱动器上改变缺省目录或文件夹。
-----------------------------------------------------------------------------------
-----------------------------------------------------------------------------------
arglist 参数的语法以及语法各个部分如下：
[Optional] [ByVal | ByRef] [ParamArray] varname[( )] [As type]
说明
AppActivate 语句将焦点移动到命名的应用程序或窗口，但并不影响焦点是否最大化或最小化。当用户采取行动改变焦点或将窗口关闭时，就会将焦点从活动的应用程序窗口移动出去。可用 Shell 函数启动一个应用程序并设置窗口样式。
在决定激活哪个应用程序时，请将 title 与每一个运行中的应用程序的标题字符串进行比较。如果没有完全匹配，就激活任何这样的应用程序，其标题字符串以 title 开头。如果以 title 命名的应用程序有很多实例，则激活任何一个实例。
name 必需的。任何合法的过程名。注意动态链接库的入口处（entry points）区分大小写。
Lib 必需的。指明包含所声明过程的动态链接库或代码资源。所有声明都需要 Lib 子句。
vb语句
参数功能中文说明acCmdDocMinimize 最小化ACCESS子窗体acCmdAppMinimize 最小化ACCESS窗体acCmdDocMaximize 最大化ACCESS子窗体acCmdQueryTotals 总计查询acCmdAutoDial 自动拔选择的电话号码acCmdFont 字体acCmdSubdatasheetExpandAll 子数据表全部展开acCmdSubdatasheetCollapseAll 子数据表全部收缩acCmdQueryTypeAppend 追加查询acCmdRegisterActiveXControls 注册ACTIVEX控件acCmdProperties 属性acCmdReferences 引用参照acCmdRenameColumn 重命名列acCmdRename 重命名acCmdStopLoadingPage 中止一个网页的加载acCmdEnd 中止程序运行acCmdBringToFront 至于最前acCmdStepToCursor 执行到光标处acCmdPasteAppend 粘贴为新记录acCmdPasteAsHyperlink 粘贴为超级链接acCmdPaste 粘贴acCmdVerticalSpacingIncrease 增加选择对象的间距acCmdHorizontalSpacingIncrease 增加水平间距acCmdBookmarksToggle 增加/删除一条书签acCmdFormHdrFtr 增加/删除页眉页脚acCmdReportHdrFtr 增加/删除报表页眉页脚acCmdOpenNewHyperlink 在新窗口中打开超级链接联接的项目acCmdViewModules 在数据库窗口中显示模块acCmdViewMacros 在数据库窗口中显示宏acCmdViewQueries 在数据库窗口中显示查询acCmdViewReports 在数据库窗口中显示报表acCmdViewList 在数据窗体按列表方式显示项目acCmdViewLargeIcons 在数据窗体按大图标方式显示项目acCmdArrangeIconsByName 在数据窗体按阿拉伯字母顺序排列图标acCmdSelectDataAccessPage 在设计状态下选择整个数据页acCmdSelectForm 在设计状态下选择整个窗体acCmdNewObjectDiagram 在设计窗口中打开一个新的图表acCmdSaveModuleAsText 在模块窗体时打开文件另存对话框acCmdLineUpIcons 在列中排列图标acCmdHideTable 在关系窗口中隐藏表acCmdClearAll 在关系窗口中删除所有的表acCmdMoreWindows 在对话框中显示窗体列表acCmdPreviewOnePage 在打印预览中显示为一页acCmdPreviewFourPages 在打印预览中显示为四页acCmdPreviewTwelvePages 在打印预览中显示为十二页acCmdPreviewTwoPages 在打印预览中显示为两页acCmdPreviewEightPages 在打印预览中显示为八页acCmdViewShowPaneGrid 在查询设计视图中切换网格面板的显示acCmdViewShowPaneDiagram 在查询设计视图中切换关系面板的显示acCmdViewShowPaneSQL 在查询设计视图中切换SQL面板的显示acCmdInsertQueryColumn 在查询设计视图中插入列acCmdViewVerifySQL 在查询设计时校验SQL语法acCmdTableNames 在查询设计器中切换是否显示表名acCmdQueryGroupBy 在查询设计器中切换分组的显示与否acCmdSpelling 运行拼写检查器acCmdRunOpenMacro 运行宏acCmdRun 运行查询acCmdEditHyperlink 允许编辑超链接acCmdApplyFilterSort 应用你在过滤设计窗体输入的过滤条件acCmdHideColumns 隐藏列acCmdWindowHide 隐藏获得焦点的窗体acCmdSend 以缺省的邮件系统发送选择的对象acCmdBookmarksNext 移至下一条书签acCmdBookmarksPrevious 移至上一条书签acCmdRemoveTable 移去表acCmdDocMove 移动ACCESS子窗体acCmdRecordsGoToLast 移到最后一条记录acCmdRecordsGoToNext 移到下一条记录acCmdRecordsGoToPrevious 移到上一条记录acCmdRecordsGoToFirst 移到第一条记录acCmdSubdatasheetRemove 移除子数据表acCmdTransparentBackground 移除窗体的背景acCmdCompactDatabase 压缩数据库acCmdSelectReport 选择整个报表acCmdSelectAllRecords 选择所有记录acCmdSelectRecord 选择当前记录acCmdSelectAll 选择窗口中的所有内容acCmdQueryTypeSelect 选择查询acCmdRepairDatabase 修复数据库acCmdRowHeight 行高acCmdRecordsGoToNew 新增一条记录acCmdNewObjectDataAccessPage 新建数据页acCmdNewDatabase 新建数据库acCmdNewObjectView 新建视图acCmdNewObjectClassModule 新建模块acCmdNewObjectModule 新建模块acCmdNewObjectFunction 新建函数acCmdNewGroup 新建工作组acCmdNewObjectForm 新建窗体acCmdNewObjectQuery 新建查询acCmdNewObjectTable 新建表acCmdNewObjectReport 新建报表acCmdVerticalSpacingMakeEqual 相同选择对象的间距acCmdAutoCorrect 显示自动纠正窗口acCmdAutoFormat 显示自动格式对话框acCmdToolbarsCustomize 显示自定义工具栏对话框acCmdShowTable 显示增加表窗口acCmdUserLevelSecurityWizard 显示用户级安全向导对话框acCmdUserAndGroupAccounts 显示用户和组帐号对话框acCmdUserAndGroupPermissions 显示用户和组权限对话框acCmdAnalyzePerformance 显示性能分析向导窗口。
VB基本语句
VB基本语句.txt大悲无泪，大悟无言，大笑无声。
我们手里的金钱是保持自由的一种工具。
女人在约会前，一定先去美容院；男人约会前，一定先去银行。
★条件判断语句条件判断控制最主要的概念在于条件表达式的功能。
相关的流程控制语句，会依据所给定的测试数据，对程序部分片段作选择性的执行操作。
在VB中提供了If...Then与Select Case两种条件判断语句。
If...Then判断语句 If..Then判断语句属于一种单行假设判断语句，它会按照用户所给定的比较或逻辑表达式进行判断。
当判断结果为“True”也就是真时，则执行Then后的程序代码块，否则跳过该块的执行步骤。
使用语法的方法如下：If 判断式 Then 执行语句或If 判断式 Then执行语句1执行语句2End If 其实上述的两种语法并不相同的，主要差异在于第一种写法是使用在处理程序部分的源代码较短，无需分段的时候：If a > b ThenPrint "a > b" 而当处理程序部分需要分段时，则必须使用第二种写法将执行语句包括在"If...Then...End If"范围中：If a > b Then c = a + b Print "a + b = " & cEnd If而If...Then...Else...End If语句则可以将不符合条件式的情况，交给Else后所接的程序代码来处理：例如：If a < b Then c = a + bElse c = a - bEnd IfPrint c在上面程序片段中，变量C的数值会由条件式”a<b“成立与否而有不同的输出结果。
至于ElseIf的语法也是和If搭配来使用，它主要是用来进行多重逻辑判断。
If...ElseIf...Else...EndIf使用语法的方法如下：If 判断式1 Then //当判断式1成立时，执行以下语句程序语句甲ElseIf 判断式2 Then //当判断式1不成立，但判断式2成立时执行以下语句程序语句乙ElseIf 判断式3 //当判断式1和2都不程序，但判断式3成立时执行以下语句程序语句丙Else //当上面所有判断式都不成立时，执行下面的语句程序语句丁 End If★Select Case判断语句 Select Case流程控制语句可以根据判断式的返回值来执行不同程序代码片段。
VB基础语法
窗体最后一次被卸载时
load
窗体每一次被装入时
unload
窗体每一次被卸载时
queryunload
窗体每一次被卸载时
最新课件
14
Initialize与load事件区别
同样都是发生在窗体被装入时，两者很容易混淆，实际上intialize事 件只有在窗体第一次被装入时发生，而load事件是在窗体每次被装 入时都有发生。
在VB的程序设计中，对象起着最重要的角色，窗体是一个对象， 每一个放置在窗体上控件也都是对象。由于VB是面向对象的程序 设计语言，它的代码结构与对象有着很大关系，在VB中每一
个窗体和控件都有一些预先定义好了的事件。
例：命令按钮对象，当用户单击命令按钮时，命令按钮对象会产 生click事件。
（单击鼠标左键）
endif end sub command1_click
switch=true unload me end sub
Queryunloadd与unload事件有何区别 queryunload比unload事件先发生。
最新课件
16
Queryunload事件比unload事件多了一个unloadmode参数
最新课件
8
（例：编写一个分数等级转换表 分数
>=90 >=80 >=70 >=60 <=60 x = Val(Text1.Text) Select Case x \ 10 Case 10, 9 Text2.Text = "优" Case 8 Text2.Text = "良" Case 7 Text2.Text = "中" Case 6 Text2.Text = "及格" Case 0, 1, 2, 3, 4, 5 Text2.Text = "不及格" End Select
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
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# 将一个已打开的磁盘文件读入一个变量之中。
Reset 关闭所有用 Open 语句打开的文件Seek 设置下一个读/写操作的位置Chdrive 改变当前的驱动器Chdir 改变当前的目录或文件夹Mkdir 建立目录或文件夹Rmdir 删除目录或文件夹Kill 删除文件Lock、unlock 锁定或解锁文件记录Name 文件得命名On error 打开错误捕获七.错误捕捉类Resume 在错误处理程序结束后，恢复原有的运行Error 模拟错误的发生AppActivate 激活一应用程序窗口八.其它类Shell 运行其它应用程序Beep 通过计算机喇叭发出一个声调Date 语句设置当前系统日期Time 设置系统时间Savepicture 将图形保存到文件中Randomize 初始化随机数生成器。
定制模块行为(1) Option Explicit ''强制对模块内所有变量进行声明Option Private Module ''标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示Option Compare Text ''字符串不区分大小写Option Base 1 ''指定数组的第一个下标为1(2) On Error Resume Next ''忽略错误继续执行VBA代码,避免出现错误消息(3) On Error GoTo ErrorHandler ''当错误发生时跳转到过程中的某个位置(4) On Error GoTo 0 ''恢复正常的错误提示(5) Application.DisplayAlerts=False ''在程序执行过程中使出现的警告框不显示(6) Application.ScreenUpdating=False ''关闭屏幕刷新Application.ScreenUpdating=True ''打开屏幕刷新(7) Application.Enable.CancelKey=xlDisabled ''禁用Ctrl+Break中止宏运行的功能工作簿(8) Workbooks.Add() ''创建一个新的工作簿(9) Workbooks(“book1.xls”).Activate ''激活名为book1的工作簿(10) ThisWorkbook.Save ''保存工作簿(11) ThisWorkbook.close ''关闭当前工作簿(12) ActiveWorkbook.Sheets.Count ''获取活动工作薄中工作表数(13) ''返回活动工作薄的名称(14) ‘返回当前工作簿名称ThisWorkbook.FullName ‘返回当前工作簿路径和名称(15) ActiveWindow.EnableResize=False ‘禁止调整活动工作簿的大小(16) Application.Window.Arrange xlArrangeStyleTiled ‘将工作簿以平铺方式排列(17) ActiveWorkbook.WindowState=xlMaximized ‘将当前工作簿最大化工作表(18) edRange.Rows.Count ‘当前工作表中已使用的行数(19) Rows.Count ‘获取工作表的行数(注：考虑向前兼容性)(20) Sheets(Sheet1).Name= “Sum” ''将Sheet1命名为Sum(21) ThisWorkbook.Sheets.Add Before:=Worksheets(1) ''添加一个新工作表在第一工作表前(22) ActiveSheet.Move After:=ActiveWorkbook. _Sheets(ActiveWorkbook.Sheets.Count) ''将当前工作表移至工作表的最后(23) Worksheets(Array(“sheet1”,”sheet2”)).Select ''同时选择工作表1和工作表2(24) Sheets(“sheet1”).Delete或 Sheets(1).Delete ''删除工作表1(25) ActiveWorkbook.Sheets(i).Name ''获取工作表i的名称(26) ActiveWindow.DisplayGridlines=Not ActiveWindow.DisplayGridlines ''切换工作表中的网格线显示，这种方法也可以用在其它方面进行相互切换，即相当于开关按钮(27) ActiveWindow.DisplayHeadings=Not ActiveWindow.DisplayHeadings ‘切换工作表中的行列边框显示(28) edRange.FormatConditions.Delete ‘删除当前工作表中所有的条件格式(29) Cells.Hyperlinks.Delete ‘取消当前工作表所有超链接(30) ActiveSheet.PageSetup.Orientation=xlLandscape或ActiveSheet.PageSetup.Orientation=2 ''将页面设置更改为横向(31) ActiveSheet.PageSetup.RightFooter=ActiveWorkbook.FullName ‘在页面设置的表尾中输入文件路径ActiveSheet.PageSetup.LeftFooter=erName ‘将用户名放置在活动工作表的页脚单元格/单元格区域(32) ActiveCell.CurrentRegion.Select或Range(ActiveCell.End(xlUp),ActiveCell.End(xlDown)).Select''选择当前活动单元格所包含的范围，上下左右无空行(33) Cells.Select ‘选定当前工作表的所有单元格(34) Range(“A1”).ClearContents ''清除活动工作表上单元格A1中的内容Selection.ClearContents ''清除选定区域内容Range(“A1:D4”).Clear ''彻底清除A1至D4单元格区域的内容，包括格式(35) Cells.Clear ''清除工作表中所有单元格的内容(36) ActiveCell.Offset(1,0).Select ''活动单元格下移一行，同理，可下移一列(37) Range(“A1”).Offset(ColumnOffset:=1)或Range(“A1”).Offset(,1) ‘偏移一列Range(“A1”).Offset(Rowoffset:=-1)或Range(“A1”).Offset(-1) ‘向上偏移一行(38) Range(“A1”).Copy Range(“B1”) ''复制单元格A1，粘贴到单元格B1中Range(“A1:D8”).Copy Range(“F1”) ''将单元格区域复制到单元格F1开始的区域中Range(“A1:D8”).Cut Range(“F1”) ''剪切单元格区域A1至D8，复制到单元格F1开始的区域中Range(“A1”).CurrentRegion.Copy Sheets(“Sheet2”).Range(“A1”) ''复制包含A1的单元格区域到工作表2中以A1起始的单元格区域中注：CurrentRegion属性等价于定位命令，由一个矩形单元格块组成，周围是一个或多个空行或列(39) ActiveWindow.RangeSelection.Value=XX ''将值XX输入到所选单元格区域中(40) ActiveWindow.RangeSelection.Count ''活动窗口中选择的单元格数(41) Selection.Count ''当前选中区域的单元格数(42) GetAddress=Replace(Hyperlinkcell.Hyperlinks(1).Address,mailto:,””) ‘返回单元格中超级链接的地址并赋值(43) TextColor=Range(“A1”).Font.ColorIndex ‘检查单元格A1的文本颜色并返回颜色索引Range(“A1”).Interior.ColorIndex ‘获取单元格A1背景色(44) cells.count ‘返回当前工作表的单元格数(45) Selection.Range(“E4”).Select ‘激活当前活动单元格下方3行，向右4列的单元格(46) Cells.Item(5,”C”) ‘引单元格C5Cells.Item(5,3) ‘引单元格C5(47) Range(“A1”).Offset(RowOffset:=4,ColumnOffset:=5)或 Range(“A1”).Offset(4,5) ‘指定单元格F5(48) Range(“B3”).Resize(RowSize:=11,ColumnSize:=3)Rnage(“B3”).Resize(11,3) ‘创建B3：D13区域(49) Range(“Data”).Resize(,2) ‘将Data区域扩充2列(50) Union(Range(“Data1”),Range(“Data2”)) ‘将Data1和Data2区域连接(51) Intersect(Range(“Data1”),Range(“Data2”)) ‘返回Data1和Data2区域的交叉区域(52) Range(“Data”).Count ‘单元格区域Data中的单元格数Range(“Data”). Columns.Count ‘单元格区域Data中的列数Range(“Data”). Rows.Count ‘单元格区域Data中的行数(53) Selection.Columns.Count ‘当前选中的单元格区域中的列数Selection.Rows.Count ‘当前选中的单元格区域中的行数(54) Selection.Areas.Count ‘选中的单元格区域所包含的区域数(55) edRange.Row ‘获取单元格区域中使用的第一行的行号(56) Rng.Column ‘获取单元格区域Rng左上角单元格所在列编号(57) ActiveSheet.Cells.SpecialCells(xlCellTypeAllFormatConditions) ‘在活动工作表中返回所有符合条件格式设置的区域(58) Range(“A1”).AutoFilter Field:=3,VisibleDropDown:=False ‘关闭由于执行自动筛选命令产生的第3个字段的下拉列表名称(59) Range(“A1：C3”).Name=“computer”‘命名A1：C3区域为computer或Range(“D1：E6”).Name=“Sheet1!book”‘命名局部变量，即Sheet1上区域D1：E6为book或 Names(“computer”).Name=“robot”‘将区域computer重命名为robot(60) Names(“book”).Delete ‘删除名称(61) Names.Add Name:=“ContentList”，_RefersTo:=“=OFFSET(Sheet1!A2,0,0,COUNTA(Sheet2!$A:$A))”‘动态命名列Names.Add Name:=“Company”,RefersTo:=“CompanyCar”‘命名字符串CompanyCar(63) Names.Add Name:=“Total”,RefersTo:=123456 ‘将数字123456命名为Total。