【正文】 to 20 step 2 a=a+j\5 next j 該程序段運(yùn)行后， a 的值為 37．有如下程序段： a=1:b=2:c=3 a=a+b:b=b+c:c=b+a if a3 Or b3 Then a=ba:b=ca:c=b+a endif 該程序段運(yùn)行后，表達(dá)式 a+b+c 的值為 38．有如下程序段： 《算法與程序設(shè)計(jì)》復(fù)習(xí)提綱 18 dim c as integer,num as integer num=29483 do while num0 c=num mod 10 print c num=num\10 loop 該程序段運(yùn)行后的結(jié)果是 39．以下程序的功能是：從鍵盤上輸入若干個(gè)學(xué)生的 考試分?jǐn)?shù)，當(dāng)輸入負(fù)數(shù)時(shí)結(jié)束輸入，然后輸出其中的最高分?jǐn)?shù)和最低分?jǐn)?shù)。 Private Sub Form1_Click() Dim x as single,amax as single,amin as single X=inputbox(“ Enter a score” ) amax=x amin=x Do While If xamax then amax=x End if If then amin=x End if X=inputbox(“ Enter a score” ) Loop Print “ max=” 。amin End sub 40．以下程序的功能是：生成 20 個(gè) 200 到 300 之間的隨機(jī)整數(shù)，輸出其中能被 5 整除的數(shù)并求出它們的和。 Private Sub Command1_Click() For I=1 to 20 X=Int( *101+200) If =0 then Print x S=S+ End if Next I Print “ sub=” 。請?jiān)诳瞻滋幪钊脒m當(dāng)?shù)拇a。 過程： 主要指 對象的事件處理過程，如在按鈕對象 mad1 上發(fā)生“鼠標(biāo)單擊”事件時(shí)，會(huì)執(zhí)行一段程序來響應(yīng)這個(gè)事件，這一段程序就是一個(gè)事件處理過程 過程的結(jié)構(gòu)： sub 事件處理過程名（參數(shù)表） ‘有些過程沒有參數(shù)表 語句塊 End sub 函數(shù)： 能實(shí)現(xiàn)某個(gè)特定功能的一個(gè)程序模塊，包括 VB 中的標(biāo)準(zhǔn)函數(shù)，如絕對值函數(shù) abs(x)，取整函數(shù)int(x)等；還有一種就是用戶自定義的函數(shù)，比如在程序中，經(jīng)常會(huì)用到 1＋ 2＋ 3＋。 函數(shù)的結(jié)構(gòu)： function 函數(shù)名（參數(shù)表） as 類型名 語句塊 End function （第二章＋第五章）算法及算法的程序?qū)崿F(xiàn) 1．枚舉算法及程序?qū)崿F(xiàn) ①什么是 枚舉算法 ―― 列舉某問題所有可能的解，并檢驗(yàn)列舉的解，如是真解，則保留；否則拋棄。 具體實(shí)例 ：水仙花數(shù)：如果一個(gè)三位數(shù)等于它的每個(gè)數(shù)字的立方和，則此數(shù)稱為“水仙花”數(shù)，如：153=13+53+33 程序段如下： For i = 100 To 999 a = i \ 100 b = i \ 10 Mod 10 c = i Mod 10 If a ^ 3 + b ^ 3 + c ^ 3 = i Then (Str(i)) sum = sum + 1 《算法與程序設(shè)計(jì)》復(fù)習(xí)提綱 20 End If Next i 2．解析算法及程序?qū)崿F(xiàn) ①什么是 解析算法 用常用的數(shù)學(xué)公式來解決某些問題，這種叫解析算法 ② 解析算法的典型實(shí)例：如儲(chǔ)蓄問題；已知速度和時(shí)間求路程問題等 ③ 解析 算法的實(shí)現(xiàn)： 先找出解決問題的數(shù)學(xué)公式，然后轉(zhuǎn)化為 VB 的計(jì) 算過程 具體實(shí)例：儲(chǔ)蓄顧問 M 元錢需要多少年，才能得到至少 K 元利息？ Private Sub Command1_Click() Dim x As Double m = Val() k = Val() x = (k m) / ( * m) y = Fix(x) If y x Then y = y + 1 = 存款應(yīng)為 + Str(y) + 年 End Sub 例題 2：火車托運(yùn)行李，要根據(jù)行李的重量按下列標(biāo)準(zhǔn)收費(fèi)： 若不超過 50 千克，按每千克 元收費(fèi)，若超過 50 千克，超過部分則按每千克 元收費(fèi)。 下面程序若用于實(shí)現(xiàn)上述目標(biāo)，則劃線紅色加粗處的語句應(yīng)更改為 _________ sub mand1_click() dim x as double x=val() if x50 then =str(*x) else =str(*x) end if end sub 答案：劃線處的填空內(nèi)容依次更改為 x=50 和 str(50*+*(x50)) 3．排序算法及程序?qū)崿F(xiàn) ①什么是冒泡排序 思想方法：在待排定的數(shù)據(jù)中， 相鄰兩數(shù)做對比，將較小的數(shù)據(jù)換在 前面， 直到最小數(shù)推到數(shù)組的第 1 位上；重復(fù)這個(gè)過程， 直到只剩下最后一個(gè)數(shù)據(jù)為止。 ④選擇排序的實(shí)現(xiàn) 核心代碼： For i= 1 to n1 ‘要做 n－ 1 次選擇過程 k=i ‘ k 是當(dāng)前掃描到的最小的數(shù)，第 i 次選擇開始時(shí)，都默認(rèn)為 d(i) 最小 for j=i+1 to n if d(j)d(k) then k=j ‘若當(dāng)前掃描到的數(shù) d(j)比 d(k)小，則讓 k=j next j ‘當(dāng)前這一次循環(huán)完成后， d(k)肯定是這一次選擇的最小數(shù) if i k then ‘ 一次選擇完成后，觀察 k 還是不是最開始設(shè)定的 i c=d(k) d(k)=d(i) d(i)=c ‘ 若 k 不等于 i，則讓第 i 個(gè)數(shù)等于這一次掃描到的最小數(shù) Next I 例題：有如下 Visual Basic 程序： Dim a(1 To 6) As Integer Dim n, i, j, k As Integer Private Sub Command1_Click() For I = 1 To n 1 For j = I + 1 To n If a(I) a(j) Then k = a(I): a(I) = a(j): a(j) = k End If Next j Next I For I = 1 To n Str(a(I)) Next I End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then n = n + 1 a(n) = Val() Str(a(n)) = : End If End Sub 在列表框 list1 中，依次輸入數(shù)據(jù)： 2 7 9 8 3 12 該程序運(yùn)行后，在列表框 list2 中顯示 （ A） 2 7 9 8 3 12 （ B） 12 9 8 2 3 7 （ C） 7 3 2 8 9 12 （ D） 7 3 12 9 8 2 答案： (B) 4．查找算法及程序?qū)崿F(xiàn) 《算法與程序設(shè)計(jì)》復(fù)習(xí)提綱 22 ①順序查找 思想方法：從第一個(gè)數(shù)據(jù)開始，按數(shù)據(jù)的順序 逐個(gè)將數(shù)據(jù)與給定的值進(jìn)行比較，若某個(gè)數(shù)據(jù)和給定值相等，則查找成功，找到所查數(shù)據(jù)的位置 。 ②順序查找的實(shí)現(xiàn) 核心代碼： For i = 1 To n ‘共有 n 個(gè)數(shù)，從頭到尾依次掃描 If key = d(i) Then = i : Exit For ‘找到了就直接退出循環(huán) Next If i = n+1 Then = 找不 到 ‘找到的話是在循環(huán)中途退出來的，所以 i 肯定比 n+1 小，找不到的話，是一直到循環(huán)結(jié)束退出的，這時(shí) i=n+1 ③對分查找 操作方法：對分查找是一種高效率的查找方法，但要求數(shù)據(jù)源必須是有序排列的。否則根據(jù)數(shù)組元素的有序性，就可以確定查找關(guān)鍵字處于數(shù)組的前半部分還是后半部分；在新確定的查找范圍內(nèi)，再按上面的辦法進(jìn)行查找，直到找到結(jié)果為止。 ④對分查找的實(shí)現(xiàn) 核心 代碼： i = 1: j = n ‘第一次查找的范圍 Do While i = j ‘查找范圍的起點(diǎn)不能超過終點(diǎn) m = Fix((i + j) / 2) ‘每次查找，先確定當(dāng)前查找范圍的中點(diǎn)位置 If d(m) = key Then ‘中點(diǎn)位置上的數(shù)與查找關(guān)鍵字比較 = m: Exit Do ‘如果相等，則可以直接退出查找了 ElseIf key d(m) Then ‘如果關(guān)鍵字比中點(diǎn)數(shù)小 j = m – 1 ‘確定下一次的查找范圍在前半部分 Else ‘關(guān)鍵字比中點(diǎn)數(shù)大 i = m + 1 ‘確定下一次的查找范圍在后半部分 End If Loop If i j Then = 找不到 ‘找到的話，是在循環(huán)中途退出來的所以 i=j,找不到的話，是到循環(huán)結(jié)束 ij 時(shí)退出 答案： 題號 1 2 3 4 5 6 7 8 9 10 答案 B C 題號 11 12 13 14 15 16 17 18 19 20 答案 C D C D C B B C C 題號 21 22 23 24 25 26 27 28 29 30 答案 B C B D C A 1 C A B 題號 31 32 33 34 35 36 37 38 39 40 答案 A B B B 11 16 16 38492 x=0 xamin rnd() x mod 5 x 4 nmax nmin smaxmin P11 例 2 答案：劃線處的填空內(nèi)容依次更改為 x=50 和 str(50*+*(x50))