循環(huán)結(jié)構(gòu)vb程序設(shè)計(jì)(參考版)
2025-01-10 12:57本頁面
【正文】 ”不是素?cái)?shù)” 用 Do…Loop 做呢？？ 書 P93 。 Dim a As Integer , ii As Integer a=Val ( InputBox(“請(qǐng)輸入一個(gè)數(shù)” ) ) For ii =1 to a1 Step 1 If a mod ii =0 Then Exit For Next ii If ii=a then Print a。 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, 輸入一個(gè)數(shù)，判斷該數(shù)是否為素?cái)?shù)。 分析： 用 輾轉(zhuǎn)相除法（ 歐幾里德算法 ） 求最大公約數(shù) 算法思想： (1)對(duì)于已知兩數(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)。 年后我國的人口為： 。 年后我國的人口為： 。 Exit Do語句時(shí)退出循環(huán)，執(zhí)行 Loop下一 條語句。 ； Until剛好相反。 s Next i End Sub 習(xí)題 計(jì)算下列循環(huán)的次數(shù) （ 1） For I= 3 To 20 Step 4 （ 2） For I= To Step （ 3） For I= To Step （ 4） For I= 3
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1