第4章程序結(jié)構(gòu)

第4章程序結(jié)構(gòu)順序結(jié)構(gòu)選擇結(jié)構(gòu)循環(huán)結(jié)構(gòu)一、順序結(jié)構(gòu)1語句2Print方法3With結(jié)構(gòu)返回首頁程序語句程序語句包括：基本語句和控制語句?；菊Z句：賦值語句、注釋語句、暫停語句、結(jié)束語句(一)基本語句1、

賦值語句賦值語句是程序設計中最常用、最基本的語句，用于為變量或?qū)ο蟮膶傩再x值，格式如下：格式1：變量名=表達式格式2：[對象名.]屬性名=表達式在格式2中，若省略對象名，則默認對象為當前窗體。對象類型變量的賦值比較特殊，需要使用Set關(guān)鍵字，格式如下：Set對象變量名=表達式

2、注釋語句Rem

在程序的適應位置加上必要的注釋，可以提高程序的可讀性

語法格式：Rem注釋內(nèi)容或′注釋內(nèi)容

功能：在程序中加入注釋內(nèi)容，以便于對程序的理解。例如

Rem交換變量a和b的值

c=a′c為臨時單元

a=bb=c

說明：(1)如果使用關(guān)鍵字Rem，在Rem和注釋內(nèi)容之間要加一個空格。

(2)在其他語句后使用Rem關(guān)鍵字，必須使用冒號(:)與前面的語句隔開。注釋符(單引號’)可以直接寫在其他語句后面。3、加載對象語句Load語法格式：Load對象名功能：把對象名代表的窗體對象、控件數(shù)組元素等加載到內(nèi)存中。說明：使用Load語句可以加載窗體，但不顯示窗體。當VB加載窗體對象時，先把窗體屬性設置為初始值，再執(zhí)行Load事件過程。例如

LoadForml′加載窗體FormlLoadOption(2)′加載控件數(shù)組中的一個元素4、卸載語句Unload格式：Unload對象名功能：從內(nèi)存中卸載指定窗體或控件。

如果卸載的對象是程序惟一的窗體，則將終止程序的執(zhí)行例如

PrivateSubCommand1_Click()UnloadMe′卸載當前窗體

EndSubMe是系統(tǒng)關(guān)鍵字，用來代表當前窗體5、結(jié)束語句End

格式：End功能：結(jié)束程序的運行。也可以單擊工具欄上的“結(jié)束”按鈕6、暫停語句Stop

格式：Stop

功能：暫停程序的運行?？捎糜谡{(diào)試程序(設置斷點)

也可以通過單擊工具欄上的“中斷”按鈕來實現(xiàn)使用Ctrl+Break組合鍵（二）Print方法（1）

1.用Print方法輸出數(shù)據(jù)

Print方法用于在窗體、圖片框或打印機等對象上輸出數(shù)據(jù)，格式如下：[對象名.]Print[輸出項列表][{;|,}]說明：對象名：可以是窗體、圖片框或打印機等對象，若省略對象名，則在當前窗體上輸出數(shù)據(jù)。輸出項列表：要輸出的內(nèi)容（表達式）。若有多個輸出項，可用逗號或分號隔開。分號（；）：各輸出項連續(xù)輸出，中間無空格。Print方法（2）逗號（，）：各輸出項按分區(qū)格式輸出，即將一個輸出行以14個字符的寬度為單位分成若干區(qū)段（稱為“打印區(qū)”），每個區(qū)段輸出一個表達式的值。如果調(diào)用Print方法的語句以分號或逗號結(jié)束，則下一次執(zhí)行Print方法時將在同一行輸出；否則，每執(zhí)行一次Print方法即自動換行。Print方法在Form_Load事件過程中不起作用。如果要在該事件中顯示數(shù)據(jù)，必須在該過程內(nèi)加上Form.Show方法或把窗體的AutoRedraw屬性設置為True。技巧：在輸入Print關(guān)鍵字時可以只輸入問號（?），VB會自動將其翻譯成Print。Print方法（3）2.與Print方法有關(guān)的函數(shù)VB提供了Spc和Tab兩個函數(shù)，用于配合Print方法對輸出進行定位。（1）Spc函數(shù)格式：Spc(n)Spc函數(shù)用于插入n個空格。例如：Print"你好!";Spc(8);"Hello!"輸出結(jié)果：你好!Hello!Print方法（4）（2）Tab函數(shù)格式：Tab[(n)]Tab函數(shù)用于將輸出位置定位于第n列。若省略參數(shù)n，則將插入點移動到下一個打印區(qū)的起點。如果n小于當前顯示位置，則將輸出位置移到下一行第n列。例如：Print"1234567890"Print"Hello";Tab(10);"China"Print"Hello";Tab;"China"Print"Hello";Tab(4);"China"Print方法（5）若在窗體的Form_Click事件中加入以上代碼，則單擊窗體后輸出如圖4.2所示的結(jié)果。圖4.2Tab函數(shù)示例

（三）With結(jié)構(gòu)（1）使用With結(jié)構(gòu)可以對某個對象執(zhí)行一系列語句，而不用重復指出該對象的名稱。With結(jié)構(gòu)的格式如下：With對象

語句塊EndWith例如：要改變一個對象的多個屬性，可以在With結(jié)構(gòu)中添加為該對象的多個屬性賦值的語句，此時只需引用對象一次而不是在每個屬性賦值時都要引用它。下面的示例說明了如何使用With結(jié)構(gòu)來給同一個對象的幾個屬性賦值。With結(jié)構(gòu)（2）'為文本框字體對象的多個屬性賦值WithText1.Font

'下面只需輸入圓點即可引用對象的屬性或方法

.Name="隸書"

'字體名

.Size=12

'字號

.Bold=True

'粗體

.Italic=True

'斜體

.Underline=True

'下劃線EndWith注意：當程序一旦進入With結(jié)構(gòu)，對象就不能改變。因此不能用一個With結(jié)構(gòu)來設置多個不同的對象。

順序結(jié)構(gòu)示例下面通過實例說明順序結(jié)構(gòu)程序設計的特點。【例4.1】求一元二次方程ax2+bx+c=0的根。設計步驟如下：（1）新建工程，在窗體上添加五個文本框、兩個命令按鈕和五個標簽。文本框均采用默認名稱，Text屬性均為空。其他對象的屬性設置如表4.1所示。注：標簽Label7用于顯示二次方程通式的指數(shù)，六號字。

（2）編寫代碼。雙擊【計算】按鈕，打開代碼窗口，輸入以下代碼：

PrivateSubcmdCalcu_Click()DimaAsSingle,bAsSingle,cAsSingleDimDAsSingleDimx1AsSingle,x2AsSinglea=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)D=b*b-4*a*c'二次方程求根的判別式

x1=(-b+Sqr(D))/(2*a)'用求根公式計算x1和x2x2=(-b-Sqr(D))/(2*a)

'顯示結(jié)果，最多保留4位小數(shù)Text4.Text=Format(x1,"0.####")Text5.Text=Format(x2,"0.####")EndSub在【結(jié)束】按鈕的單擊事件中用End語句結(jié)束程序運行。運行程序，單擊【計算】按鈕即可解出方程的根。運行效果如圖4.3所示。注意：上面的程序是有缺陷的。當a=0或判別式（變量D）的值小于0時，將出現(xiàn)錯誤，導致程序崩潰。因此，應設法判斷變量a和D的值所處的范圍，并作相應的處理。這不是順序結(jié)構(gòu)所能完成的任務，需采用下面將要介紹的選擇結(jié)構(gòu)才能實現(xiàn)。

圖4.3二次方程求根

二、選擇結(jié)構(gòu)If語句SelectCase語句

1、If語句

If…Then結(jié)構(gòu)If…Then…Else結(jié)構(gòu)If...Then...ElseIf結(jié)構(gòu)If語句的嵌套

（1）If…Then結(jié)構(gòu)---單分支If…Then結(jié)構(gòu)的流程如圖4.4所示。該結(jié)構(gòu)表示“如果條件滿足就執(zhí)行Then后邊的語句，否則不執(zhí)行任何操作”。語法格式如下：（1）單行形式If條件

Then語句（2）塊（多行）形式If條件

Then

語句塊EndIf一般情況下，“條件”是運算結(jié)果為邏輯值的表達式，若表達式的值為True，則條件成立，若表達式的值為False，則條件不成立?！皸l件”也可以是運算結(jié)果為數(shù)值的表達式，此時VB將表達式的值解釋成邏輯值：0為False，非零為True。需要注意的是，If…Then的單行格式不用EndIf語句，整個語句必須寫在一行上。如果條件為真時需要執(zhí)行多條語句，所有語句必須在同一行上并且以冒號分開，如：If條件

Then語句1：語句2：語句3為了使程序便于維護，提高其可讀性，建議盡量不要采用這種單行多句的形式。如果需要在Then關(guān)鍵字后面執(zhí)行多條語句，應使用塊形式的If…Then…EndIf結(jié)構(gòu)?！纠?】編寫程序，在文本框中輸入一個整數(shù)，判斷該數(shù)是不是偶數(shù)。分析：判斷某整數(shù)的奇偶性，可以檢查該數(shù)能否被2整除。若某數(shù)能被2整除，則該數(shù)為偶數(shù)。設計步驟如下：（1）建立用戶界面，設置對象屬性。各對象的屬性如表4.2所示。表4.2例4.2對象屬性（2）編寫程序代碼?！芭袛唷泵畎粹o的Click事件代碼如下：PrivateSubCommand1_Click()DimxAsIntegerx=Val(Text1.Text)IfxMod2=0ThenLabel2.Caption=x&"是偶數(shù)。"

EndIfEndSub“清除”命令按鈕Click事件的代碼如下：PrivateSubCommand2_Click()Text1.Text=""Label2.Caption=""EndSub運行結(jié)果如圖4.5所示。圖4.5If...Then示例

【例3】限制用戶輸入合法數(shù)據(jù)。文本框是常用的數(shù)據(jù)輸入控件，為了防止用戶輸入錯誤數(shù)據(jù)，可以在文本框的KeyPress事件中檢查用戶的按鍵。KeyPress事件有一個KeyAscii參數(shù)，用于傳送或改變用戶按鍵的ASCII碼。在KeyPress事件過程中將KeyAscii設置為0即可取消按鍵。在本例中，要求只能輸入數(shù)字，若輸入非數(shù)字字符則取消本次按鍵。代碼如下：PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfNotIsNumeric(Chr(KeyAscii))And_ KeyAscii<>8ThenKeyAscii=0EndSub說明：IsNumeric是VB內(nèi)部函數(shù)，用于判斷參數(shù)是否為數(shù)字?！?”是回刪鍵Backspace的ASCII碼?？蓪⑸鲜龃a應用到例4.2中觀察其效果。

（2）if…Then…Else結(jié)構(gòu)---雙分支（1）單行形式If條件

Then語句1Else語句2（2）塊形式If條件

Then

語句塊1Else

語句塊2EndIf【例4.4】改進例4.2，使程序能判斷整數(shù)的奇偶性。分析：判斷某數(shù)的奇偶性，就是檢查該數(shù)能否被2整除，若能被2整除，該數(shù)為偶數(shù)，否則為奇數(shù)。PrivateSubCommand1_Click()DimxAsIntegerx=Val(Text1.Text)If(xMod2)=0ThenLabel2.Caption=x&"是偶數(shù)"

Else'增加Else子句,顯示奇數(shù)

Label2.Caption=x&"是奇數(shù)"

EndIfEndSub（3）If...Then...ElseIf結(jié)構(gòu)語法格式如下：

If條件1Then

語句塊1ElseIf條件2Then

語句塊2．．．ElseIf條件nThen

語句塊nElse

語句塊n+1EndIf【例4.5】改進例4.1求一元二次方程ax2+bx+c=0的根的程序，修正其中的缺陷。分析：首先應判斷方程中二次項的系數(shù)a：若a=0，則不是二次方程，不作求根運算；若a≠0，則根據(jù)判別式b2－4ac的值求根。方程的根有三種情況：①

b2－4ac=0，方程有兩個相等的實根；②

b2－4ac>0，方程有兩個不等的實根；③

b2－4ac<0，方程無實根，有兩個共軛復根。

程序界面設計與例4.1相同。根據(jù)以上分析，將“計算”按鈕單擊事件過程的代碼修改如下：PrivateSubcmdCalcu_Click()DimaAsSingle,bAsSingle,cAsSingleDimDAsSingleDimx1,x2'將x1、x2聲明為變體型，可以存放不同類型的數(shù)據(jù)

a=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)D=b*b-4*a*c'二次方程求根的判別式

Ifa=0Then'a=0,不是二次方程

x1=""x2=""ElseIfD=0Then'a≠0,D=0,方程有相等二實根

x1=-b/(2*a)x2=x1ElseIfD>0Then

'a≠0,D>0,方程有不等二實根

x1=(-b+Sqr(D))/(2*a)x2=(-b-Sqr(D))/(2*a)Elsex1="無實根"'a≠0,D<0,無實根

x2=x1EndIf

'顯示結(jié)果，最多保留4位小數(shù)Text4.Text=Format(x1,"0.####")Text5.Text=Format(x2,"0.####")EndSub在上述代碼中，變量D存放判別式（b2－4ac）的值。實際上，當D=0或D>0時，都是用求根公式計算x1和x2，因此可將兩個ElseIf子句合并：

ElseIfD>=0Then'D≥0，方程有兩個實根

x1=(-b+Sqr(D))/(2*a)x2=(-b-Sqr(D))/(2*a)（4）If語句的嵌套嵌套是指在一個控制結(jié)構(gòu)中插入另一個控制結(jié)構(gòu)。If語句的嵌套是指在一個If語句中插入另一個If語句。內(nèi)嵌的If語句可以出現(xiàn)在關(guān)鍵字Then或Else之后的語句塊中。If語句嵌套常用于復雜的多分支選擇，它的一般形式如下：If條件1Then

…If條件2Then

…EndIf

…EndIf例如，例4.5中二次方程求根的If語句可以改為下面的形式：Ifa=0Then'a=0,不是二次方程

x1=""x2=""Else'a≠0IfD>=0Then'內(nèi)嵌If語句開始。

D≥0，方程有兩個實根

x1=(-b+Sqr(D))/(2*a)x2=(-b-Sqr(D))/(2*a)Elsex1="無實根"'D<0,無實根

x2=x1EndIf'內(nèi)嵌If語句結(jié)束EndIf2、SelectCase語句—多分支語法格式：SelectCase測試表達式

Case值表1

語句塊1

Case值表2

語句塊2

…

Case值表n

語句塊nCaseElse

語句塊n+1EndSelect說明：（1）“測試表達式”可以是數(shù)值表達式或字符串表達式。（2）“值表”與“測試表達式”的類型必需相同。（3）當使用多個表達式組成“值表”時，表達式與表達式之間要用逗號隔開。（4）“值表”由以下形式的表達式組成：形式示例說明（1）表達式Case100+a數(shù)值或字符串表達式（2）一組用逗號分隔的枚舉值Case2,4,6,8測試表達式的值等于2，4，6，8之一（3）表達式1To表達式2Case1To101≤

測試表達式的值

≤10（4）Is關(guān)系運算符表達式CaseIs>20

測試表達式的值>20【例6】設計一個程序，輸入成績，根據(jù)以下條件判斷成績的等級：

90～100等級A80～89等級B70～79等級C60～69等級D60以下

等級E（1）新建工程，在窗體中添加兩個標簽，一個文本框，一個標題為“顯示等級”的命令按鈕。（2）為“顯示等級”按鈕的單擊事件編寫如下代碼：PrivateSubCommand1_Click()DimScoreAsIntegerScore=Val(Text1.Text)SelectCaseScoreCase90To100Label2.Caption=Score&"分為等級A"Case80To89Label2.Caption=Score&"分為等級B"Case70To79Label2.Caption=Score&"分為等級C"Case60To69Label2.Caption=Score&"分為等級D"Case0To59Label2.Caption=Score&"分為等級E"CaseElseLabel2.Caption="成績有誤，請重新輸入！"

EndSelectEndSub三、循環(huán)結(jié)構(gòu)

循環(huán)結(jié)構(gòu)是指對同一程序段重復執(zhí)行若干次，被重復執(zhí)行的語句塊稱為循環(huán)體。循環(huán)體的執(zhí)行與否以及次數(shù)多少視循環(huán)類型和條件而定。VB中常用的循環(huán)語句有For…Next語句和Do…Loop語句。For…Next循環(huán)用于已知循環(huán)次數(shù)的情況下，而Do…Loop循環(huán)主要用于不知道循環(huán)次數(shù)的情況下，在給定的條件滿足時執(zhí)行循環(huán)體。

For…Next循環(huán)Do...Loop循環(huán)循環(huán)的嵌套

1、For…Next循環(huán)---計數(shù)循環(huán)For循環(huán)的語法格式如下：For循環(huán)變量=初值

To終值[Step步長][循環(huán)體]Next[循環(huán)變量]

For…Next循環(huán)簡稱For循環(huán)。如果知道循環(huán)要執(zhí)行多少次時，就可以使用For循環(huán)。For循環(huán)使用一個循環(huán)變量（計數(shù)器）控制循環(huán)體的執(zhí)行次數(shù)。每執(zhí)行一次循環(huán)之后，循環(huán)變量的值就會自動增加或者減少。

格式說明：（1）循環(huán)變量：必須為數(shù)值型。For和Next關(guān)鍵字后面的循環(huán)變量必須相同。（2）初值和終值：均為數(shù)值型，可以是數(shù)值表達式。（3）步長：數(shù)值型，可以是數(shù)值表達式，默認值為1。若步長為正數(shù)，應設初值≤終值；若步長為負數(shù)，應設初值≥終值，否則循環(huán)體不會被執(zhí)行。步長不應為0，否則程序?qū)⑾萑霟o限循環(huán)（死循環(huán)）。（4）循環(huán)體：在循環(huán)中被執(zhí)行的語句塊。若循環(huán)體中無語句，則為空循環(huán)。在循環(huán)體中可根據(jù)條件加入ExitFor語句強制退出循環(huán)。ExitFor通常出現(xiàn)在選擇結(jié)構(gòu)中。

【例4.7】編制程序，計算1＋2＋3＋...＋200的整數(shù)和。在窗體上放置一個命令按鈕，編寫如下代碼：PrivateSubCommand1_Click()DimSumAsInteger,iAsIntegerSum=0Fori＝1To200Sum＝Sum+iNextiPrint"1+2+...+200="&SumEndSub【例4.8】制作ASCII碼對照表。ASCII碼（美國信息交換標準碼）是7位二進制字符集，用來表示標準美制鍵盤上的字母、符號以及控制字符。其中，可打印字符的編碼值范圍為32～126（32=空格）。利用Chr函數(shù)可以將字符代碼轉(zhuǎn)換為對應的字符。（1）設計界面。程序的界面很簡單，窗體上無任何控件。將窗體的背景色設為白色，Caption屬性設為“ASCII碼表”。（2）編寫代碼。由于可打印字符的ASCII碼對照表具有明確的起止范圍，因此，很適于用For…Next循環(huán)制作。單擊窗體時，在循環(huán)中用Print方法將ASCII字符及其代碼直接顯示在窗體上，格式為“字符=字符代碼”，每行顯示8個字符及其代碼，用Tab函數(shù)控制每個ASCII碼的打印位置。程序運行效果如圖4.14所示。窗體單擊事件的代碼如下：PrivateSubForm_Click()DimintASCAsIntegerDimiAsIntegerClsPrintMe.FontSize=10'設置字號

PrintTab(29);"ASCII碼對照表"

Me.FontSize=9

'String函數(shù)返回指定數(shù)目的重復字符Print"";String$(79,"-")

'intASC為循環(huán)變量，并代表要打印的ASCII碼

ForintASC=32To126PrintTab(10*i+3);_ Chr(intASC);"=";intASC;i=i+1Ifi=8Then'每行顯示8個ASCII碼

i=0PrintEndIfNextintASCPrintvbCr;"";String$(79,"-")EndSub圖4.14ASCII碼對照表

2、Do...Loop循環(huán)Do...Loop循環(huán)簡稱Do循環(huán)，主要在循環(huán)次數(shù)未知時使用。Do循環(huán)有兩類語法形式：（1）前測型循環(huán)（先判斷，后執(zhí)行）Do[{While|Until}條件][循環(huán)體]Loop（2）后測型循環(huán)（先執(zhí)行，后判斷）Do[循環(huán)體]Loop[{While|Until}條件]

使用While關(guān)鍵字的前測型和后測型Do循環(huán)的流程如圖4.15和圖4.16所示。使用Until關(guān)鍵字的Do循環(huán)與之相似，只需將圖中的“T”和“F”互換位置即可。

Do循環(huán)的流程圖說明：（1）前測型循環(huán)先判斷條件，如果為真，執(zhí)行循環(huán)體，否則退出，因此有可能一次也不執(zhí)行循環(huán)體；后測型循環(huán)先執(zhí)行循環(huán)體，然后判斷條件，因此至少執(zhí)行一次循環(huán)體。（2）While關(guān)鍵字是指當條件為真時執(zhí)行循環(huán)體；Until與之相反，條件為假時執(zhí)行循環(huán)體，直到條件為真時退出循環(huán)。二者在功能上并無本質(zhì)區(qū)別，只要將條件取反，就可以互相取代。例如，DoWhilex>=10與DoUntilx<10是等價的。（3）在循環(huán)體中可以插入ExitDo語句，隨時跳出循環(huán)。ExitDo通常用于條件判斷之后（如If...Then）。（4）如果省略了“{While|Until}條件”子句，則為無條件循環(huán)，此時應在循環(huán)體內(nèi)適當位置插入ExitDo語句，否則會陷入死循環(huán)?！纠?.9】用DoWhile...Loop循環(huán)計算1到200的奇數(shù)和（1＋3＋5＋...＋199）。在窗體上放置一個命令按鈕，編寫如下代碼：PrivateSubCommand1_Click()DimSumAsInteger,iAsIntegerSum=0i=1DoWhilei<=200Sum=Sum+ii=i+2LoopPrint"1+3+5+...+199="&SumEndSub上述功能亦可用For循環(huán)實現(xiàn)：Fori=1To200Step2Sum=Sum+iNext由此可見，Do循環(huán)完全可以代替For循環(huán)。盡管如此，在已知循環(huán)次數(shù)的情況下，還是應當使用For循環(huán)，它將使程序更加簡潔，效率更高?！纠?.10】用“輾轉(zhuǎn)相除法”求兩個自然數(shù)m和n的最大公約數(shù)。分析：用“輾轉(zhuǎn)相除法”求最大公約數(shù)的計算方法如下：（1）兩數(shù)相除（m除以n），取余數(shù)r；（2）若r≠0，則將除數(shù)改作被除數(shù)，余數(shù)改作除數(shù)（m←n，n←r），重復步驟（1）、（2），直到r=0為止；（3）最后一次相除時所用的除數(shù)就是最大公約數(shù)。程序設計：本例采用Do...LoopUntil循環(huán)實現(xiàn)。程序界面及運行效果如圖4.18所示。

“計算”按鈕單擊事件的代碼如下：PrivateSubCommand1_Click()DimmAsInteger,nAsInteger,rAsIntegerm=Val(Text1.Text)n=Val(Text2.Text)

'若數(shù)據(jù)超出有效范圍，退出本過程

Ifm<=0Orn<=0ThenExitSub

Do'求最大公約數(shù)

r=mModnm=nn=rLoopUntilr=0'r=0時退出循環(huán)

'退出循環(huán)時,m中存放的是最后的除數(shù),即最大公約數(shù)

Label4.Caption="兩數(shù)的最大公約數(shù)="&mEndSub返回首頁返回本節(jié)3、循環(huán)的嵌套在循環(huán)結(jié)構(gòu)中可以嵌套任何循環(huán)結(jié)構(gòu)，也可以嵌套選擇結(jié)構(gòu)?！纠?.11】求100～200之間的素數(shù)。分析：素數(shù)或稱質(zhì)數(shù)，是指一個大于1的整數(shù)，除了1和它本身以外不能被其他正整數(shù)整除，這個數(shù)就是素數(shù)。判斷一個數(shù)n是否為素數(shù)，只要依次用2～

作除數(shù)去除n，若n不能被其中任何一個數(shù)整除，則n即為素數(shù)。本題的求解可用雙重循環(huán)實現(xiàn)，外循環(huán)遍歷100～200之間的所有整數(shù)，內(nèi)循環(huán)判斷各數(shù)是否為素數(shù)。程序設計：在窗體上添加一個命令按鈕，設Caption屬性為“開始”。運行時單擊該按鈕后用Print方法顯示100～200之間的素數(shù)。“開始”按鈕單擊事件的代碼如下：

PrivateSubCommand1_Click()DimnAsInteger,iAsInteger,jAsIntegerDimflagAsBoolean'判斷

n是否為素數(shù)的標志

PrintvbCr;Tab(8);"100～200之間的素數(shù)";_ vbCr;String(35,"-")Forn=100To200