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 ' 计数器加⼀。
- 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。