1、2008春VB03一、改錯題（14分）【題目】本程序功能是求二維的隨機整數數組每一行元素中素數的個數。Option ExplicitDim a() As Integer, m As Integer, n As IntegerPrivate Sub Command1_Click() Dim i As Integer, j As Integer m = InputBox("行數", , 4) n = InputBox("列數", , 5) ReDim a(m, n) For i = 1 To m For j = 1 To n a(i, j) = Int(Rn

2、d * 90) + 10 Picture1.Print a(i, j); Next j Picture1.Print Next iEnd SubPrivate Sub Command2_Click() Dim i As Integer, j As Integer Dim k As Integer, m As Integer, n As Integer k = 0 For i = 1 To m For j = 1 To n If prime(a(i, j) Then k = k + 1 Next j Text1 = Text1 & k & vbCrLf Next iEnd Sub

3、Private Function prime(n As Integer) As Boolean Dim i As Integer For i = 2 To Sqr(n) If n Mod i = 0 Then Exit For Next i prime = TrueEnd Function【要求】1 新建工程，輸入上述代碼，改正程序中的錯誤；2 改錯時，不得增加或刪除語句，但可適當調整語句位置；3 將窗體文件和工程文件分別命名為F1和P1，并保存到軟盤A的根目錄下。二、編程題（26分）【題目】編寫程序，查找給定范圍A, B內所有升序完全平方數。所謂升序完全平方數是指該數的平方根是一個整數，且組

4、成該數的各位數字由左至右，依次遞增。例如13689的平方根是117，它就是一個升序完全平方數。【編程要求】1 程序參考界面如圖所示，編程時不得增加或減少界面對象或改變對象的種類，窗體及界面元素大小適中，且均可見；2 運行程序，在文本框1和文本框2中分別輸入A與B的值，按“查找”按鈕，開始查找并在列表框中顯示結果；按“清除”按鈕，則將所有文本框與列表框清空，焦點置于文本框1上；3 程序中應定義一個名為sx的函數過程，用于判斷一個正整數是否為升序數。【提示】判斷一個整數是否為升序數，首先要分解得到該數的各位數字，再逐位依次判斷其大小。【要求】將窗體文件和工程文件分別命名為F2和P2，并保存到軟盤A

5、的根目錄下。2008秋VB01一、改錯題（14分）【題目】本程序的功能是：隨機生成一個有n個元素的數組（n由InputBox函數輸入），找出其中的最大元素并將它刪除，再輸出刪除后的數組。Option ExplicitOption Base 1Dim a() As Integer, n As IntegerPrivate Sub Command1_Click() Dim i As Integer n = InputBox("請輸入數組個數", , 10) ReDim a(n) For i = 1 To n a(i) = Int(Rnd * 100) + 1 Text1 = T

6、ext1 & Str(a(i) Next i Call lookup(a) For i = 1 To n Text2 = Text2 & Str(a(i) Next iEnd SubPrivate Sub lookup(a() As Integer) Dim maxv As Integer, maxp As Integer, i As Integer maxv = a(1): maxp = 1 For i = 2 To n If a(i) > maxv Then maxv = a(i): maxp = i End If Next i Call move_f(a, maxp

7、)End SubPrivate Sub move_f(a() As Integer, k As Integer) Dim i As Integer For i = k + 1 To UBound(a) a(i) = a(i + 1) Next i ReDim a(UBound(a) - 1)End Sub 【要求】4 新建工程，輸入上述代碼，改正程序中的錯誤；5 改錯時，不得增加或刪除語句，但可適當調整語句位置；3. 將窗體文件和工程文件分別命名為F1和P1，并保存到T盤的根目錄下。二、編程題（26分）【題目】編寫程序，找出介于a和b之間所有能構成幻影素數的數。所謂幻影素數是指自身為素數，其反

8、序數也是素數的數。例如107和701都是素數，所以107是幻影素數。【編程要求】1.程序參考界面如圖所示，編程時不得增加或減少界面對象或改變對象的種類，窗體及界面元素大小適中，且均可見；2.運行程序，在文本框A和文本框B中輸入指定數據范圍，再按“運行”按鈕，將找出的幻影素數存放在列表框中（若指定區間無幻影素數，則輸出“本區間無幻影素數”）。按“清除”按鈕，將文本框和列表框清空，焦點置于文本框A上；3.程序中應定義一個名為prime的函數過程，用于判斷一個整數是否為素數；再定義一個求一個整數的反序數的通用過程。【要求】將窗體文件和工程文件分別命名為F2和P2，并保存到T盤的根目錄下。2008秋V

9、B02一、改錯題（14分）【題目】本程序的功能是查找80150范圍內的特殊十進制數據，其特點是該十進制數對應的8進制數為回文數（指從左向右讀與從右向左讀是一樣的數）。例如十進制數據105對應八進制數為151，151屬于回文數，所以105就是符合要求的數。Option ExplicitPrivate Sub Command1_Click() Dim i As Integer, hw As String, fg As Boolean Dim st As String For i = 80 To 150 fg = False Call hw8(i, hw, fg) If fg Then st = C

10、Str(i) & "=>" & hw & "&O" List1.AddItem st End If Next iEnd SubPrivate Sub hw8( n As Integer, hw As String, f As Boolean) Dim k As Integer, st() As String * 1, i As Integer hw = "" Do k = k + 1 ReDim Preserve st(k) st(k) = n Mod 8 hw = st(k) & hw

11、n = n 8 Loop Until n < 0 For i = 1 To UBound(st) / 2 If st(i) <> st(UBound(st) - i + 1) Then Exit For Next i f = TrueEnd Sub【要求】1新建工程，輸入上述代碼，改正程序中的錯誤；2改錯時，不得增加或刪除語句，但可適當調整語句位置；3將窗體文件和工程文件分別命名為F1和P1，并保存到T盤的根目錄下。二、編程題（26分）【題目】編寫程序，驗證任意一個不超過9位的自然數，經過下述的反復變換最終得到123。變換方法是：統計該數的偶數（0算偶數）個數記為a，奇數個數

12、記為b，數據位數記為c；以a為百位數、b為十位數、c為個位數，得到一個新數（若a=0，則以b為百位數、a為十位數），若這個新數不是123，再按上述步驟進行變換，直到出現123為止。123被稱為陷阱數。【編程要求】1.程序參考界面如圖所示，編程時不得增加或減少界面對象或改變對象的種類，窗體及界面元素大小適中，且均可見；2.運行程序，在文本框1中任意輸入一個不超過9位的自然數后，按“驗證”按鈕，則根據變換規則生成新數，將其輸出到列表框，重復變換操作，直到得到123為止，最后輸出“驗證成功”信息；按“清除”按鈕，將文本框和列表框清空，焦點置于文本框上；按“結束”按鈕，結束程序運行；3.程序中應定義一

13、個名為Validate的通用過程，用于對數據進行變換操作。【要求】將窗體文件和工程文件分別命名為F2和P2，并保存到T盤的根目錄下。2009秋VB01一、改錯題（14分）【題目】本程序的功能是，將24位真彩色圖像的一個像素的顏色值，轉換成用十進制表示的紅、綠、藍三基色的亮度值。Option ExplicitOption Base 1Private Sub Command1_Click() Dim st As String, c(3) As String * 8 Dim k As Integer, color(3) As String color(1) = "紅色" colo

14、r(2) = "綠色" color(3) = "藍色" st = Text1 Do k = k + 1 c(k) = Left(st, 8) st = Right(st, Len(st) - 8) Loop Until k > 3 For k = 1 To 3 Text2 = Text2 & color(k) & ":" & b2d(c) & vbCrLf NextEnd SubPrivate Function b2d(s As String) As Integer Dim k As Intege

15、r Do b2d = b2d + Val(Right(s, 1) * 2 k s = Left(s, Len(s) - 1) k = k + 1 Loop Until k = Len(s)End Function【要求】1 新建工程，輸入上述代碼，改正程序中的錯誤；2 改錯時，不得增加或刪除語句，但可適當調整語句位置；3 將窗體文件和工程文件分別命名為F1和P1，并保存到T盤的根目錄下。二、編程題（26分）【題目】編寫程序，隨機生成m行n列由1位非零整數組成的數組；并分別求出數組中所有周邊元素之和與非周邊元素（內部）之和。（m、n由InputBox函數輸入，缺省值分別為4、5）【編程要求】1.

16、 程序參考界面如圖所示，編程時不得增加或減少界面對象或改變對象的種類，窗體及界面元素大小適中，且均可見；2. 運行程序，按“運行”按鈕，出現如圖的InputBox函數窗口，分別輸入數組行、列數（或使用缺省值）后按“確定”，則生成隨機數組并顯示在圖片框中，并在文本框1與2中分別輸出數組周邊元素之和與非周邊元素（內部）之和；按“清除”按鈕，將所有文本框和圖片框清空；按“結束“按鈕”結束程序運行；3. 程序中應定義一個通用過程，用于求二維數組的周邊元素之和與非周邊元素之和。【要求】將窗體文件和工程文件分別命名為F2和P2，并保存到T盤的根目錄下。 2009秋VB02一、改錯題（14分）【題目】本程序

17、的功能是，找出所有兩位整數中的“鏡反平方數對”。所謂“鏡反平方數對”是指數對n與m，它們滿足條件：n與m不含有數字0，且n不等于m；n的反序數是m，n的平方數的反序數等于m的平方。例如12與21,12的平方是144，其反序數是441，而21的平方正好等于441；所以12與21是鏡反平方數對。Option ExplicitPrivate Sub Command1_Click() Dim n As Integer, fn As Integer, st As String For n = 11 To 99 If InStr(CStr(n), "0") <> 0 The

18、n fn = fx(n) If validate(n, fn) And n < fn Then st = n & "2=" & n 2 & "," & fn & "2=" & fn 2 List1.AddItem st End If End If Next n If List1.ListCount = 0 Then List1.AddItem "無鏡反平方數"End SubPrivate Function fx(n As Integer) As Integer

19、Dim s As String Do s = s & Str(n Mod 10) n = n 10 Loop Until n = 0 fx = sEnd FunctionPrivate Function validate(p As Integer, q As Integer) As Boolean If fx(p 2) = q 2 Then validate = True End IfEnd Function【要求】1.新建工程，輸入上述代碼，改正程序中的錯誤；2.改錯時，不得增加或刪除語句，但可適當調整語句位置；3.將窗體文件和工程文件分別命名為F1和P1，并保存到T盤的根目錄下。二

20、、編程題（26分）【題目】編寫程序，找出輸入字符串ASCII代碼值最大的字符，把它移動到原字符串的末尾，其他字符的排列順序維持不變。例如，輸入“student”，結果是“stdentu”（若輸入字符串中含有多個最大字符，只移動其中的一個）。【編程要求】1.程序參考界面如圖所示，編程時不得增加或減少界面對象或改變對象的種類，窗體及界面元素大小適中，且均可見；2.運行程序，首先在“原字符串”文本框中輸入測試字符串，然后按“處理”按鈕，接受輸入并按要求進行相關處理，將得到的新字符串輸出到“新字符串”文本框中；按“清除”按鈕，將兩個文本框清空，焦點置于“原字符串”文本框上；按“結束”按鈕，結束程序運行

21、；3.程序中應定義一個通用過程，用于找出一個字符串中ASCII代碼最大的字符及其位置。【要求】將窗體文件和工程文件分別命名為F2和P2，并保存到T盤的根目錄下。2009秋VB03一、改錯題（14分）【題目】本程序的功能是，找出指定范圍內的五位整數中，由不同數字組成的所有素數。Option ExplicitPrivate Sub Command1_Click() Dim n As Long For n = 34567 To 40000 If prime(n) Or validate(n) Then Text1 = Text1 & n & vbCrLf End If Next n

22、If Text1 = "" Then Text1 = "無符合要求的數"End SubPrivate Function prime(n As Long) As Boolean Dim i As Integer For i = 2 To Sqr(n) If n Mod i = 0 Then Exit Function Next i prime = TrueEnd FunctionPrivate Function validate(n As Long) As Boolean Dim num(5) As Integer, i As Integer, k As

23、Integer For i = 1 To 5 num(i) = n Mod 10 n = n / 10 Next i For i = 1 To 4 For k = i + 1 To 5 If num(i) = num(k) Then Exit Function Next k Next i validate = TrueEnd Function【要求】1.新建工程，輸入上述代碼，改正程序中的錯誤；2.改錯時，不得增加或刪除語句，但可適當調整語句位置；3.將窗體文件和工程文件分別命名為F1和P1，并保存到T盤的根目錄下。二、編程題（26分）【題目】設24位真彩圖像的一個像素的顏色值用A1A2B1B

24、2C1C2形式的十六進制數表示，其中A1A2、B1B2、C1C2分別表示紅、綠、藍三種顏色的亮度值。編寫程序，分別求出該像素紅（R）、綠（G）、藍（B）三種顏色以十進制數表示的亮度值。【編程要求】1.程序參考界面如圖所示，編程時不得增加或減少界面對象或改變對象的種類，窗體及界面元素大小適中，且均可見；2.運行程序，首先在文本框1中輸入像素以十六進制數表示的顏色值，然后按“運行”按鈕，對顏色值進行處理，并將處理結果按下圖給出的形式顯示在多行文本框2中；按“清除”按鈕，將兩個文本框清空，焦點置于文本框1上；按“結束”按鈕，結束程序運行；3.程序中應定義一個名為h2d的通用過程，其功能是將一個十六進

25、制數轉換為十進制數。【要求】將窗體文件和工程文件分別命名為F2和P2，并保存到T盤的根目錄下。2010春VB02一、改錯題（14分）【題目】本程序的功能：利用隨機函數生成n個可被3整除、且至少包含一個8的三位整數。Option ExplicitPrivate Sub Command1_Click() Dim n As Integer, a() As Integer, i As Integer Dim st As String n = InputBox("數據個數n：", "查找", 15) ReDim a(n) Call find(a) For i =

26、1 To n If n Mod 3 <> 0 Then st = st & Str(a(i) Else st = st & Str(a(i) & vbCrLf End If Next i Text1 = stEnd Sub Private Sub find(a() As Integer) Dim ub As Integer, k As Integer, p As Integer Dim s As String Randomize ub = UBound(a) Do p = Int(Rnd * 899) + 100 s = CStr(p) If InStr(s

27、, "8") <> 0 Or p Mod 3 = 0 Then k = k + 1 a(k) = p End If Loop Until k > ub End Sub【要求】1.新建工程，輸入上述代碼，改正程序中的錯誤；2.改錯時，不得增加或刪除語句，但可適當調整語句位置；3.將窗體文件和工程文件分別命名為F1和P1，并保存到T盤的根目錄下。二、編程題（26分）【題目】編寫程序，求指定范圍內的非素數整數的所有真因子（除1和自身以外的因子）。【編程要求】1.程序參考界面如圖所示，編程時不得增加或減少界面對象或改變對象的種類，窗體及界面元素大小適中，且均可見；

28、2.運行程序，首先在X文本框和Y文本框中輸入相應的數據后，按“運行”按鈕，進行相關處理，在列表框中按給定格式輸出結果；按“清除”按鈕，清空兩個文本框和列表框，焦點置于文本框X上，按“結束”按鈕，結束程序運行；3.程序中應定義一個通用過程，用于求整數的所有真因子。【要求】將窗體文件和工程文件分別命名為F2和P2，并保存到T盤的根目錄下。 2010秋VB01一、改錯題（14分）【題目】本程序的功能是，找出10100之間的所有只有奇數真因子的整數。所謂數據n的真因子是指除了1和n之外的因子。Option ExplicitOption Base 1Private Sub Cmd1_Click() Di

29、m fac() As Integer, n As Integer Dim i As Integer, sn As String, flag As Boolean flag=false For n = 10 To 100 Call jsyz(n, fac, flag) If flag Then sn = n & ":" For i = 1 To UBound(fac) sn = sn & fac(i) & "," Next i List1.AddItem Left(sn, Len(sn) - 1) End If Next nEnd

30、SubPrivate Sub jsyz(n As Integer, fa() As Integer, flag As Boolean) Dim i As Integer, k As Integer,n as Integer For i = 2 To n - 1 If n Mod i = 0 Then If i Mod 2 <> 0 Then k = k + 1 ReDim fa(k) fa(k) = i Else Exit Sub End If End If Next i If k <> 0 Then flag = TrueEnd Sub【要求】1. 新建工程，輸入上述

31、代碼，改正程序中的錯誤；2. 改錯時，不得增加或刪除語句，但可適當調整語句位置；3. 將窗體文件和工程文件分別命名為F1和P1，并保存到T盤的根目錄下。二、 編程題（26分）【題目】編寫程序，隨機生成一個元素值為1040之間整數的4行5列數組；找出該二維數組的最大元素與最小元素，并將最大元素與最小元素的值以及相應的行號和列號輸出到圖片框中。（注意：數組最大元素與最小元素都可能有多個）【編程要求】1、 程序參考界面如圖所示，編程時不得增加或減少界面對象或改變對象的種類，窗體及界面元素大小適中，且均可見；2、 運行程序，按“運行”按鈕，則生成隨機數組并顯示在圖片框Pic1中，并在圖片框Pic2中輸

32、出數組最大元素值和最小元素值機相應的數組元素的行號與列號；按“清除”按鈕，將兩個圖片框清空，焦點置于“運行”按鈕；按“結束”按鈕，結束程序運行；3、 程序中應定義一個通用過程maxmin，用于求二維數組最大元素值與最小元素值。【要求】將窗體文件和工程文件分別命名為F2和P2，并保存到T盤的根目錄下。2010秋VB02一、改錯題（14分）【題目】本程序的功能是，查找首末兩位數字之和與中間兩位數字之和相等的四位素數。Option ExplicitPrivate Sub CmdFind_Click() Dim i As Integer, Fg As Boolean For i = 1001 To 9

33、999 Fg = False Call PD(i, Fg) If Prime(i) And Fg Then List1.AddItem i Next iEnd SubPrivate Function Prime(n As Integer) As Boolean Dim k As Integer For k = 2 To Sqr(n) If n Mod k = 0 Then Exit For Next k Prime = TrueEnd FunctionPrivate Sub PD( n As Integer, Flg As Boolean) Dim i As Integer, A(4) As

34、Integer, S As Integer Dim L As IntegerL = Len(Str(n) For i = 1 To L A(i) = n Mod 10 n = n 10 Next i If A(1) + A(4) = A(2) + A(3) Then Flg = True End IfEnd Sub【要求】1新建工程，輸入上述代碼，改正程序中的錯誤；2. 改錯時，不得增加或刪除語句，但可適當調整語句位置；3. 將窗體文件和工程文件分別命名為F1和P1，并保存到T盤的根目錄下。二、 編程題（26分）【題目】編寫程序，輸入一個5位以上的整數，將組成該數的各位數字重新排列成一個與原整

35、數位數相同的最小整數。【編程要求】1. 程序參考界面如圖所示，編程時不得增加或減少界面對象或改變對象的種類，窗體及界面元素大小適中，且均可見；2. 運行程序，在輸入數據文本框中輸入一個5位以上的整數后，按“開始”按鈕，則在相應的文本框中，顯示得到的最小數；按“清除”按鈕，將所有文本框清空，焦點置于輸入數據文本框上；按“結束”按鈕，結束程序運行；3. 程序中應定義通用過程，用于求由給定整數的各位數字組成的最小數。【要求】將窗體文件和工程文件分別命名為F2和P2，并保存到T盤的根目錄下。2010秋VB03一、改錯題（14分）【題目】本程序的功能是，在5張卡片上寫有1、2、3、4、5五個數，對卡片進行排列（5張卡片的全排列共有5！種），找出同時符合以下兩個條件的所有排列：相鄰