計算機綜合應(yīng)用

1、計算機綜合應(yīng)用1課程內(nèi)容 VB程序設(shè)計中的若干問題（4學(xué)時） 數(shù) 組（4學(xué)時） 過 程（4學(xué)時） 常用標(biāo)準(zhǔn)控件（2學(xué)時） 菜單設(shè)計和文件（2學(xué)時） 文件（2學(xué)時） 數(shù)據(jù)庫應(yīng)用（4學(xué)時） 總復(fù)習(xí)（2學(xué)時）2第一單元 VB程序設(shè)計中的若干問題1.1 VB程序設(shè)計中的基本知識VB集成開發(fā)環(huán)境VB常用術(shù)語數(shù)據(jù)類型運算符與表達(dá)式常用內(nèi)部函數(shù)3一、 VB集成開發(fā)環(huán)境4基本考點如何打開VB應(yīng)用程序?答：直接打開工程文件。此時，系統(tǒng)會自動裝入與該工程有關(guān)的窗體、標(biāo)準(zhǔn)模塊等文件。VB的三種工作模式答：設(shè)計、運行和中斷VB程序的保存答：窗體文件（.frm）和工程文件（.vbp）VB程序的兩種執(zhí)行方式答：解釋方式和

2、編譯方式 5生僻考點在中斷狀態(tài)下可以運行代碼,也可以在運行狀態(tài)中作為輸出結(jié)果的窗口稱為( ).A.本地窗口 B.立即窗口 C.觀察窗口 D.棧窗口 6送分題在“工程資源管理器”窗口頂部有3個按鈕，分別是“【1】”、“查看對象”和“切換文件夾”按鈕。代碼窗口上方有2個下拉列表,左邊的稱為【1】,右邊的稱為過程/事件下拉列表.【對象下拉列表】屬性窗口分為4個部分,分別是【1】,屬性顯示方式,屬性列表,屬性說明.如果屬性窗口被關(guān)閉,按鍵盤上的【1】鍵可以打開屬性窗口,也可以使用工具欄中的窗口屬性按鈕,或使用視圖菜單中的屬性窗口命令 7建立VB應(yīng)用程序的步驟:設(shè)計用戶界面設(shè)置對象屬性編寫程序代碼運行調(diào)

3、試程序保存和編譯文件8二、 VB常用術(shù)語對象屬性方法事件事件過程窗體控件9基本考點對象是什么？答：對象是既包含數(shù)據(jù)，又包含對數(shù)據(jù)進行操作的方法,并將其封裝起來的一個邏輯實體。 對象的三要素答：屬性、事件和方法，其中方法表示對象能完成的動作或操作,它是一種通用的過程和函數(shù)，編寫好并被封裝在對象中,供用戶直接調(diào)用. VB是面向?qū)ο蟮某绦蛟O(shè)計語言，它的兩個基本特點為可視化設(shè)計和事件驅(qū)動的編程機制。 10三、數(shù)據(jù)類型數(shù)據(jù)類型名稱類型符占用字節(jié)數(shù)取值范圍整型Integer%2-3276832767長整型Long&4-21474836482147483767單精度Single!4-3.40E383.40E

4、38雙精度Double#8-1.797D3081.797D308字符型String$065536個字符邏輯型Boolean2True或False(真或假)貨幣型Currency8日期型Date8變體型VariantVB常用基本數(shù)據(jù)類型求N!，若N超出7，則應(yīng)使用長整型或者單精度類型。字符型數(shù)據(jù)要用英文的雙撇號括起來。日期型數(shù)據(jù)往往要用# #括起來。11考點解析（選擇題158題）設(shè) Dim TestDate As Date,為變量TestDate正確賦值的表達(dá)方式是( ). A. TestDate=#1/1/2002# B. TestDate=# 1/1/2002 # C. TestDate=d

5、ate(1/1/2002) D.TestDate=Format( m/d/yy, 1/1/2002 )A121、常量直接常量數(shù)值常量：就是常數(shù)，包括整數(shù)、長整數(shù)、單精度數(shù)和雙精度數(shù)實型常量。字符型常量：是用兩個雙撇號括起來的一串字符。邏輯常量：只有真和假兩個值。日期常量：用兩個#把日期和時間的值括起來就表示日期常量。符號常量：如 Const PI!=3.1415926系統(tǒng)常量：vbcrlfVbCrlf和Chr(13) & Chr(10)等價。132、變量變量的命名規(guī)則變量的分類數(shù)據(jù)類型：整型、長整型、單精度、字符型等。存儲類別：靜態(tài)變量、動態(tài)變量。使用的范圍：全局變量、窗體/模塊級變量、局部變

6、量。變量的定義形式Dim|Public|Private|Static 變量名 As 數(shù)據(jù)類型 變量的作用域存儲類別Public str As StringPrivate n As IntegerDim a As Integer ,b As Singlestatic m As Single通用聲明處用Option Explicit強制顯式聲明所有的變量。14考點解析（選擇題208題）以下聲明語句中錯誤的是( ). A. Const var1=123 B. Dim var2=ABC C. DefInt a-z D. Static var3 As Integer 注： DefInt a-z表示將名稱

7、以 a 至 z 開頭變量的缺省數(shù)據(jù)類型設(shè)為 Integer 類型，只能在模塊級使用 。B15四、運算符與表達(dá)式基本運算符包括：算術(shù)運算符連接運算符關(guān)系運算符邏輯運算符161、運算符的優(yōu)先級算術(shù)運算符連接運算符關(guān)系運算符邏輯運算符高低優(yōu)先級172、表達(dá)式算術(shù)表達(dá)式、關(guān)系表達(dá)式和邏輯表達(dá)式算術(shù)表達(dá)式：算術(shù)表達(dá)式也稱數(shù)值型表達(dá)式，由運算符、數(shù)值常量、變量、函數(shù)和圓括號組成，其結(jié)果為一個數(shù)值。算術(shù)運算符（按優(yōu)先級排列）(1) 指數(shù)運算，也叫乘方運算。 (2)- 取負(fù)運算。(3)* 乘運算；/浮點數(shù)除法運算；(4)整數(shù)除法運算。(5)Mod 取模運算，也叫求余運算。(6)+ 加運算； - 減運算。18

8、將一個數(shù)學(xué)式子改寫成VB語言表達(dá)式時應(yīng)注意以下幾點： 乘號不能省略。例如：2xy要寫成2*x*y; 用圓括號改變運算的優(yōu)先級。用標(biāo)準(zhǔn)數(shù)學(xué)函數(shù)時，自變量應(yīng)寫在一對括號內(nèi)；三角函數(shù)的自變量應(yīng)使用弧度；表達(dá)式從左到右在同一基準(zhǔn)線上書寫，無高低大小之分。19考點解析表達(dá)式4+56*7/8 Mod 9的值是( ). A:4 B:5 C:6 D:7表達(dá)式25.28 Mod 6.99的值是( ). A:1 B:5 C:4 D:出錯注意：對整除和求余運算，若運算項為非整數(shù)，則進行整除和求余運算前計算機會自動四舍五入把它們轉(zhuǎn)化為整數(shù)。BC20關(guān)系表達(dá)式 用關(guān)系運算符連接兩個表達(dá)式所組成的式子叫關(guān)系表達(dá)式。關(guān)系表

9、達(dá)式的結(jié)果是一個布爾類型的值，即True和False。關(guān)系運算符 = 、= 、2FalseAnd邏輯與232TrueOr邏輯或335TrueXor異或438 Xor 56 Eqv 25TrueImp蘊涵63=6 Imp 25True22五、常用內(nèi)部函數(shù)轉(zhuǎn)換函數(shù)數(shù)學(xué)函數(shù)時間/日期函數(shù)隨機數(shù)函數(shù)字符串函數(shù)23轉(zhuǎn)換函數(shù)1、Int(x)2、Fix(x)3、Asc(x$)4、Chr$(x)5、Str$(x)6、Val(x$)7、Ucase(x$)8、Lcase(x$)求不大于自變量x的最大整數(shù)。去掉浮點數(shù)的小數(shù)部分，保留其整數(shù)部分。 返回字符串 x$中第一個字符的ASCII碼。 把x的值轉(zhuǎn)換為相應(yīng)的AS

10、CII字符。 把x的值轉(zhuǎn)換為一個字符串。 把數(shù)字串x$轉(zhuǎn)換為數(shù)值。 把x$中的小寫字母轉(zhuǎn)換成大寫字母。 把x$中的大寫字母轉(zhuǎn)換成小寫字母。Int(3.5)=Int(-3.5)=3 -4Chr(Asc(x)+32)24數(shù)學(xué)函數(shù)1、Sin(x)2、Cos(x)3、Abs(x)4、Sqr(x)5、Sgn(x)5、Exp(x)6、Log(x)返回自變量x的正弦值，x為弧度值。返回自變量x的余弦值，x為弧度值。返回自變量x的絕對值。返回自變量x的平方根，x必須大于或等于0。返回自變量x的符號。返回以e為底，以x為指數(shù)的值，即求e的x次方。返回自變量x的自然對數(shù)值。求以10 為底X 的常用對數(shù)的表達(dá)式為(

11、 ).A:LOG(X)/LOG(10) B:LN(X)C:LOG(X)/LOG(E) D:LOG(X)A25隨機數(shù)函數(shù)Rnd(x)產(chǎn)生一個0,1)之間的隨機小數(shù)產(chǎn)生A,B間的隨機整數(shù)： Int(Rnd*(B-A+1)+A Randomize(x)表達(dá)式(-1)*Sgn(-100+Int(Rnd*100)的值是( )A:0 B:1 C:-1 D:隨機數(shù)B261、LTrim$(字符串)2、RTrim$ (字符串)3、Trim$ (字符串)4、Left$(字符串,n)5、Right$(字符串,n)6、Mid$(字符串,p,n)7、Len(字符串)8、String$(n,c)9、Space$(n)10

12、、InStr(字符串,字符串2) 去掉字符串左邊的空白字符。 去掉字符串右邊的空白字符。 去掉字符串兩邊的空白字符。 取字符串左邊的n個字符。 取字符串右邊的n個字符。 從位置p開始取字符串的n個字符。測試字符串的長度。 返回由C的首字母組成的N個字符串。返回n個空格。 在字符串1中查找字符串2。字符串函數(shù)27練習(xí)：下面各對函數(shù)的功能是互逆的，只有一對除外，它是 A. Log()和Exp() B. Lbound()和Ubound() C. Lcase$()和Ucase$() D. Asc()和Chr$()28程序功能：在Text1，Text2，Text3中分別輸入三個數(shù)字，在Text4中計算這

13、三個數(shù)的和。如果三個文本框的輸入不為數(shù)字則顯示錯誤提示Private Sub Command1_Click()a=Trim(Text1.Text):b=Trim(Text2.Text):c=Trim(Text3.Text)If 【?】 And che(b) And che(c) Then Text4.Text = Val(a) + Val(b) + Val(c)Else Text4.Text = 存在非數(shù)字字符 End IfEnd SubFunction che(x As String) As Boolean 若存在非數(shù)字字符，函數(shù)值為假【?】 For k = 1 To Len(x) s =

14、Mid(x, k, 1) If s 【?】 Then che = False Exit For End If Next kEnd Function29以下程序的功能是統(tǒng)計字符串a(chǎn)中出現(xiàn)字符串b的次數(shù)，然后輸出.Private Sub Form_Click() a$ = ABCDEFGABCDEFABCDEABCDABCABA b$ = AB c = InStr(a$, b$) *SPACE* x = 【?】 While c 0 *SPACE* x = 【?】 *SPACE* a$ = Mid$(a$, 【?】 + 2) c = InStr(a$, b$) Wend Print xEnd Sub

15、30日期和時間函數(shù)1、Hour(TimeString)返回小時（0-23）。2、Minute(TimeString)返回分（0-59）。3、Second(TimeString)返回秒（0-59）。4、Day(DateString)返回當(dāng)前的日期。5、Month(DateString)返回當(dāng)前的月份。6、Year(DateString)返回當(dāng)前的年份。Now 返回當(dāng)前日期和時間Date 返回系統(tǒng)日期Time 返回系統(tǒng)時間 311.2 數(shù)據(jù)的輸入輸出32數(shù)據(jù)輸出的幾種形式1. 輸出到窗體：print a 2. 輸出到圖形框：picture1.print a3. 輸出到文本框：text1.text=

16、 a 4. 輸出到標(biāo)簽：label1.caption= a5. 消息框輸出 ：msgbox a33數(shù)據(jù)輸入的幾種形式1 文本框： A=text1.text B=val(text2.text)2 Inputbox函數(shù)： a=inputbox（“輸入一個整數(shù)”） b=val(inputbox(“請輸入加數(shù)”)3 隨機數(shù)函數(shù) n=Int(rnd*100)34例1 求兩個整數(shù)的和1 inputbox輸入，窗體上顯示2 inputbox輸入，msgbox顯示結(jié)果3 文本框輸入數(shù)據(jù)，文本框顯示結(jié)果4 文本框輸入，標(biāo)簽輸出 35輸入框輸入，窗體輸出，消息框輸出Private Sub Form_Click()

17、 FontSize = 24 a = InputBox(輸入a) b = InputBox(輸入b) Print a=; a, b=; b, a+b=; a + b Print a=; a, b=; b, a+b=; Val(a) + Val(b) Print a=; a; Tab(8); b=; b; Tab(15); a+b=; _ Val(a) + Val(b) MsgBox 計算結(jié)果為 + Str(Val(a) + Val(b)End Sub36文本框的使用37一、數(shù)據(jù)輸出的print方法 1、Print方法 一般格式： 對象名稱. Print 表達(dá)式表,|; 功能：用來在某對象上顯示

18、一定的信息，完成輸出操作。 緊湊格式（；）、標(biāo)準(zhǔn)格式（，）、換行（空）2、與Print方法有關(guān)的函數(shù)：Tab函數(shù)、Spc函數(shù)、Space函數(shù)Tab函數(shù)格式：Print Tab(n);輸出項 在第n列開始輸出382、與Print方法有關(guān)的函數(shù)：Tab函數(shù)、Spc函數(shù)、Space函數(shù) Spc函數(shù)格式：Print Spc(n);輸出項 從當(dāng)前位置起跳過n個格 Space函數(shù)格式：Print Space(n);輸出項 產(chǎn)生由n個空格組成的字符串Print Welcome to; Tab(3); Beijing的運行結(jié)果是什么？Welcome to Beijing393、格式輸出函數(shù)：Format$函數(shù)

19、格式：Format$(數(shù)值表達(dá)式，格式字符串)功能：按“格式字符串”指定的格式輸出“數(shù)值表達(dá)式”的值。“格式字符串”是由專門的格式說明字符組成，由這些字符決定數(shù)據(jù)項的顯示格式，并指定顯示區(qū)段的長度。符號作用0實際數(shù)字位數(shù)小于符號位數(shù)，數(shù)字前后加0實際數(shù)字的整數(shù)部分位數(shù)多于格式字符位數(shù)，則按實際數(shù)值顯示；小數(shù)部分的位數(shù)多于格式字符的位數(shù)則四舍五入顯示。#實際位數(shù)小于符號位數(shù)，數(shù)字前后不加0Print Format(123.5678,0.00)40考點解析設(shè)a=10，b=5，c=1，執(zhí)行語句Print abc后，窗體上顯示的是（） A. True B. False C. 1 D. 出錯信息Ba=5

20、41數(shù)據(jù)輸入(InputBox函數(shù))格式： =InputBox(， ，)功能：在程序運行的時候，輸入數(shù)據(jù)。注意：函數(shù)的返回值是一個字符串。 x = InputBox(輸入姓名, 輸入框演示, 豬八戒)二、輸入函數(shù)inputbox,42三、MsgBox函數(shù)和MsgBox過程函數(shù): 變量= MsgBox(,按鈕,標(biāo)題) 過程: MsgBox 提示 ,按鈕,標(biāo)題 注意：若程序中需要返回值，則使用函數(shù)，否則可使用語句。 43按鈕值如下： 函數(shù)返回所選按鈕整數(shù)值：441.3 控制語句的基本格式 賦值語句 If語句 Select Case語句 ForNext語句 WhileWend語句 Do Loop 語

21、句45一、賦值語句格式:變量名 = 表達(dá)式 對象名. 屬性名 = 表達(dá)式作用:先計算賦值號右邊表達(dá)式的值，然后將此值賦給賦值號左邊的變量或?qū)ο髮傩?。常用的賦值語句形式 (1)累加：sum=sum+x (2)計數(shù)：n=n+1 (3)交換兩個變量的值：t=a: a=b: b=t 46二、if語句1、單行if語句的基本形式形式(1)： If Then 功能: 如果成立，則執(zhí)行形式(2)：If Then Else 功能:如果成立，則執(zhí)行，否則執(zhí)行if x0 Then y=xif x=0 Then y=1 Else y=-1單行if語句的整個語句必須在一行結(jié)束。47二、if語句2、塊if語句的基本形式形

22、式1：If Then End If注意：（1）在塊結(jié)構(gòu)中，IF與End If成對出現(xiàn)。（2）Then后面的語句必須放在下一行書寫。形式2：If Then Else End If 48二、if語句2、塊if語句的基本形式If Then ElseIf Then ElseIf Then Else End If只有第一個滿足條件的分支可以被執(zhí)行到。49讀程序?qū)懡Y(jié)果輸入數(shù)據(jù)為： 1） -5 2）89 3）7 4）234 Private Sub Form_Click() x=Val(InputBox(“輸入一個數(shù)”) If x10 Then y=-10 ElseIf x100 Then y=1 Else

23、y=-1 End if print yEnd Sub輸出結(jié)果為： 1） 10 2）-10 3）-1 4）-10 50二、if語句3、IIF函數(shù)格式： 變量=IIf（，)相當(dāng)于: If then 變量= Else 變量= End if例：Max=IIF(ab,a,b)514 、if語句的嵌套 If語句的嵌套格式： If Then If Then ELSE End If ELSE End IfEnd if總是與它最接近的If配對。52讀程序?qū)懡Y(jié)果輸入數(shù)據(jù)為：1） 5 2）-32 3）0輸出結(jié)果為：1） 1 2）0 3）-1Private Sub Form_Click() y=0; x=Val(In

24、putBox(輸入一個數(shù)) if x=0 Then if x0 Then y=1 else y=-1 End if print yEnd Sub53三、Select Case語句Select Case Case Case Case Else End Select54表達(dá)式列表的形式：與同類型的下面四種形式之一： (1)表達(dá)式 A (2)一組枚舉表達(dá)式(用逗號分隔) 2,4,6,8 (3)表達(dá)式1 To 表達(dá)式2 60 To 100 (4)Is關(guān)系運算符表達(dá)式 Is = 6055考點解析（選擇題367）多分支選擇結(jié)構(gòu)的CASE語句中“變量值列表”不能是（ ）。A.常量值的列表，如CASE 1，3

25、，5B.變量名的列表，如 CASE X，Y，ZC.TO表達(dá)式，如CASE 10 TO 20D.IS關(guān)系表達(dá)式，如CASE IS20 B56案例抽獎游戲設(shè)置4個獎項，5%的可能抽一等獎，10%的可能抽二等獎，20%的概率抽三等獎，65%的概率抽安慰獎。單擊開始按鈕后，圖片框中隨機變換4種圖片，單擊抽獎按鈕，圖片停止變化，并顯示相應(yīng)的文字內(nèi)容， 57四、ForNext語句一般形式：For 循環(huán)變量=初值 To 終值 Step 步長 循環(huán)體 Exit ForNext 循環(huán)變量循環(huán)變量=初值循環(huán)變量0）58考點解析由For k=10 to 0 step 3:next k循環(huán)語句控制的循環(huán)次數(shù)是( ).

26、A. 12B. 0C. -11 D. -10 循環(huán)結(jié)構(gòu)For I%= -1 to 17 Step 2 共執(zhí)行循環(huán)體( )次.A. 5B. 6C. 8 D. 9BD59五、WhileWend語句一般形式為： while 條件 語句塊 Wend求1+2+3+ +100Private sub Form_Click() sum=0 : i=1 while i=100 sum=sum+i wend Print sumEnd sub wend Print sumEnd sub i=i+160六、 Do Loop 語句格式有4種：1、2： Do 循環(huán)體 Exit Do LoopWhile|Until循環(huán)條件

27、3、4： DoWhile|Until循環(huán)條件 循環(huán)體 Exit Do Loop61七、循環(huán)嵌套循環(huán)中包含一個完整的循環(huán)。注意: 使用循環(huán)嵌套時層次不能交叉； 嵌套結(jié)構(gòu)的內(nèi)、外層循環(huán)變量不能使用同名的循環(huán)變量，但并列結(jié)構(gòu)的循環(huán)允許使用同名循環(huán)變量。 62例、計算 1！+2！+ +20！Private Sub Form_Click() Dim sum As Single sum = 0 For n = 1 To 20 t = 1 For i = 1 To n t = t * i Next i sum = sum + t Next n Print sumEnd Sub63常用算法累加和、累乘積素數(shù)窮

28、舉法迭代法（遞推法）數(shù)字分離打印圖形最大公約數(shù)、最小公倍數(shù)64累加和1、計算并顯示1到100之間能被3整除且個位為6的所有數(shù)，并將這些滿足條件數(shù)的和存入變量sum中。2、設(shè)m=1*2*3*.*n，求使m大于200000的最小的n，并將結(jié)果輸出到窗體上，同時存入變量中。65二、素數(shù)素數(shù)的定義：只有 1和它本身兩個因數(shù)的數(shù)。素數(shù)的判斷：根據(jù)這個數(shù)因數(shù)的個數(shù)來判定，如果只有1和它本身兩個因數(shù)，就是素數(shù)；除了1和它本身，還有別的因數(shù)（即至少有三個因數(shù))，這個數(shù)就不是素數(shù) 。用2、3、4、m-1中的所有的n都不能整除m，這時才可說m是素數(shù)。只要有任何的一個n(在2，m-1 之間）能整除m，m就不是素數(shù)。

29、66二、素數(shù)For i=2 To m-1 if m Mod i=0 Then Print m;Is notNext i常見錯誤：For i=2 To m-1 if m Mod i0 Then Print m ;“Is” Next i flag=0flag=1If flag=1 Then print m; 是素數(shù)Else print m; 不是素數(shù)End ifFor m=2 To 100Next m Print mEnd if: If m2 Then flag=0 67例1 打印100以內(nèi)的所有素數(shù)Private Sub Form_Click() For i = 2 To 100 k = 1 F

30、or j = 2 To i - 1 If i Mod j = 0 Then k = 0 Next j If k = 1 Then Print i; Next iEnd Sub For j = 2 To i - 1 If i Mod j = 0 Then k = 0 Next j If k = 1 Then Print i; Next iEnd Sub: Exit Forj=iExit For68例1 打印100以內(nèi)的所有素數(shù)Private Sub Form_Click() For j = 2 To i - 1 If i Mod j = 0 Then Exit For Next j If j =

31、 i Then Print i; Next iEnd Sub For i = 2 To 100 For j = 2 To i - 1 If i Mod j = 0 Then Exit For Next j If j = i Then Print i; Next iEnd SubInt(Sqr(i)i/2s = 0s = s + it = 1t = t * iEnd Sub Print s Print t之和之積1020 10 20 69判斷素數(shù)的其他寫法Private Function prime(n As Integer) Dim i As Integer (1) If n = 1 Then

32、 prime = 0 For i = 2 To n - 1 If (2) Then prime = 0 Next iEnd Functionprime=1n mod i=01、所要判斷的數(shù)通過形參獲得。2. 判斷的結(jié)果要通過函數(shù)名帶回。70例2、以下程序用于判斷一個正整數(shù)（3）是否為素數(shù)。Private Sub Form_Click() n = InputBox(請輸入一個正整數(shù)（3）) k = Int(Sqr(n) i = 2 : swit = 0While i 0End Sub求輸入的整數(shù)的各位數(shù)字的立方和: s=0End Sub: s= s + x3 Print s s= s + x2

33、If s Mod 5 = 0 Then fun=True Else fun=False Private Function fun(n As Integer) As IntegerEnd Functions=0編寫函數(shù)判斷n的各數(shù)字平方和能否被5整除，能返回True，不能返回False74例： 求出1000-9999之間具有如下特點的四位數(shù)字，它的平方根恰好就是它中間的兩位數(shù)字，例如，2500開平方為50，恰為2500的中間兩位，找出所有這樣的四位數(shù)。并求出所有這樣的數(shù)的和存入SUM中Private Sub Form_Click() sum=0 For i = 1000 To 9999 j=i

34、10 mod 100 If j 2 = i Then Print i: sum=sum + i End If Next iEnd Sub75五、最大公約數(shù)和最小公倍數(shù)輾轉(zhuǎn)相除法求最大公約數(shù)的算法思想：(1)對于已知兩數(shù)m，n，使得mn；(2)m除以n得余數(shù)r；(3)若r=0，則n為最大公約數(shù)結(jié)束；否則執(zhí)行(4)；(4)mn，nr，再重復(fù)執(zhí)行(2)。m,n的最小公倍數(shù)為m和n的乘積除以它們的最大公約數(shù)。76題目：以下程序段用于實現(xiàn)：輸入兩個正整數(shù)m和n，求其最大公因數(shù)和最小公倍數(shù)。Private Sub Form_Click()Dim a%, b%, num1%, num2%, tempnum1

35、 = InputBox(請輸入一個正整數(shù))num2 = InputBox(請輸入一個正整數(shù))If 【?】 Then temp = num1: num1 = num2: num2 = tempEnd Ifa = num1: b = num2Do While 【?】 temp = a Mod b a = b 【?】LoopPrint 最大公因數(shù)為：; aPrint 最小公倍數(shù)為：; num1 * num2 / aEnd Subnum1num2b0b=temp77用輾轉(zhuǎn)相除法求兩個整數(shù)的最大公約數(shù)（習(xí)題集78頁40題）。Function gcd(Byval m As Integer,Byval n

36、As Integer) As Integer Dim r As Integer r = m Mod n Do While r 0*FOUND* n = m n = r： r = m Mod n Loop*FOUND* gcd = rEnd FunctionPrivate Sub Form_Click() Dim a%, b%, c% a = InputBox(輸入一個整數(shù)) b = InputBox(輸入一個整數(shù)) a = Val(a)： b = Val(b)*FOUND* Call gcd(a, b) Print a, b, cEnd Subm = nnc =78六、遞推法“遞推法”又稱為“迭代法”，其基本思想是每次都從舊值的遞推出新值，并由新值代替舊值。典型算法斐波那契數(shù)列小球落地人口增長猴子