【正文】 39。輸出乘積 Next k Print 39。換行 Next jEnd Sub 程序舉例 例 打印 “ 九九乘法表”?打印 “九九乘法表 ” (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è)置對象屬性例 輸入一個十進(jìn)制整數(shù)，將其轉(zhuǎn)換成二進(jìn)制數(shù)、八進(jìn)制數(shù)或十六進(jìn)制數(shù)? 列表框的名稱為 List1，其 List屬性設(shè)置了三個表項：二進(jìn)制、八進(jìn)制和十六進(jìn)制， ItemData屬性設(shè)置了相應(yīng)的值： 2， 8和 16 (3)編寫程序代碼 ? 功能要求：用戶在文本框 Text1中輸入要轉(zhuǎn)換的十進(jìn)制數(shù)，選擇轉(zhuǎn)換進(jìn)制，單擊 “轉(zhuǎn)換 ”按鈕 (Command1)后，則在文本框 Text2中輸出轉(zhuǎn)換結(jié)果。 ? “換碼表 ”(Ch變量 )的作用Private Sub Command1_Click() 39。“轉(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。未選，則以二進(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 = yEnd SubPrivate Sub Command2_Click() 39?！敖Y(jié)束 ” Unload MeEnd 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ìn)行大量的隨機(jī)性試驗，并根據(jù)試驗結(jié)果統(tǒng)計而得到結(jié)論的方法? (1)分析 ：在下圖中，邊長為 1個單位的正方形內(nèi)包含了半徑為 1個單位的 1個圓，假設(shè)在正方形內(nèi)有大量的密集的隨機(jī)點，那么可以認(rèn)為： (1/4圓面積 )/正方形面積 ≈對應(yīng)區(qū)域隨機(jī)點數(shù)之比 ? (1/4)π≈對應(yīng)區(qū)域隨機(jī)點數(shù)之比由此得到： π≈4對應(yīng)區(qū)域隨機(jī)點數(shù)之比程序中，使用隨機(jī)函數(shù)來產(chǎn)生隨機(jī)點數(shù)的位置 (x,y)，即 ? x=Rnd y=Rnd? x,y值都小于 1，可以認(rèn)為所產(chǎn)生的全部隨機(jī)點都落在正方形內(nèi)。如果采用 s和 n來分別記錄落在正方形內(nèi)和 1/4圓內(nèi)的隨機(jī)點數(shù)。 s為用戶指定的隨機(jī)點數(shù)，對于每次產(chǎn)生的隨機(jī)點 (x,y)，若 x2+y2≤1，說明此點落在 1/4圓內(nèi)，則 n加 1。最后計算 4*n/s就是所求的 π近似值。附錄 利用統(tǒng)計試驗法計算 π值 (例 )(2)創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對象屬性 假設(shè)隨機(jī)點數(shù)為 10000 (3)編寫程序代碼 ? 利用 Circle方法和 Line方法畫出 1/4圓弧和正方形的兩個邊，用 Pset方法畫出隨機(jī)點 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