【正文】 Private Sub Form_Load() Show CurrentX = 0 : CurrentY = 1500 39?！碧砑印? If Len() 0 Then = End If = End Sub 中國最大的資料庫下載 Private Sub Command2_Click() ?“刪除” Dim ind As Integer ind = If ind 1 Then 39。輸出乘積 Next k Print 39。 s為用戶指定的隨機(jī)點(diǎn)數(shù)，對(duì)于每次產(chǎn)生的隨機(jī)點(diǎn)(x,y)，若 x2+y2≤1，說明此點(diǎn)落在 1/4圓內(nèi)，則 n加 1。求相同因子 x = x / i Print i。 For k = 1 To j 39。清除 按鈕單擊事件 End Sub 中國最大的資料庫下載 允許從已有的選項(xiàng)中進(jìn)行選擇，還允許輸入列表中不包括的內(nèi)容 列表框和文本框的組合 具有列表框和文本框的大部分屬性和方法。外循環(huán)控制輸出 7行，內(nèi)循環(huán)控制每行輸出要求的字符數(shù)。交替改變加、減號(hào) Next c Print π=。 t End Sub T＝ 40320 語句 t=t*c也稱乘法器。 本語句與上述 Do While...Loop循環(huán)語句相似 While...Wend循環(huán)語句 中國最大的資料庫下載 用于提前退出循環(huán) 格式： Exit {For|Do} 功能：直接從 For循環(huán)或 Do循環(huán)中退出 當(dāng)程序運(yùn)行時(shí)遇到 Exit語句時(shí)，就不再執(zhí)行循環(huán)體中的任何語句而直接退出，轉(zhuǎn)到循環(huán)語句 (Next、Loop)的下面繼續(xù)執(zhí)行 中國最大的資料庫下載 例 Do p = m Mod n If p=0 Then Exit Do End If m = n n = p Loop While p 0 = n 中國最大的資料庫下載 把每次輸入的數(shù)累加。清除列表框的內(nèi)容 For i = 0 To 1 39。輸出第一行數(shù)字 Next k Print 39。“結(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(請(qǐng)輸入一個(gè)正整數(shù) ) x = Val(s) ： Print Print x。畫線和圓弧 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?！稗D(zhuǎn)換”按鈕單擊事件過程 Dim y As String, x As Long, s As Integer Dim Ch As String, n As Integer Ch = 0123456789ABCDEF 39。設(shè)置字號(hào) Print Tab(12)。 n。 y End If Next x End Sub 運(yùn)行結(jié)果： 母雞只數(shù)為： 25 小雞只數(shù)為： 75 中國最大的資料庫下載 For...Next循環(huán)主要是用在知道循環(huán)次數(shù)的情況下，若事先不知道循環(huán)次數(shù)，可以使用當(dāng)型循環(huán) Do...Loop Do...Loop兩種格式： 前測(cè)型循環(huán)結(jié)構(gòu) 和 后測(cè)型循環(huán)結(jié)構(gòu) 。 中國最大的資料庫下載 中國最大的資料庫下載 采用循環(huán)程序可以解決一些按一定規(guī)則重復(fù)執(zhí)行的問題。 x, Print 小雞只數(shù)為 :。記錄解的組數(shù) For a = 0 To 10 For b = 0 To 10 c = 10 b a If a + 2 * b + 5 * c = 25 And c = 0 Then n = n + 1 Print (。刪除已選定的表項(xiàng) = End If End Sub Private Sub Command3_Click() ?“全清” = End Sub Private Sub Command4_Click() End End Sub 中國最大的資料庫下載 兩重循環(huán)； 采用 Print直接在窗體上輸出結(jié)果 Private Sub Form_Load() Show FontSize = 15 39。 (2)創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對(duì)象屬性 例 輸入一個(gè)十進(jìn)制整數(shù)，將其轉(zhuǎn)換成二進(jìn)制數(shù)、八進(jìn)制數(shù)或十六進(jìn)制數(shù) 中國最大的資料庫下載 列表框的名稱為 List1，其 List屬性設(shè)置了三個(gè)表項(xiàng)：二進(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 “換碼表” (Ch變量 )的作用 中國最大的資料庫下載 Private Sub Command1_Click() 39。 附錄 利用統(tǒng)計(jì)試驗(yàn)法計(jì)算 π值 (例 ) 中