循環(huán)結(jié)構(gòu)vb程序設(shè)計-資料下載頁
2025-01-07 12:57本頁面
【正文】 Next 讓 For語句循環(huán)無數(shù)次？ 題目：求兩自然數(shù) m， n的最大公約數(shù)和 最小公倍數(shù)。 分析： 用 輾轉(zhuǎn)相除法（ 歐幾里德算法 ） 求最大公約數(shù) 算法思想： (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)。 思考題 m n r 14 6 2 6 2 0 求 m=14 ,n=6 的最大公約數(shù)。 If m n Then t = m: m = n: n = t r=m mod n Do While (r 0) m=n n=r r= m mod n Loop Print 最大公約數(shù) =, n 2, 輸入一個數(shù)，判斷該數(shù)是否為素數(shù)。 素數(shù)只能被 1和他本身整除的數(shù)（例： 5， 7，11）。 Dim a As Integer , ii As Integer a=Val ( InputBox(“請輸入一個數(shù)” ) ) For ii =1 to a1 Step 1 If a mod ii =0 Then Exit For Next ii If ii=a then Print a。“是素數(shù)” else Print a。”不是素數(shù)” 用 Do…Loop 做呢？？ 書 P93
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1