【正文】 程轉(zhuǎn)化為簡(jiǎn)單過程的多次重復(fù) 。 分析： 這是一個(gè)“遞推”問題，先從 a推出第一個(gè) x值 [即 (a+a/a）/2→x] ，再以該 x值（舊值）推出 x的新值 [即 (x+a/x） /2→x] ，依次向前推，每次以 x舊值推出 x的新值 [即 (x+a/x） /2→x] 。以 a作為 x的初值 Do xn0 = xn1 39。 的平方根為 。輸出標(biāo)題 FontSize = 12 Print 39。輸出第一行數(shù)字 Next k Print 39。內(nèi)循環(huán) Print Tab(k * 4)。換行 Next j End Sub 主頁 (1)創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對(duì)象屬性 功能要求：用戶在文本框 Text1中輸入要轉(zhuǎn)換的十進(jìn)制數(shù)，選擇轉(zhuǎn)換進(jìn)制，單擊“轉(zhuǎn)換”按鈕 (Command1)后，則在文本框Text2中輸出轉(zhuǎn)換結(jié)果。 (5)編寫程序代碼 2進(jìn)制 8進(jìn)制 16進(jìn)制 Val(())值 2 8 16 List 屬性 主頁 Private Sub Command1_Click() 39。取余數(shù) x = Int(x / n) 39。置空值 = 39。刪除已選定的表項(xiàng) = End If End Sub Private Sub Command3_Click() ?“全清” = End Sub Private Sub Command4_Click() End End Sub ?！碧砑印? If Len() 0 Then = End If = End Sub 主頁 Private Sub Command2_Click() ?“刪除” Dim ind As Integer ind = If ind 1 Then 39。換碼，反序加入 Loop = y End Sub Private Sub Command2_Click() 39。換碼表 If = 1 Then n = 2 39。 示例： (6)10 = (110)2 (142)10 = (8E)16 2 6 0 2 3 1 2 1 1 0 反序 16 142 14 (E) 16 8 8 0 求余數(shù) = 142 Mod n 求商數(shù) = Int(142/n) 主頁 (3)把 0 ～ 15轉(zhuǎn)換為十六進(jìn)制數(shù)” 0” ～” F” 把數(shù)值 0～ 9， 10 ～ 15 轉(zhuǎn)換為字符“ 0” ～” 9” ,”A”～” F” 利用 “換碼表” (Ch變量 ) Ch = “0123456789ABCDEF” 要把數(shù)值 s(0 ～ 15)轉(zhuǎn)換為十六進(jìn)制數(shù)碼” 0” ～” F”，可采用 c = Mid(Ch, s + 1, 1) 即以 s+1 確定位置，從 Ch中取出相應(yīng)的一個(gè)字符。 39。外循環(huán) Print j。 k。設(shè)置字號(hào) Print Tab(12)。計(jì)算新值 Loop While Abs(xn0 xn1) = 39。 aa主頁 例 Private Sub Form_Load() Dim a As Single, xn0 As Single, xn1 As Single Show 39。 通過 InputBox函數(shù)輸入 a值，并以 a作為 x的初值。 主頁 100元買 100只雞 Private Sub Form_Load() Dim x As Integer, y As Integer Show For x = 1 To 30 y = 100 x If 3 * x + y / 3 = 100 Then Print “ 母雞只數(shù)為 :”。 例 用 100元買 100只雞，母雞 3元 1只，小雞 1元 3只，問各應(yīng)買多少只 ? 下面采用窮舉法來解此題。 n amp。求百位數(shù) b = Int((k100*a)/10) 39。 例 找出 100～ 999三位數(shù)中的“水仙花”數(shù)，計(jì)算其個(gè)數(shù)。 End Sub 主頁 常用算法 算法是對(duì)某個(gè)問題求解過程的描述。 Style=0 下拉組合框 Style=1 簡(jiǎn)單組合框 Style=2 下拉列表框 圖片框 設(shè)計(jì)界面 運(yùn)行界面 例 主頁 (2)編寫程序代碼 Private Sub Form_Load() = (0) = (0) = (0) End Sub Private Sub Command1_Click() 39。真時(shí)為選定 (i) End If Next i End Sub Private Sub Command2_Click() 39。單擊“清除”按鈕時(shí)，將清除右列表框中的內(nèi)容 (2)編寫程序代碼 例 設(shè)計(jì)一個(gè)選課程序 MultiSelect屬性值為 2 例 主頁 Private Sub Form_Load() 電子商務(wù) 網(wǎng)頁制作 Inter簡(jiǎn)明教程 計(jì)算機(jī)網(wǎng)絡(luò)基礎(chǔ) 多媒體技術(shù)“ End Sub Private Sub Command1_Click() 39。 例如： x = ′把表項(xiàng)值存放在 x變量中 (2) = 3 x = (3) 直接從數(shù)組 List() x = (5) 主頁 (1)分析：判別條件為 (n Mod 14=0) And (n Mod 10=8) (2)創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對(duì)象屬性 例 設(shè)計(jì)一程序，找出三位數(shù)中能被 14整除且個(gè)位數(shù)為 8的自然數(shù)，把這些自然數(shù)顯示在列表框中，其個(gè)數(shù)顯示在標(biāo)簽中。 t = 0 For x = 2 To 3 n = 1 Do While n=x