【正文】 0。4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION例 . 求兩個整數(shù)的最大公約數(shù)、最小公倍數(shù)Dimn%,m%,nm%,r%m=Val(InputBox(m=))n=Val(InputBox(n=))nm=n*mIfmnThent=m:m=n:n=tr=mmodnDoWhile(r0)m=nn=rr=mmodnLoopPrint最大公約數(shù) =,nPrint最小公倍數(shù) =,nm/n算法使用轉(zhuǎn)碾除法，流程圖如右，實現(xiàn)的程序代碼如下：Event/Title | | Page 51Filename|Date:Lateststatus|Dept.abbreviation|Author39。sinitials五、語句和語法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION例 .打印九九乘法表 .Fori=1To9Forj=1To9se=ij=i*jTab((j1)*9+1)。se。NextjNextiEvent/Title | | Page 52Filename|Date:Lateststatus|Dept.abbreviation|Author39。sinitials五、語句和語法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION3. End 語句 形式： End功能：結(jié)束一個程序的運行。在 VisualBasic中還有多種形式的 End語句，用于結(jié)束一個程序塊或過程。其形式有：EndIfEndSelectEndTypeEndWithEndSubEndFunction等它們與對應(yīng)的語句配對使用。 Event/Title | | Page 53Filename|Date:Lateststatus|Dept.abbreviation|Author39。sinitials五、語句和語法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION4.暫停語句 Stop語句用來暫停程序的執(zhí)行，相當(dāng)于在事件代碼中設(shè)置斷點。語法格式為： Stop說明：1.Stop語句的主要作用是把解釋程序置為中斷 (Break)模式，以便對程序進(jìn)行檢查和調(diào)試。可以在程序的任何地方放置 Stop語句，當(dāng)執(zhí)行Stop語句時，系統(tǒng)將自動打開立即窗口。2.與 End語句不同。 Event/Title | | Page 54Filename|Date:Lateststatus|Dept.abbreviation|Author39。sinitials五、語句和語法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION5.With...EndWith語句 形式：With對象名語句塊EndWith說明： With語句可以對某個對象執(zhí)行一系列的語句，而不用重復(fù)指出對象的名稱。例如，要改變一個對象的多個 屬性 ， 可以在 With控制結(jié)構(gòu)中加上屬性的賦值語句，這時候只是引用對象一次而不是在每個屬性賦值時都要引用它。下面的例子顯示了如何使用 With語句來給同一個對象的幾個屬性賦值。Event/Title | | Page 55Filename|Date:Lateststatus|Dept.abbreviation|Author39。sinitials五、語句和語法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION例 .需要對同一對象設(shè)置幾個屬性。途徑之一是使用多條語句。PrivateSubForm_Load()=退出 (Exit)=500=4500=TrueEndSub使用 With...EndWith語句，上面程序的代碼如下。PrivateSubForm_Load()WithCommand1.Caption=OK.Top=500.Left=4500.Enabled=TrueEndWithEndSubEvent/Title | | Page 56Filename|Date:Lateststatus|Dept.abbreviation|Author39。sinitials五、語句和語法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION6. Exit 語句 Exit語句用于退出 Do...Loop、 For...Next、 Function或 Sub代碼塊。 對應(yīng)的使用格式為： ExitDo、 ExitFor、 ExitFunction、 ExitSub。分別表示退出 DO循環(huán)、 For循環(huán)、函數(shù)過程、子過程。例如：下面的例子是使用 Exit語句退出 For...Next循環(huán)、 Do...Loop循環(huán)及子過程。Event/Title | | Page 57Filename|Date:Lateststatus|Dept.abbreviation|Author39。sinitials五、語句和語法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION例 .下面的例子是使用 Exit語句退出 For...Next循環(huán)、 Do...Loop循環(huán)及子過程。 PrivateSubForm_Click()DimI%,Num%Do39。建立無窮循環(huán)。ForI=1To10039。循環(huán) 100次。Num=Int(Rnd*100)39。生成一個 0~99的隨機數(shù)。SelectCaseNumCase10:ExitFor39。退出 For...Next循環(huán)。Case50:ExitDo39。退出 Do...Loop循環(huán)。Case64:ExitSub39。退出子過程。EndSelectNextILoopEndSubEvent/Title | | Page 58Filename|Date:Lateststatus|Dept.abbreviation|Author39。sinitials五、語句和語法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION例 . 判斷一個給定的整數(shù)是否為素數(shù)。 算法思路：素數(shù)指除了能被 1和自身外，不能被其他整數(shù)整除的自然數(shù)。判斷整數(shù) N是不是素數(shù)的基本方法是：將 N分別除以 2， 3， … ， N1，若都不能整除，則 N為素數(shù)。因為N=Sqr(N)*Sqr(N)，所以，當(dāng) N能被大于等于 Sqr(N)的整數(shù)整除時，一定存在一個小于等于 Sqr(N)的整數(shù)，使 N能被它整除，因此只要判斷 N能否被 2， 3， … ， Sqr(N)整除即可。算法流程圖如下：Event/Title | | Page 59Filename|Date:Lateststatus|Dept.abbreviation|Author39。sinitials五、語句和語法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSIONDimN%,I%,K%N=Val(InputBox(N=？ ))K=Int(Sqr(N))ForI=2ToKIfNModI=0ThenExitForNextIIfIKThenPrintN。是素數(shù) ElsePrintN。不是素數(shù) EndIfEvent/Title | | Page 60Filename|Date:Lateststatus|Dept.abbreviation|Author39。sinitialsThank you for your attention.Event/Title | | Page 61Filename|Date:Lateststatus|Dept.abbreviation|Author39。sinitials演講完畢，謝謝觀看！