【導讀】中國最大的資料庫下載。采用循環(huán)程序可以解決一些按一定規(guī)則重復(fù)執(zhí)行的問題。例如，統(tǒng)計一個班幾十名學生，甚至全校幾千名學生的學期。成績，如求平均分、不及格人數(shù)等。第5章循環(huán)結(jié)構(gòu)設(shè)計。循環(huán)是指在指定的條件下多次重復(fù)執(zhí)行一組語。VB提供的循環(huán)語句有。最常用的是For...Next和Do...Loop語句。例在窗體上顯示2至10. 采用Print直接在窗體上輸出結(jié)果，程序代碼：。每次循環(huán)都將循環(huán)體執(zhí)行一次。初值、終值和步長值都是數(shù)值表達式，步長值可以是正數(shù)。若步長值為1，則Step可以省略。超過終值時，退出循環(huán)，轉(zhuǎn)到去判斷循環(huán)條件。在循環(huán)程序中，常用累加器和累乘器來完成各種計算任務(wù)。s=1's表示加或減運算。s=-s'交替改變加、減號。足或判別出無解為止。令母雞為x只，小雞為y只，根據(jù)題意可知。如果當x達到30時還不能使條。件成立，則可以斷定此題無解。例用100元買100只雞，母雞3元1只，當最后一項的絕對值小于10

　　

【正文】 39。輸出乘積 Next k Print 39。換行 Next j End Sub 程序舉例 例 打印 “ 九九乘法表 ” 中國最大的資料庫下載 打印“九九乘法表” 中國最大的資料庫下載 (1)分析 ：模仿十進制整數(shù)轉(zhuǎn)換成二進制數(shù)的方法 (即“除 2取余” )，采用逐次“ 除 n取余 ”法 (n為 2， 8或 16)，即用 n不斷去除要轉(zhuǎn)換的十進制數(shù)，直至商為 0為止，將每次所得的余數(shù)逆序排列 (以最后余數(shù)為最前位 )，即得到所轉(zhuǎn)換的 n進制數(shù)。 (2)創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對象屬性 例 輸入一個十進制整數(shù)，將其轉(zhuǎn)換成二進制數(shù)、八進制數(shù)或十六進制數(shù) 中國最大的資料庫下載 列表框的名稱為 List1，其 List屬性設(shè)置了三個表項：二進制、八進制和十六進制， ItemData屬性設(shè)置了相應(yīng)的值： 2， 8和 16 (3)編寫程序代碼 功能要求：用戶在文本框 Text1中輸入要轉(zhuǎn)換的十進制數(shù)，選擇轉(zhuǎn)換進制，單擊“轉(zhuǎn)換”按鈕 (Command1)后，則在文本框 Text2 “換碼表” (Ch變量 )的作用 中國最大的資料庫下載 Private Sub Command1_Click() 39?！稗D(zhuǎn)換”按鈕單擊事件過程 Dim y As String, x As Long, s As Integer Dim Ch As String, n As Integer Ch = 0123456789ABCDEF 39。換碼表 If = 1 Then n = 2 39。未選，則以二進制轉(zhuǎn)換 Else n = () End If y = ： x = Val() If x = 0 Then = Exit Sub End If Do While x 0 s = x Mod n 39。取余數(shù) x = Int(x / n) 39。求商 y = Mid(Ch, s + 1, 1) + y 39。換碼，反序加入 Loop = y End Sub Private Sub Command2_Click() 39?！敖Y(jié)束” Unload Me End Sub 示例： (142)10 = (8E)16 中國最大的資料庫下載 例如： 10＝ 2*5 24=2*2*2*3 76=2*2*19 解題的步驟；程序代碼： Private Sub Form_Load() Show s = InputBox(請輸入一個正整數(shù) ) x = Val(s) ： Print Print x。 =。 For i = 2 To x Do While (x Mod i = 0) 39。求相同因子 x = x / i Print i。 If x 1 Then Print *。 Loop Next i End Sub 例 把一個正整數(shù)寫成若干個素數(shù)相乘的形式 示例： 20 = 2*2*5 中國最大的資料庫下載 統(tǒng)計試驗法是一種進行大量的隨機性試驗，并根據(jù)試驗結(jié)果統(tǒng)計而得到結(jié)論的方法 (1)分析 ：在下圖中，邊長為 1個單位的正方形內(nèi)包含了半徑為 1個單位的 1個圓，假設(shè)在正方形內(nèi)有大量的密集的隨機點，那么可以認為： (1/4圓面積 )/正方形面積 ≈ (1/4)π≈對應(yīng)區(qū)域隨機點數(shù)之比 由此得到： π≈4 對應(yīng)區(qū)域隨機點數(shù)之比 程序中，使用隨機函數(shù)來產(chǎn)生隨機點數(shù)的位置 (x,y) x=Rnd y=Rnd x,y值都小于 1，可以認為所產(chǎn)生的全部隨機點都落在正方形內(nèi)。如果采用 s和 n來分別記錄落在正方形內(nèi)和 1/4圓內(nèi)的隨機點數(shù)。 s為用戶指定的隨機點數(shù)，對于每次產(chǎn)生的隨機點(x,y)，若 x2+y2≤1，說明此點落在 1/4圓內(nèi)，則 n加 1。最后計算 4*n/s就是所求的 π近似值。 附錄 利用統(tǒng)計試驗法計算 π值 (例 ) 中國最大的資料庫下載 (2)創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對象屬性 假設(shè)隨機點數(shù)為 10000 中國最大的資料庫下載 (3)編寫程序代碼 利用 Circle方法和 Line方法畫出 1/4圓弧和正方形的兩個邊，用Pset方法畫出隨機點 Private Sub Command1_Click() Dim x As Double, y As Double Randomize n = 0 : s = Val() For i = 1 To s x = Rnd y = Rnd PSet (2500 * x, 2500 * y), RGB(0, 255, 0) If x * x + y * y = 1 Then n = n + 1 End If Next i = 4 * n / s End Sub 中國最大的資料庫下載 Private Sub Form_Load() Show 39。畫線和圓弧 Line (0, 2500)(2500, 2500), RGB(255, 0, 0) Line (2500, 0)(2500, 2500), RGB(255, 0, 0) Circle (0, 0), 2500, RGB(0, 0, 255) 39。設(shè)置焦點 End Sub Private Sub mand2_click() = = Cls Call Form_Load 39。調(diào)用過程 form_load End Sub