【正文】 () 39。求相同因子 x = x / i Print i。 s為用戶指定的隨機(jī)點(diǎn)數(shù)，對(duì)于每次產(chǎn)生的隨機(jī)點(diǎn) (x,y)，若 x2+y2≤1，說明此點(diǎn)落在 1/4圓內(nèi)，則 n加 1。設(shè)置焦點(diǎn) End Sub Private Sub mand2_click() = = Cls Call Form_Load 39。附錄 利用統(tǒng)計(jì)試驗(yàn)法計(jì)算 π值 (例 )(2)創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對(duì)象屬性 假設(shè)隨機(jī)點(diǎn)數(shù)為 10000 (3)編寫程序代碼 ? 利用 Circle方法和 Line方法畫出 1/4圓弧和正方形的兩個(gè)邊，用 Pset方法畫出隨機(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 Private Sub Form_Load() Show 39。 Loop Next i End Sub例 把一個(gè)正整數(shù)寫成若干個(gè)素?cái)?shù)相乘的形式示例： 20 = 2*2*5 統(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圓面積 )/正方形面積 ≈對(duì)應(yīng)區(qū)域隨機(jī)點(diǎn)數(shù)之比 ? (1/4)π≈對(duì)應(yīng)區(qū)域隨機(jī)點(diǎn)數(shù)之比由此得到： π≈4對(duì)應(yīng)區(qū)域隨機(jī)點(diǎn)數(shù)之比程序中，使用隨機(jī)函數(shù)來產(chǎn)生隨機(jī)點(diǎn)數(shù)的位置 (x,y)，即 ? x=Rnd y=Rnd? x,y值都小于 1，可以認(rèn)為所產(chǎn)生的全部隨機(jī)點(diǎn)都落在正方形內(nèi)。 =。取余數(shù) x = Int(x / n) 39。 ? “換碼表 ”(Ch變量 )的作用Private Sub Command1_Click() 39。 39。外循環(huán) Print j。 k。設(shè)置字號(hào) Print Tab(12)。表項(xiàng)個(gè)數(shù) End Sub Private Sub Command1_Click() 39。真時(shí)為選定 (i) End If Next iEnd SubPrivate Sub Command2_Click() 39。單擊 “清除 ”按鈕時(shí)，將清除右列表框中的內(nèi)容 (2)編寫程序代碼例 設(shè)計(jì)一個(gè)選課程序Private Sub Form_Load() 電子商務(wù) 網(wǎng)頁(yè)制作 Inter簡(jiǎn)明教程 計(jì)算機(jī)網(wǎng)絡(luò)基礎(chǔ) 多媒體技術(shù) “ End SubPrivate Sub Command1_Click() 39。 ), c, b, a End If Next b, a End Sub 列表框和組合框都能為用戶提供若干個(gè)選項(xiàng)，供用戶從中任意選擇 兩種控件的特點(diǎn)是為用戶提供大量的選項(xiàng)但又占用很少的屏幕空間，操作簡(jiǎn)單方便 列表框與組合框 ? ? 1. 列表框的用途 ? 列表框 (ListBox)用于列出可供用戶選擇的項(xiàng)目列表，用戶可從中選擇一個(gè)或多個(gè)選項(xiàng)。 Next j Print Next i End Sub Print Chr(i+48)與 Print i有所不同 (1)分析 ：設(shè)一元硬幣為 a枚，二元硬幣為 b枚，五元硬幣為 c枚，可列出方程 ? a+b+c=10 a+2b+5c=25?采用兩重循環(huán)，外循環(huán)變量 a從 0～ 10，內(nèi)循環(huán)變量 b從 0～10 (2)創(chuàng)建應(yīng)用程序的用戶界面 例 取一元、二元、五元的硬幣共十枚，付給 25元錢，有多少種不同的取法 ?? (3)編寫程序代碼 程序通過 Print方法把處理結(jié)果輸出在標(biāo)簽的下方 Private Sub Form_Load() Show CurrentX = 0 : CurrentY = 1500 39。外循環(huán)控制輸出 7行，內(nèi)循環(huán)控制每行輸出要求的字符數(shù)。當(dāng)最后一項(xiàng)的絕對(duì)值小于 105時(shí)，停止計(jì)算 語(yǔ)句格式如下： ? Do? 循環(huán)體 ? Loop [{While|Until }條件 ] 功能： 先執(zhí)行循環(huán)體，然后判斷條件，根據(jù)條件決定是否繼續(xù)執(zhí)行循環(huán)? 注意，本語(yǔ)句執(zhí)行循環(huán)的最少次數(shù)為 1，而前測(cè)型Do...Loop語(yǔ)句的最少次數(shù)為 0(即一次都不執(zhí)行循環(huán) ) 2. 后測(cè)型 Do...Loop循環(huán) ? For…Next 前測(cè)型 S=0 s=0:k=1 For k=1 to 8 Do While k=8 s=s+k s=s+k Next k k=k+1 Print s