【正文】
ub Command1_Click() Dim n As Integer, i As Integer, k As Integer n = Val() For i = 1 To n fibo(i)。 。 k = k + 1 If k = 5 Then k = 0 End If Next I End Sub 常用算法舉例 ? 求素?cái)?shù) ? 選擇法排序 ? 冒泡法排序 ? 順序查找 要判斷一個(gè)數(shù) x是否是素?cái)?shù) , 需要判斷 x是否能 被 2至 x1內(nèi)的某一個(gè)自然數(shù)整除 。 若都不能 整除 , 則 x是素?cái)?shù) 。 ( 所以 , 判斷一個(gè)數(shù)是否為素?cái)?shù) , 只要看在 2到它的平方根之間有沒(méi)有約數(shù) 。 例題:素?cái)?shù) ? 第一次從未排好序的數(shù)組中找出最?。ɑ蜃畲螅┑?,放在第一個(gè)位置;第二次從后面的 n- 1個(gè)數(shù)中找出最小(或最大)的,放在第二個(gè)位置; …… 例題:選擇排序 每次對(duì)相鄰的兩個(gè)數(shù)進(jìn)行比較,若不符合順序,則交換位置; 例題:冒泡排序 查找 ? 順序查找即將關(guān)鍵字與數(shù)組中的元素逐一比較 ,若相同 , 查找成功 。 例題:順序查找