vb程序設(shè)計教程潘蕾考題分類總結(jié)

1、考題分類總結(jié)考題分類總結(jié) 與素數(shù)相關(guān)與素數(shù)相關(guān) 找一定區(qū)間范圍內(nèi)的素數(shù)找一定區(qū)間范圍內(nèi)的素數(shù) 孿生素數(shù)（差為孿生素數(shù)（差為2的一對素數(shù)）的一對素數(shù)） 幻影素數(shù)（原數(shù)和其逆序數(shù)都為素數(shù)）幻影素數(shù)（原數(shù)和其逆序數(shù)都為素數(shù)） 歌德巴赫猜想（偶數(shù)可以表示成任意兩個素數(shù)歌德巴赫猜想（偶數(shù)可以表示成任意兩個素數(shù)） 由不同數(shù)字組成的素數(shù)由不同數(shù)字組成的素數(shù) 首位和末位相同的素數(shù)首位和末位相同的素數(shù) 字符處理（字符處理（for循環(huán)循環(huán)mid函數(shù)）函數(shù)） 從一串大小寫字母混合的字符串中把其中的大寫從一串大小寫字母混合的字符串中把其中的大寫字母提取出來字母提取出來 從一串?dāng)?shù)字字母混合的字符串中把其中的單個或從一串

2、數(shù)字字母混合的字符串中把其中的單個或連續(xù)的數(shù)字或字符提取出來連續(xù)的數(shù)字或字符提取出來 字符串的加密、解密字符串的加密、解密 統(tǒng)計字符串中各字符出現(xiàn)的次數(shù)統(tǒng)計字符串中各字符出現(xiàn)的次數(shù) 數(shù)字處理數(shù)字處理各種進(jìn)制數(shù)之間的轉(zhuǎn)換各種進(jìn)制數(shù)之間的轉(zhuǎn)換 十進(jìn)制轉(zhuǎn)換成十進(jìn)制轉(zhuǎn)換成n進(jìn)制進(jìn)制 n進(jìn)制轉(zhuǎn)換成十進(jìn)制進(jìn)制轉(zhuǎn)換成十進(jìn)制回文數(shù)（對稱數(shù)）回文數(shù)（對稱數(shù)）完數(shù)（找整數(shù)的因子并存入動態(tài)數(shù)組完數(shù)（找整數(shù)的因子并存入動態(tài)數(shù)組 ）升序數(shù)、降序數(shù)升序數(shù)、降序數(shù)armstrong數(shù)數(shù) 判斷整數(shù)由互不相同的數(shù)字組成判斷整數(shù)由互不相同的數(shù)字組成 判斷整數(shù)是否是平方數(shù)、立方數(shù)判斷整數(shù)是否是平方數(shù)、立方數(shù)private func

3、tion judge(n as long) as boolean 判斷整數(shù)n由不同的數(shù)字組成 dim k as integer, a() as integer, i as integer, j as integer do k = k + 1 redim preserve a(k) a(k) = n mod 10 n = n 10 loop until n = 0 for i = 1 to ubound(a) - 1 for j = i + 1 to ubound(a) if a(i) = a(j) then exit function next j next i judge = trueend

4、 function 與最大公約數(shù)相關(guān)與最大公約數(shù)相關(guān) 求最大公約數(shù)求最大公約數(shù) 最小公倍數(shù)（乘積最小公倍數(shù)（乘積/最大公約數(shù)）最大公約數(shù)） 分?jǐn)?shù)約分分?jǐn)?shù)約分 判斷互質(zhì)數(shù)（兩個數(shù)的最大公約數(shù)是判斷互質(zhì)數(shù)（兩個數(shù)的最大公約數(shù)是1） 關(guān)于數(shù)組處理關(guān)于數(shù)組處理如何生成數(shù)組長度由用戶輸入的隨機(jī)一維、二維如何生成數(shù)組長度由用戶輸入的隨機(jī)一維、二維數(shù)組，并在窗體、文本框、圖片框輸出數(shù)組；數(shù)組，并在窗體、文本框、圖片框輸出數(shù)組；如何生成不含重復(fù)數(shù)的一維數(shù)組；如何生成不含重復(fù)數(shù)的一維數(shù)組；一維數(shù)組：排序、求平均值、找最大、最小的元一維數(shù)組：排序、求平均值、找最大、最小的元素并記錄其位置；素并記錄其位置；刪除數(shù)組

5、中最大刪除數(shù)組中最大/最小數(shù)；最小數(shù)；二維數(shù)組：找最大、最小元素并記錄位置，求主二維數(shù)組：找最大、最小元素并記錄位置，求主、副對角線元素之和、周邊元素之和、鞍點(diǎn)、如、副對角線元素之和、周邊元素之和、鞍點(diǎn)、如何交換指定兩行或兩列元素；何交換指定兩行或兩列元素； 生成無重復(fù)數(shù)數(shù)組 n = val(text1.text) redim a(n) i = 1 do while i i - 1 then i = i + 1 loop for i = 1 to n text2.text = text2.text & str(a(i) next i 求已知通項(xiàng)表達(dá)式的累加和；求已知通項(xiàng)表達(dá)式的累加和； 明確要

6、求求前明確要求求前n項(xiàng)，用項(xiàng)，用for循環(huán)；循環(huán)； 指明通項(xiàng)小于給定的精度，則用指明通項(xiàng)小于給定的精度，則用do-loop循環(huán)；循環(huán)； 關(guān)鍵點(diǎn)是寫出通項(xiàng)對應(yīng)的表達(dá)式，特別是當(dāng)前項(xiàng)與關(guān)鍵點(diǎn)是寫出通項(xiàng)對應(yīng)的表達(dá)式，特別是當(dāng)前項(xiàng)與前一項(xiàng)之間的關(guān)系；前一項(xiàng)之間的關(guān)系； 重復(fù)執(zhí)行某操作，直至驗(yàn)證某命題成立（重復(fù)執(zhí)行某操作，直至驗(yàn)證某命題成立（do-loop循環(huán)）；循環(huán)）；找出給定范圍內(nèi)滿足有關(guān)條件的所有的數(shù)找出給定范圍內(nèi)滿足有關(guān)條件的所有的數(shù)private sub command1_click() dim n as integer, m as integer, k as integer dim i as

7、 integer, j as integer, s as string n=text1: m=text2 for i = n to m if 條件條件1 and 條件條件2 and 條件條件3 then list1.additem i 或或 text3=text3 & i & vbcrlf end if 其中（其中（1）條件可以為邏輯變量，）條件可以為邏輯變量， 邏輯表邏輯表 達(dá)式，布爾型函數(shù)調(diào)用達(dá)式，布爾型函數(shù)調(diào)用 （2）輸出的內(nèi)容注意格式的）輸出的內(nèi)容注意格式的 書寫（字符串與變量的連接）書寫（字符串與變量的連接） next iend sub孿生if prime(i) and prime(

8、i + 2) then 孿生素數(shù)孿生素數(shù) list1.additem i & str(i + 2) end ifdim n as integer, m as integer, k as integer dim i as integer, j as integer, s as string n=text1: m=text2 for i = n to m if prime(i) then for j = 2 to sqr(i) 1 超級素數(shù)超級素數(shù) k = i - j 2 if sqr(k) = int(sqr(k) then 完全平方數(shù)完全平方數(shù) s = str(i) & = & str(j 2

9、) & + & str(k) list1.additem s exit for end if next j 先判斷是否是素數(shù)，先判斷是否是素數(shù)， 再判斷是否由兩個完全平方數(shù)組成再判斷是否由兩個完全平方數(shù)組成 end ifnext idim i as integer, j as integerfor i = 4 to 100 step 2 for j = 2 to i驗(yàn)證哥德巴赫猜想，實(shí)驗(yàn)指導(dǎo)書驗(yàn)證哥德巴赫猜想，實(shí)驗(yàn)指導(dǎo)書11-5 if prime(j) and prime(i - j) then 布爾型函數(shù)調(diào)用布爾型函數(shù)調(diào)用 list1.additem i & = & str(j) & + &

10、 str(i - j) exit for end if next j next iarmstrong數(shù)數(shù)private function prime(n as integer) as boolean dim k as integer for k = 2 to sqr(n) if n mod k = 0 then exit function next k prime = trueend functiondim j as integer, m as integer，s as strings=cstr(n) : k = len(s)for j = 1 to k armstrong數(shù)數(shù) m = m + val(mid(s, j, 1) k next j if m = n then prime = true for j = 1 to n 1 完數(shù)完數(shù) if n mod j = 0 then m = m + j next j1.素數(shù)素數(shù)2.孿