【正文】 ”按鈕 Click事件過程代碼如下： Private Sub Command1_Click() Dim m As Integer, n As Integer, p As Integer m = Val() : n = Val() If m = 0 Or n = 0 Then MsgBox (數(shù)據(jù)錯誤 !) End End If Do p = m Mod n m = n n = p Loop While p 0 = m End Sub 若輸入的 m和 n的值為 85和 68，則運(yùn)行結(jié)果如上圖 主頁 用于提前退出循環(huán) 格式： Exit {For|Do} 功能：直接從 For循環(huán)或 Do循環(huán)中退出 當(dāng)程序運(yùn)行時遇到 Exit語句時，就不再執(zhí)行循環(huán)體中的任何語句而直接退出，轉(zhuǎn)到循環(huán)語句 (Next、 Loop)的下面繼續(xù)執(zhí)行 主頁 把每次輸入的數(shù)累加。確定開始顯示的坐標(biāo) Print , 五元 , 二元 , 一元 n = 0 39。 例如： x = ′把表項值存放在 x變量中 (2) = 3 x = (3) 直接從數(shù)組 List() x = (5) 主頁 (1)分析：判別條件為 (n Mod 14=0) And (n Mod 10=8) (2)創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對象屬性 例 設(shè)計一程序，找出三位數(shù)中能被 14整除且個位數(shù)為 8的自然數(shù)，把這些自然數(shù)顯示在列表框中，其個數(shù)顯示在標(biāo)簽中。真時為選定 (i) End If Next i End Sub Private Sub Command2_Click() 39。 End Sub 主頁 常用算法 算法是對某個問題求解過程的描述。求百位數(shù) b = Int((k100*a)/10) 39。 例 用 100元買 100只雞，母雞 3元 1只，小雞 1元 3只，問各應(yīng)買多少只 ? 下面采用窮舉法來解此題。 通過 InputBox函數(shù)輸入 a值，并以 a作為 x的初值。計算新值 Loop While Abs(xn0 xn1) = 39。 k。 39。換碼表 If = 1 Then n = 2 39?！碧砑印? If Len() 0 Then = End If = End Sub 主頁 Private Sub Command2_Click() ?“刪除” Dim ind As Integer ind = If ind 1 Then 39。置空值 = 39。 (5)編寫程序代碼 2進(jìn)制 8進(jìn)制 16進(jìn)制 Val(())值 2 8 16 List 屬性 主頁 Private Sub Command1_Click() 39。內(nèi)循環(huán) Print Tab(k * 4)。輸出標(biāo)題 FontSize = 12 Print 39。以 a作為 x的初值 Do xn0 = xn1 39。 y End If Next x End Sub 例 主頁 3. 遞推法 “ 遞推法 ” 也稱為 “ 迭代法 ” ， 其基本思想是把一個復(fù)雜的計算過程轉(zhuǎn)化為簡單過程的多次重復(fù) 。 其做法是：從所有可能解中 ， 逐個進(jìn)行試驗 ， 若滿足條件 ， 就得到一個解 ， 否則不是 。 程序中采用計數(shù)方法 n=n+1（或稱“計數(shù)器”）來記錄有多少個“水仙花”數(shù)。 硬盤 (GB)： 。清除列表框的內(nèi)容 For i = 0 To 1 39。 ListCount屬性：表項數(shù)目 Text屬性：當(dāng)前選定表項的文本內(nèi)容 ListIndex屬性：返回已選定表項的順序號 (索引 )。 For j = 1 To 2 * i 1 Print Chr(i + 48)?；?1/n= pi = pi + s / n s = s n = n + 2 Loop Print π=。前 n項之積 新乘的數(shù) 主頁 采用 Print直接在窗體上輸出結(jié)果，程序代碼如下： Private Sub Form_Load() Show Dim pi As Single, c As Integer, s As Integer pi = 0 s = 1 39。前 n項之和 新加的數(shù) k = 1 s ← s + k 0 1 k = 3 s ← s + k 1 + 2 3 k = 2 s ← s + k 1 2 k = 8 s ← s + k 1 + 2 + ? 7 8 …… 主頁 ? 算法：通常采用重復(fù)運(yùn)算來解決問題 累加、累乘等 如用級數(shù) π/4＝ 1 1/3 + 1/5 1/7 + …… 來求 π ? 設(shè)置循環(huán)變量 使每次運(yùn)算變量值有所不同 ? 控制循環(huán) 計數(shù)控制或條件控制 循環(huán)結(jié)構(gòu)程序的實現(xiàn) 求 S = 1 + 2 + 3 + … + 8 s = 0 For k = 1 To 8 s = s + k Next k Print s=。 主頁 采用循環(huán)程序可以解決一些按一定規(guī)則重復(fù)執(zhí)行的問題。 s 例 K為循 環(huán)變量 專設(shè)變量 n來控制循環(huán) 主頁 例 求 S = 1 + 2 + 3 + ? 8 ，把結(jié)果顯示在窗體上。先將 t置 1(不能置 0) 在循環(huán)程序中，常用累加和累乘來完成各種計算任務(wù) 例 求 T = 8! = 1 2 3 … 8 例 主頁 例 T = 8! = 1 2 3 ? 8 ，把結(jié)果顯