vb程序設(shè)計強化復(fù)習(xí)主題講座(2)(參考版)
2025-01-15 23:32本頁面
【正文】 is 1E+8 End Sub 該過程是對以下數(shù)列進行運算：有一個數(shù)列，它的前三個數(shù)是 0， 1， 2， 從第四個數(shù)起，每個數(shù)都是它前面的兩個數(shù)之和 ,求出該數(shù)列的第 17個數(shù)是多少 ? 求出該數(shù)列的第幾個數(shù)起每個數(shù)都超過 1E+8 。 this_one End If 3 Loop While this_one = 100000000 No:。數(shù)列的第三個數(shù) i = 4 39。 f1 = f2 f2 = f3 Next i End Sub Public Sub Fabonia() Dim last_one As Long Dim last_two As Long Dim this_one As Long Dim i As Integer last_one = 1 39。 For i = 3 To 30 39。 步驟： ?（ 1） 對于已知兩數(shù) m、 n， 使得 mn； ?（ 2） m除以 n得余數(shù) r； ?（ 3） 若 r=0， 則 n為最大公約數(shù) ， 算法結(jié)束；否則執(zhí)行步驟 （ 4） ； ?（ 4） m←n ， n←r ， 再重復(fù)執(zhí)行步驟 （ 2） 輾轉(zhuǎn)相除法求最大公約數(shù) ?Private Sub Form_Click() m = Val(InputBox(錄入一個數(shù) )) n = Val(InputBox(錄入一個數(shù) )) If m n Then t = m: m = n: n = t r = m Mod n While r 0 m = n : n = r: r = m Mod n Wend Print n End Sub 主題：迭代法 ?求 fibonacci數(shù)列前 30項的值 F1=1:f2=1 Fn=fn1+fn2 Private Sub Form_Click() Dim f1 As Long, f2 As Long, f3 As Long, i As Integer f1 = 1 : f2 = 1 Print f1。 若 R1 等于 0 ，則 n 就是 m 和 n 的 最大公約數(shù) 。 設(shè) m = n * a + R1（ 0≤R1n),就是說 m是 n的 a倍還多 R1。 div 主題：最小公倍數(shù)、最大公約數(shù) 輸入 n個整數(shù)，求它們的最小公倍數(shù) Private Sub Form_Click() Dim i As Integer, gbs As Long, n As Integer n = InputBox(n=, 數(shù)組元素的個數(shù) n) ReDim a(n) As Integer For i = 1 To n a(i) = InputBox(a( + Str(i) + )=, 輸入數(shù)組元素 ) Next i gbs = a(1) Do For i = 2 To n If gbs Mod a(i) 0 Then gbs = gbs + a(1): Exit For Next i Loop Until i = n + 1 Print gbs End Sub 主題：最小公倍數(shù)、最大公約數(shù) 分析 : 求最大公約數(shù)有許多方法。 n。尋找能同時除盡 m和 n的數(shù)即為最大公約數(shù) div = m If n m Then div = n End If Do until ? div = div 1 Loop m。 salary=val(inputbox(“錄入工資數(shù)” )) temp = salary hundred = temp\ 100 temp = temp mod 100 fifty = temp \ 50 temp = temp fifty * 50 ten = temp\ 10 temp = temp mod 10 five = temp \ 5 temp = temp five * 5 one = temp Print hundred, fifty, ten, five, one 主題：最小公倍數(shù)、最大公約數(shù) ? 實現(xiàn)求任意兩個正整數(shù)的最大公約數(shù) Do m = Val(InputBox(m=)) n = Val(InputBox(n=)) Loop While m = 0 or n = 0 39。個位上的數(shù)字 For i = 100 To 999 hundred = 1 ten = (i Mod 100) \ 10 one = 2 If 3 Then i。百位上的數(shù)字 Dim ten As Integer 39。例如： 471=4^3+7^3+1^3，那么 471就是一個 Armstrong數(shù)。 轉(zhuǎn)換為十進制數(shù)為 amp。****** 錯誤 3 ******* Dec = Dec + number * 16 ^ i i = i + 1 Loop While i n 39。****** 錯誤 1 ******* n = Val(Hex) i = 0 Do 39。十六進制數(shù) Dim Dec As Double 39。 Bin End Sub 主題：數(shù)制的轉(zhuǎn)換 Transfer 過程用于將一個十六進制整數(shù)轉(zhuǎn)換為十進制整數(shù)， number 函數(shù)用于將一個十六進制符號轉(zhuǎn)換為數(shù)值 。3 Loop While 39。求出除以 2的余數(shù) Bin= 39。 Dec Do res= 39。輸入一個十進制數(shù) Dim Bin As String 39。以空格作為單詞的界定，空格后的字母轉(zhuǎn)換為大寫字母 lastchar=“ ”
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號-1