vb程序設計教程潘蕾考題分類總結

1、考題分類總結考題分類總結 與素數(shù)相關與素數(shù)相關 找一定區(qū)間范圍內的素數(shù)找一定區(qū)間范圍內的素數(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ù)） 從一串大小寫字母混合的字符串中把其中的大寫從一串大小寫字母混合的字符串中把其中的大寫字母提取出來字母提取出來 從一串數(shù)字字母混合的字符串中把其中的單個或從一串

2、數(shù)字字母混合的字符串中把其中的單個或連續(xù)的數(shù)字或字符提取出來連續(xù)的數(shù)字或字符提取出來 字符串的加密、解密字符串的加密、解密 統(tǒng)計字符串中各字符出現(xiàn)的次數(shù)統(tǒng)計字符串中各字符出現(xiàn)的次數(shù) 數(shù)字處理數(shù)字處理各種進制數(shù)之間的轉換各種進制數(shù)之間的轉換 十進制轉換成十進制轉換成n進制進制 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ù)相關與最大公約數(shù)相關 求最大公約數(shù)求最大公約數(shù) 最小公倍數(shù)（乘積最小公倍數(shù)（乘積/最大公約數(shù)）最大公約數(shù)） 分數(shù)約分分數(shù)約分 判斷互質數(shù)（兩個數(shù)的最大公約數(shù)是判斷互質數(shù)（兩個數(shù)的最大公約數(shù)是1） 關于數(shù)組處理關于數(shù)組處理如何生成數(shù)組長度由用戶輸入的隨機一維、二維如何生成數(shù)組長度由用戶輸入的隨機一維、二維數(shù)組，并在窗體、文本框、圖片框輸出數(shù)組；數(shù)組，并在窗體、文本框、圖片框輸出數(shù)組；如何生成不含重復數(shù)的一維數(shù)組；如何生成不含重復數(shù)的一維數(shù)組；一維數(shù)組：排序、求平均值、找最大、最小的元一維數(shù)組：排序、求平均值、找最大、最小的元素并記錄其位置；素并記錄其位置；刪除數(shù)組

5、中最大刪除數(shù)組中最大/最小數(shù)；最小數(shù)；二維數(shù)組：找最大、最小元素并記錄位置，求主二維數(shù)組：找最大、最小元素并記錄位置，求主、副對角線元素之和、周邊元素之和、鞍點、如、副對角線元素之和、周邊元素之和、鞍點、如何交換指定兩行或兩列元素；何交換指定兩行或兩列元素； 生成無重復數(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 求已知通項表達式的累加和；求已知通項表達式的累加和； 明確要

6、求求前明確要求求前n項，用項，用for循環(huán)；循環(huán)； 指明通項小于給定的精度，則用指明通項小于給定的精度，則用do-loop循環(huán)；循環(huán)； 關鍵點是寫出通項對應的表達式，特別是當前項與關鍵點是寫出通項對應的表達式，特別是當前項與前一項之間的關系；前一項之間的關系； 重復執(zhí)行某操作，直至驗證某命題成立（重復執(zhí)行某操作，直至驗證某命題成立（do-loop循環(huán)）；循環(huán)）；找出給定范圍內滿足有關條件的所有的數(shù)找出給定范圍內滿足有關條件的所有的數(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）條件可以為邏輯變量，）條件可以為邏輯變量， 邏輯表邏輯表 達式，布爾型函數(shù)調用達式，布爾型函數(shù)調用 （2）輸出的內容注意格式的）輸出的內容注意格式的 書寫（字符串與變量的連接）書寫（字符串與變量的連接） 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驗證哥德巴赫猜想，實驗指導書驗證哥德巴赫猜想，實驗指導書11-5 if prime(j) and prime(i - j) then 布爾型函數(shù)調用布爾型函數(shù)調用 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.孿