江蘇省等考VB上機真題匯總

1、精品文檔2008 春 VB03、改錯題（14 分）【題目】本程序功能是求二維的隨機整數(shù)數(shù)組每一行元素中素數(shù)的個數(shù)。Opti on ExplicitDim a() As Integer, m As Integer, n As Integer Private Sub Comma nd1_Click()Dim i As In teger, j As In teger m =InputBox(行數(shù),4) n = InputBox(列數(shù),5)ReDim a(m, n)For i = 1 To mForj = 1 To n a(i, j) = Int(Rnd * 90) + 10Picturel.Pri

2、nt a(i, j);Next jPicture1.Pri ntNext iEnd SubPrivate Sub Comma nd2_Click()Dim i As In teger, j As In tegerDim k As Integer, m As Integer, n As Integer k = 0For i = 1 To mForj = 1 To nIf prime(a(i, j) Then k = k + 1 Next jText1 = Text1 & k & vbCrLfNext iEnd SubPrivate Function prime( n As In

3、teger) As Boolea nDim i As In tegerFor i = 2 To Sqr( n)If n Mod i = 0 Then Exit ForNext iprime = TrueEnd Function【要求】1.新建工程，輸入上述代碼，改正程序中的錯誤；2.改錯時，不得增加或刪除語句，但可適當調(diào)整語句位置；3.將窗體文件和工程文件分別命名為F1 和 P1,并保存到軟盤 A 的根目錄下。二、編程題（26 分）【題目】編寫程序，查找給定范圍A, B內(nèi)所有升序完全平方數(shù)。所謂升序完全平方數(shù)是指該數(shù)的平方根是一個整數(shù)，且組成該數(shù)的各位數(shù)字由左至右，依次遞增。例如 13689

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

5、目錄下。精品文檔2008 秋 VB01一、改錯題(14 分)【題目】本程序的功能是：隨機生成一個有n 個元素的數(shù)組(n 由 InputBox 函數(shù)輸入)，找出其中的最大元素并將它刪除，再輸出刪除后的數(shù)組。Opti on ExplicitOption Base 1Dim a() As In teger, n As In tegerPrivate Sub Comma nd1_Click()Dim i As In tegern = InputBox(請輸入數(shù)組個數(shù)”，10)ReDim a(n)For i = 1 To na(i) = Int(Rnd * 100) + 1 Text1= Text1 &

6、amp; Str(a(i)Next iCall lookup (a)For i = 1 To nText2 = Text2 & Str(a(i)Next iEnd SubPrivate Sub lookup(a() As In teger)Dim maxv As In teger, maxp As In teger, i As In tegermaxv = a(1): maxp = 1For i = 2 To nIf a(i) maxv The nmaxv = a(i): maxp = iEnd IfNext iCall move_f(a, maxp)End SubPrivate Su

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

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

9、根目錄下。精品文檔2008 秋 VB02一、改錯題（14 分）【題目】本程序的功能是查找80150 范圍內(nèi)的特殊十進制數(shù)據(jù)，其特點是該十進制數(shù)對應的 8 進制數(shù)為回文數(shù)（指從左向右讀與從右向左讀是一樣的數(shù)）。例如十進制數(shù)據(jù) 105 對應八進制數(shù)為 151，151 屬于回文數(shù)，所以 105 就是符合要求的數(shù)。Opti on ExplicitPrivate Sub Comma nd1_Click()Dim i As In teger, hw As String, fg As Boolea nDim st As Stri ngFor i = 80 To 150fg = FalseCall hw8(i

10、, hw, fg)If fg Thenst = CStr(i) & = & hw & &OList1.Addltem stEnd IfNext iEnd SubPrivate Sub hw8( n As Integer, hw As String, f As Boolean)Dim k As In teger, st() As Stri ng * 1, i As In tegerhw =Dok = k + 1ReDim Preserve st(k)st(k) = n Mod 8hw = st(k) & hwn = n 8Loop Un til n 0Fo

11、r i = 1 To UBou nd(st) / 2If st(i) st(UBou nd(st) - i + 1) The n Exit ForNext if = TrueEnd Sub【要求】1 新建工程，輸入上述代碼，改正程序中的錯誤；2改錯時，不得增加或刪除語句，但可適當調(diào)整語句位置；3將窗體文件和工程文件分別命名為F1 和 P1，并保存到 T 盤的根目錄下。精品文檔二、編程題（26 分）【題目】編寫程序，驗證任意一個不超過 9 位的自然數(shù)，經(jīng)過下述的反復變換最終得到 123。 變換方法是：統(tǒng)計該數(shù)的偶數(shù)（0 算偶數(shù)）個數(shù)記為 a,奇數(shù)個數(shù)記為 b,數(shù)據(jù)位數(shù)記為 c ； 以 a 為百位

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

13、 程序中應定義一個名為 Validate 的通用過程，用于對數(shù)據(jù)進行變換操作。【要求】將窗體文件和工程文件分別命名為F2和P2,并保存到T盤的根目錄下。旨螫證陷阱數(shù)不超過9位的自然數(shù)皿1243658713問驗證過程1243658744S303223驗證成功!1IIHHI RH:驗證!清除結(jié)東精品文檔一、改錯題（14 分）【題目】 本程序的功能是， 將 的紅、綠、藍三基色的亮度值。Opti on ExplicitOption Base 1Private Sub Comma nd1_Click()Dim st As Stri ng, c(3) As Stri ng * 8Dim k As In t

14、eger, colorAs Stri ngcolor(1)=紅色”color(2)=綠色color(3)=藍色st = Text1Dok = k + 1 c(k) = Left(st, 8)st = Right(st, Len(st) - 8)Loop Un til k 3For k = 1 To 3Text2 = Text2 & color(k) & : & b2d(c) & vbCrLfNextEnd SubPrivate Function b2d(s As String) As Integer Dim k As In tegerDob2d = b2d +

15、Val(Right(s, 1) * 2Ak s = Left(s, Le n(s) - 1)k = k + 1Loop Un til k = Len(s)End Function【要求】1.新建工程，輸入上述代碼，改正程序中的錯誤；2.改錯時，不得增加或刪除語句，但可適當調(diào)整語句位置；3.將窗體文件和工程文件分別命名為F1 和 P1， 并保存到T 盤的根目錄下。2009 秋 VB0124 位真彩色圖像的一個像素的顏色值，轉(zhuǎn)換成用十進制表示精品文檔二、編程題（26 分）【題目】編寫程序，隨機生成m 行 n 列由 1 位非零整數(shù)組成的數(shù)組；并分別求出數(shù)組中所有周邊元素之和與非周邊元素（內(nèi)部）之和。

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

17、和 P2,并保存到 T 盤的根目錄下。精品文檔2009 秋 VB02一、改錯題（14 分）【題目】本程序的功能是，找出所有兩位整數(shù)中的“鏡反平方數(shù)對”。所謂“鏡反平方數(shù)對”是指數(shù)對 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ù)對。Opti on ExplicitPrivate Sub Comma nd1_Click()Dim n As Integer, fn As Integer

18、, st As StringFor n = 11 To 99 If In Str(CStr( n), 0) 0 The nfn = fx( n)If validate (n, fn) And n fn Thenst = n & A2= & nA2 & ，” & fn & A2= & fnA2List1.Addltem stEnd IfEnd IfNext nIf List1.ListCount = 0 Then List1.AddItem 無鏡反平方數(shù)”End SubPrivate Function fx(n As In teger) As In

19、 teger Dim s AsStri ngDos = s & Str( n Mod 10)n = n 10Loop Un til n = 0fx = sEnd FunctionPrivate Function validate(p As In teger, q As In teger) As Boolea nIf fx(pA2) = qA2 The nvalidate = TrueEnd IfEnd Function【要求】1. 新建工程，輸入上述代碼，改正程序中的錯誤；2. 改錯時，不得增加或刪除語句，但可適當調(diào)整語句位置；3.將窗體文件和工程文件分別命名為 F1 和 P1，并保存

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

21、上；按“結(jié)束”按鈕，結(jié)束程序 運行；3程序中應定義一個通用過程，用于找出一個字符串中ASCII 代碼最大的字符及其位置?！疽蟆繉⒋绑w文件和工程文件分別命名為F2 和 P2,并保存到 T 盤的根目錄下。精品文檔2009 秋 VB03、改錯題（14 分）【題目】本程序的功能是，找出指定范圍內(nèi)的五位整數(shù)中，由不同數(shù)字組成的所有素數(shù)。Opti on ExplicitPrivate Sub Comma nd1_Click()Dim n As LongFor n = 34567 To 40000If prime( n) Or validate( n) ThenText1 = Text1 & n

22、& vbCrLfEnd IfPrivate Function prime( n As Long) As Boolea nDim i As In tegerFor i = 2 To Sqr( n)If n Mod i = 0 Then Exit FunctionNext iprime = TrueEnd FunctionPrivate Function validate (n As Long) As Boolea nDim num(5) As Integer, i As Integer, k As IntegerFor i = 1 To 5num(i) = n Mod 10n = n /

23、 10Next iFor i = 1 To 4For k = i + 1 To 5If nu m(i) = nu m(k) The n Exit FunctionNext kNext ivalidate = TrueEnd Function【要求】1新建工程，輸入上述代碼，改正程序中的錯誤；2改錯時，不得增加或刪除語句，但可適當調(diào)整語句位置；3將窗體文件和工程文件分別命名為F1 和 P1，并保存到 T 盤的根目錄下。Next nIf Text1 = Then Text1 =無符合要求的數(shù)”End Sub精品文檔二、編程題（26 分）【題目】設 24 位真彩圖像的一個像素的顏色值用A1A2B1B

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

25、是將一個十六進制數(shù)轉(zhuǎn)換為十進制數(shù)?！疽蟆繉⒋绑w文件和工程文件分別命名為F2 和 P2,并保存到 T 盤的根目錄下。精品文檔、改錯題（14 分）【題目】本程序的功能：利用隨機函數(shù)生成 n 個可被 3 整除、且至少包含一個 8 的三位整數(shù)。Opti on ExplicitPrivate Sub Comma nd1_Click()Dim n As Integer, a() As Integer, i As IntegerDim st As Stri ngn = InputBox(數(shù)據(jù)個數(shù) n:,查找,15)ReDim a(n)Call fin d(a)For i = 1 To nIf n Mod

26、3 0 The nst = st & Str(a(i)Elsest = st & Str(a(i) & vbCrLfEnd IfNext iText1 = stEnd SubPrivate Sub fin d(a() As In teger)Dim ub As In teger, k As In teger, p As In tegerDim s As Stri ngRan domizeub = UBou nd(a)Dop = Int(Rnd * 899) + 100s = CStr(p)If In Str(s, 8) 0 Or p Mod 3 = 0 The n k

27、= k + 1 a(k) = pEnd IfLoop Un til k ubEnd Sub【要求】1新建工程，輸入上述代碼，改正程序中的錯誤；2改錯時，不得增加或刪除語句，但可適當調(diào)整語句位置；3將窗體文件和工程文件分別命名為F1 和 P1，并保存到 T 盤的根目錄下。2010 春 VB02精品文檔二、編程題（26 分）【題目】編寫程序，求指定范圍內(nèi)的非素數(shù)整數(shù)的所有真因子（除1 和自身以外的因子）【編程要求】1程序參考界面如圖所示，編程時不得增加或減少界面對象或改變對象的種類，窗體及界面 元素大小適中，且均可見；2. 運行程序，首先在 X 文本框和 Y 文本框中輸入相應的數(shù)據(jù)后，按運行”按鈕

28、，進行相 關處理，在列表框中按給定格式輸出結(jié)果；按“清除”按鈕，清空兩個文本框和列表框，焦點置于文本框 X 上，按“結(jié)束”按鈕，結(jié)束程序運行；3. 程序中應定義一個通用過程，用于求整數(shù)的所有真因子。【要求】將窗體文件和工程文件分別命名為F2 和 P2,并保存到 T 盤的根目錄下。精品文檔IX、改錯題（14 分）【題目】本程序的功能是，找出10100 之間的所有只有奇數(shù)真因子的整數(shù)。所謂數(shù)據(jù)n的真因子是指除了 1 和 n 之外的因子。sn = sn & fac(i) & ，”Next iList1.Addltem Left(sn, Len(sn) - 1)End IfNext n

29、End SubPrivate Sub jsyz(n As Integer, fa() As Integer, flag As Boolean)Dim i As Integer, k As Integer,n as IntegerFor i = 2 To n - 1If n Mod i = 0 ThenIf i Mod 2 0 Then k = k + 1 ReDim fa(k) fa(k) = iElseExit SubEnd IfEnd IfNext iIf k 0 The n flag = TrueEnd Sub【要求】1.新建工程，輸入上述代碼，改正程序中的錯誤；2.改錯時，不得增加或刪

30、除語句，但可適當調(diào)整語句位置；3.將窗體文件和工程文件分別命名為F1 和 P1，并保存到 T 盤的根目錄下。2010 秋 VB01Opti on ExplicitOption Base 1Private Sub Cmd1_Click()Dim fac() As Integer, n As IntegerDim i As Integer, sn As String, flag As Booleanflag=falseFor n = 10 To 100Call jsyz (n, fac, flag)If flag Thensn = n & :For i = 1 To UBou nd(fac

31、)無求只有奇數(shù)專因子的建敷回精品文檔二、編程題（26 分）【題目】編寫程序，隨機生成一個元素值為1040 之間整數(shù)的 4 行 5 列數(shù)組；找出該二維數(shù)組的最大元素與最小元素，并將最大元素與最小元素的值以及相應的行號和列號輸出到圖 片框中。（注意：數(shù)組最大元素與最小元素都可能有多個）【編程要求】1、 程序參考界面如圖所示，編程時不得增加或減少界面對象或改變對象的種類，窗體及界面元素大小適中，且均可見；2、 運行程序，按“運行”按鈕，則生成隨機數(shù)組并顯示在圖片框Piel 中，并在圖片框 Pic2中輸出數(shù)組最大元素值和最小元素值機相應的數(shù)組元素的行號與列號；按“清除”按鈕，將兩個圖片框清空，焦點置于

32、“運行”按鈕；按“結(jié)束”按鈕，結(jié)束程序運行；3、 程序中應定義一個通用過程 maxmin，用于求二維數(shù)組最大元素值與最小元素值?！疽蟆繉⒋绑w文件和工程文件分別命名為F2 和 P2,并保存到 T 盤的根目錄下。冒求數(shù)組攝大益小元素包置rrr茅劉割n35 3 424 2T 23 135421& 15 35 2435 4 3136 35 13 34134 4結(jié)東精品文檔2010 秋 VB02、改錯題（14 分）【題目】本程序的功能是，查找首末兩位數(shù)字之和與中間兩位數(shù)字之和相等的四位素數(shù)。Opti on ExplicitPrivate Sub CmdFi nd_Click()Dim i As

33、 In teger, Fg As Boolea nFor i = 1001 To 9999Fg = FalseCall PD(i, Fg)If Prime(i) And Fg Then List1.Addltem iNext iEnd SubPrivate Function Prime(n As In teger) As Boolea nDim k As In tegerFor k = 2 To Sqr( n)If n Mod k = 0 Then Exit ForNext kPrime = TrueEnd FunctionPrivate Sub PD( n As In teger, Flg

34、As Boolea n)Dim i As In teger, A(4) As In teger, S As In tegerDim L As In tegerL = Len( Str( n)Fori = 1 To LA(i) = n Mod 10n = n 10Next iIf A(1) + A(4) = A(2) + A(3) The nFlg = TrueEnd IfEnd Sub【要求】1 新建工程，輸入上述代碼，改正程序中的錯誤；2. 改錯時，不得增加或刪除語句，但可適當調(diào)整語句位置；3. 將窗體文件和工程文件分別命名為F1 和 P1，并保存到 T 盤的根目錄下。精品文檔二、編程題（2

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