江蘇省等考VB上機(jī)真題匯總

1、2008春VB03一、改錯(cuò)題（14分）【題目】本程序功能是求二維的隨機(jī)整數(shù)數(shù)組每一行元素中素?cái)?shù)的個(gè)數(shù)。Option ExplicitDim a() As Integer, m As Integer, n As IntegerPrivate Sub Command1_Click() Dim i As Integer, j As Integer m = InputBox("行數(shù)", , 4) n = InputBox("列數(shù)", , 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 新建工程，輸入上述代碼，改正程序中的錯(cuò)誤；2 改錯(cuò)時(shí)，不得增加或刪除語(yǔ)句，但可適當(dāng)調(diào)整語(yǔ)句位置；3 將窗體文件和工程文件分別命名為F1和P1，并保存到軟盤A的根目錄下。二、編程題（26分）【題目】編寫程序，查找給定范圍A, B內(nèi)所有升序完全平方數(shù)。所謂升序完全平方數(shù)是指該數(shù)的平方根是一個(gè)整數(shù)，且組

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

5、的根目錄下。2008秋VB01一、改錯(cuò)題（14分）【題目】本程序的功能是：隨機(jī)生成一個(gè)有n個(gè)元素的數(shù)組（n由InputBox函數(shù)輸入），找出其中的最大元素并將它刪除，再輸出刪除后的數(shù)組。Option ExplicitOption Base 1Dim a() As Integer, n As IntegerPrivate Sub Command1_Click() Dim i As Integer n = InputBox("請(qǐng)輸入數(shù)組個(gè)數(shù)", , 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 新建工程，輸入上述代碼，改正程序中的錯(cuò)誤；5 改錯(cuò)時(shí)，不得增加或刪除語(yǔ)句，但可適當(dāng)調(diào)整語(yǔ)句位置；3. 將窗體文件和工程文件分別命名為F1和P1，并保存到T盤的根目錄下。二、編程題（26分）【題目】編寫程序，找出介于a和b之間所有能構(gòu)成幻影素?cái)?shù)的數(shù)。所謂幻影素?cái)?shù)是指自身為素?cái)?shù)，其反

8、序數(shù)也是素?cái)?shù)的數(shù)。例如107和701都是素?cái)?shù)，所以107是幻影素?cái)?shù)?！揪幊桃蟆?.程序參考界面如圖所示，編程時(shí)不得增加或減少界面對(duì)象或改變對(duì)象的種類，窗體及界面元素大小適中，且均可見；2.運(yùn)行程序，在文本框A和文本框B中輸入指定數(shù)據(jù)范圍，再按“運(yùn)行”按鈕，將找出的幻影素?cái)?shù)存放在列表框中（若指定區(qū)間無(wú)幻影素?cái)?shù)，則輸出“本區(qū)間無(wú)幻影素?cái)?shù)”）。按“清除”按鈕，將文本框和列表框清空，焦點(diǎn)置于文本框A上；3.程序中應(yīng)定義一個(gè)名為prime的函數(shù)過(guò)程，用于判斷一個(gè)整數(shù)是否為素?cái)?shù)；再定義一個(gè)求一個(gè)整數(shù)的反序數(shù)的通用過(guò)程?！疽蟆繉⒋绑w文件和工程文件分別命名為F2和P2，并保存到T盤的根目錄下。2008秋V

9、B02一、改錯(cuò)題（14分）【題目】本程序的功能是查找80150范圍內(nèi)的特殊十進(jìn)制數(shù)據(jù)，其特點(diǎn)是該十進(jìn)制數(shù)對(duì)應(yīng)的8進(jìn)制數(shù)為回文數(shù)（指從左向右讀與從右向左讀是一樣的數(shù)）。例如十進(jìn)制數(shù)據(jù)105對(duì)應(yīng)八進(jìn)制數(shù)為151，151屬于回文數(shù)，所以105就是符合要求的數(shù)。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新建工程，輸入上述代碼，改正程序中的錯(cuò)誤；2改錯(cuò)時(shí)，不得增加或刪除語(yǔ)句，但可適當(dāng)調(diào)整語(yǔ)句位置；3將窗體文件和工程文件分別命名為F1和P1，并保存到T盤的根目錄下。二、編程題（26分）【題目】編寫程序，驗(yàn)證任意一個(gè)不超過(guò)9位的自然數(shù)，經(jīng)過(guò)下述的反復(fù)變換最終得到123。變換方法是：統(tǒng)計(jì)該數(shù)的偶數(shù)（0算偶數(shù)）個(gè)數(shù)記為a，奇數(shù)個(gè)數(shù)

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

13、個(gè)名為Validate的通用過(guò)程，用于對(duì)數(shù)據(jù)進(jìn)行變換操作?！疽蟆繉⒋绑w文件和工程文件分別命名為F2和P2，并保存到T盤的根目錄下。2009秋VB01一、改錯(cuò)題（14分）【題目】本程序的功能是，將24位真彩色圖像的一個(gè)像素的顏色值，轉(zhuǎn)換成用十進(jìn)制表示的紅、綠、藍(lán)三基色的亮度值。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) = "藍(lán)色" 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 新建工程，輸入上述代碼，改正程序中的錯(cuò)誤；2 改錯(cuò)時(shí)，不得增加或刪除語(yǔ)句，但可適當(dāng)調(diào)整語(yǔ)句位置；3 將窗體文件和工程文件分別命名為F1和P1，并保存到T盤的根目錄下。二、編程題（26分）【題目】編寫程序，隨機(jī)生成m行n列由1位非零整數(shù)組成的數(shù)組；并分別求出數(shù)組中所有周邊元素之和與非周邊元素（內(nèi)部）之和。（m、n由InputBox函數(shù)輸入，缺省值分別為4、5）【編程要求】1.

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

17、的功能是，找出所有兩位整數(shù)中的“鏡反平方數(shù)對(duì)”。所謂“鏡反平方數(shù)對(duì)”是指數(shù)對(duì)n與m，它們滿足條件：n與m不含有數(shù)字0，且n不等于m；n的反序數(shù)是m，n的平方數(shù)的反序數(shù)等于m的平方。例如12與21,12的平方是144，其反序數(shù)是441，而21的平方正好等于441；所以12與21是鏡反平方數(shù)對(duì)。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 "無(wú)鏡反平方數(shù)"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.新建工程，輸入上述代碼，改正程序中的錯(cuò)誤；2.改錯(cuò)時(shí)，不得增加或刪除語(yǔ)句，但可適當(dāng)調(diào)整語(yǔ)句位置；3.將窗體文件和工程文件分別命名為F1和P1，并保存到T盤的根目錄下。二

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

21、；3.程序中應(yīng)定義一個(gè)通用過(guò)程，用于找出一個(gè)字符串中ASCII代碼最大的字符及其位置?！疽蟆繉⒋绑w文件和工程文件分別命名為F2和P2，并保存到T盤的根目錄下。2009秋VB03一、改錯(cuò)題（14分）【題目】本程序的功能是，找出指定范圍內(nèi)的五位整數(shù)中，由不同數(shù)字組成的所有素?cái)?shù)。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 = "無(wú)符合要求的數(shù)"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.新建工程，輸入上述代碼，改正程序中的錯(cuò)誤；2.改錯(cuò)時(shí)，不得增加或刪除語(yǔ)句，但可適當(dāng)調(diào)整語(yǔ)句位置；3.將窗體文件和工程文件分別命名為F1和P1，并保存到T盤的根目錄下。二、編程題（26分）【題目】設(shè)24位真彩圖像的一個(gè)像素的顏色值用A1A2B1B

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

25、制數(shù)轉(zhuǎn)換為十進(jìn)制數(shù)?！疽蟆繉⒋绑w文件和工程文件分別命名為F2和P2，并保存到T盤的根目錄下。2010春VB02一、改錯(cuò)題（14分）【題目】本程序的功能：利用隨機(jī)函數(shù)生成n個(gè)可被3整除、且至少包含一個(gè)8的三位整數(shù)。Option ExplicitPrivate Sub Command1_Click() Dim n As Integer, a() As Integer, i As Integer Dim st As String n = InputBox("數(shù)據(jù)個(gè)數(shù)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.新建工程，輸入上述代碼，改正程序中的錯(cuò)誤；2.改錯(cuò)時(shí)，不得增加或刪除語(yǔ)句，但可適當(dāng)調(diào)整語(yǔ)句位置；3.將窗體文件和工程文件分別命名為F1和P1，并保存到T盤的根目錄下。二、編程題（26分）【題目】編寫程序，求指定范圍內(nèi)的非素?cái)?shù)整數(shù)的所有真因子（除1和自身以外的因子）?！揪幊桃蟆?.程序參考界面如圖所示，編程時(shí)不得增加或減少界面對(duì)象或改變對(duì)象的種類，窗體及界面元素大小適中，且均可見；

28、2.運(yùn)行程序，首先在X文本框和Y文本框中輸入相應(yīng)的數(shù)據(jù)后，按“運(yùn)行”按鈕，進(jìn)行相關(guān)處理，在列表框中按給定格式輸出結(jié)果；按“清除”按鈕，清空兩個(gè)文本框和列表框，焦點(diǎn)置于文本框X上，按“結(jié)束”按鈕，結(jié)束程序運(yùn)行；3.程序中應(yīng)定義一個(gè)通用過(guò)程，用于求整數(shù)的所有真因子。【要求】將窗體文件和工程文件分別命名為F2和P2，并保存到T盤的根目錄下。 2010秋VB01一、改錯(cuò)題（14分）【題目】本程序的功能是，找出10100之間的所有只有奇數(shù)真因子的整數(shù)。所謂數(shù)據(jù)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、代碼，改正程序中的錯(cuò)誤；2. 改錯(cuò)時(shí)，不得增加或刪除語(yǔ)句，但可適當(dāng)調(diào)整語(yǔ)句位置；3. 將窗體文件和工程文件分別命名為F1和P1，并保存到T盤的根目錄下。二、 編程題（26分）【題目】編寫程序，隨機(jī)生成一個(gè)元素值為1040之間整數(shù)的4行5列數(shù)組；找出該二維數(shù)組的最大元素與最小元素，并將最大元素與最小元素的值以及相應(yīng)的行號(hào)和列號(hào)輸出到圖片框中。（注意：數(shù)組最大元素與最小元素都可能有多個(gè)）【編程要求】1、 程序參考界面如圖所示，編程時(shí)不得增加或減少界面對(duì)象或改變對(duì)象的種類，窗體及界面元素大小適中，且均可見；2、 運(yùn)行程序，按“運(yùn)行”按鈕，則生成隨機(jī)數(shù)組并顯示在圖片框Pic1中，并在圖片框Pic2中輸

32、出數(shù)組最大元素值和最小元素值機(jī)相應(yīng)的數(shù)組元素的行號(hào)與列號(hào)；按“清除”按鈕，將兩個(gè)圖片框清空，焦點(diǎn)置于“運(yùn)行”按鈕；按“結(jié)束”按鈕，結(jié)束程序運(yùn)行；3、 程序中應(yīng)定義一個(gè)通用過(guò)程maxmin，用于求二維數(shù)組最大元素值與最小元素值?！疽蟆繉⒋绑w文件和工程文件分別命名為F2和P2，并保存到T盤的根目錄下。2010秋VB02一、改錯(cuò)題（14分）【題目】本程序的功能是，查找首末兩位數(shù)字之和與中間兩位數(shù)字之和相等的四位素?cái)?shù)。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新建工程，輸入上述代碼，改正程序中的錯(cuò)誤；2. 改錯(cuò)時(shí)，不得增加或刪除語(yǔ)句，但可適當(dāng)調(diào)整語(yǔ)句位置；3. 將窗體文件和工程文件分別命名為F1和P1，并保存到T盤的根目錄下。二、 編程題（26分）【題目】編寫程序，輸入一個(gè)5位以上的整數(shù)，將組成該數(shù)的各位數(shù)字重新排列成一個(gè)與原整

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