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

　　

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