江苏省等考VB上机真题汇总

1、精品文档2008 春 VB03、改错题（14 分）【题目】本程序功能是求二维的随机整数数组每一行元素中素数的个数。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(行数,4) n = InputBox(列数,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.改错时，不得增加或删除语句，但可适当调整语句位置；3.将窗体文件和工程文件分别命名为F1 和 P1,并保存到软盘 A 的根目录下。二、编程题（26 分）【题目】编写程序，查找给定范围A, B内所有升序完全平方数。所谓升序完全平方数是指该数的平方根是一个整数，且组成该数的各位数字由左至右，依次递增。例如 13689

4、的平方精品文档根是 117，它就是一个升序完全平方数。【编程要求】1.程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界 面元素大小适中，且均可见；2.运行程序，在文本框 1 和文本框 2 中分别输入 A 与 B 的值，按“查找”按钮，开始查找 并在列表框中显示结果；按“清除”按钮，则将所有文本框与列表框清空，焦点置于文本框 1 上;3.程序中应定义一个名为 sx 的函数过程，用于判断一个正整数是否为升序数。【提示】判断一个整数是否为升序数，首先要分解得到该数的各位数字，再逐位依次判断其大小。【要求】将窗体文件和工程文件分别命名为F2 和 P2,并保存到软盘 A 的根

5、目录下。精品文档2008 秋 VB01一、改错题(14 分)【题目】本程序的功能是：随机生成一个有n 个元素的数组(n 由 InputBox 函数输入)，找出其中的最大元素并将它删除，再输出删除后的数组。Opti on ExplicitOption Base 1Dim a() As In teger, n As In tegerPrivate Sub Comma nd1_Click()Dim i As In tegern = InputBox(请输入数组个数”，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.改错时，不得增加或删除语句，但可适当调整语句位置；3将窗体文件和工程文件分别命名为F1 和 P1，并保存到 T 盘的根目录下。精品文档二、编程题（26 分）【题目】编写程序，找出介于 a 和 b 之间所有能构成幻影素数的数。所谓幻影素数是指自身为素数，其反序数也是素数的数。

8、例如107 和 701 都是素数，所以 107 是幻影素数。【编程要求】1. 程序参考界面如图所示， 编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2. 运行程序，在文本框 A 和文本框 B 中输入指定数据范围，再按“运行”按钮，将找出的幻影素数存放在列表框中（若指定区间无幻影素数，则输出“本区间无幻影素数”）。按“清除”按钮，将文本框和列表框清空，焦点置于文本框A 上;3. 程序中应定义一个名为 prime 的函数过程，用于判断一个整数是否为素数；再定义一个求一个整数的反序数的通用过程。【要求】将窗体文件和工程文件分别命名为F2 和 P2,并保存到 T 盘的

9、根目录下。精品文档2008 秋 VB02一、改错题（14 分）【题目】本程序的功能是查找80150 范围内的特殊十进制数据，其特点是该十进制数对应的 8 进制数为回文数（指从左向右读与从右向左读是一样的数）。例如十进制数据 105 对应八进制数为 151，151 属于回文数，所以 105 就是符合要求的数。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改错时，不得增加或删除语句，但可适当调整语句位置；3将窗体文件和工程文件分别命名为F1 和 P1，并保存到 T 盘的根目录下。精品文档二、编程题（26 分）【题目】编写程序，验证任意一个不超过 9 位的自然数，经过下述的反复变换最终得到 123。 变换方法是：统计该数的偶数（0 算偶数）个数记为 a,奇数个数记为 b,数据位数记为 c ； 以 a 为百位

12、数、b 为十位数、c 为个位数，得到一个新数（若 a=0，则以 b 为百位数、a 为十 位数），若这个新数不是123，再按上述步骤进行变换，直到出现 123 为止。123 被称为陷阱 数。【编程要求】1. 程序参考界面如图所示， 编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2. 运行程序，在文本框 1 中任意输入一个不超过 9 位的自然数后，按“验证”按钮，则根据 变换规则生成新数，将其输出到列表框，重复变换操作，直到得到 123 为止，最后输出“验 证成功”信息；按“清除”按钮，将文本框和列表框清空，焦点置于文本框上；按 “结束” 按钮，结束程序运行；3.

13、 程序中应定义一个名为 Validate 的通用过程，用于对数据进行变换操作。【要求】将窗体文件和工程文件分别命名为F2和P2,并保存到T盘的根目录下。旨螫证陷阱数不超过9位的自然数皿1243658713问验证过程1243658744S303223验证成功!1IIHHI RH:验证!清除结東精品文档一、改错题（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.改错时，不得增加或删除语句，但可适当调整语句位置；3.将窗体文件和工程文件分别命名为F1 和 P1， 并保存到T 盘的根目录下。2009 秋 VB0124 位真彩色图像的一个像素的颜色值，转换成用十进制表示精品文档二、编程题（26 分）【题目】编写程序，随机生成m 行 n 列由 1 位非零整数组成的数组；并分别求出数组中所有周边元素之和与非周边元素（内部）之和。

16、（m、n 由 InputBox 函数输入，缺省值分别为4、5）【编程要求】1.程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界 面元素大小适中，且均可见；2.运行程序，按“运行”按钮，出现如图的 InputBox 函数窗口，分别输入数组行、列数（或使用缺省值）后按“确定”，则生成随机数组并显示在图片框中，并在文本框1 与 2 中分别输出数组周边元素之和与非周边元素（内部）之和；按“清除”按钮，将所有文本框和图片框清空；按“结束“按钮”结束程序运行；3.程序中应定义一个通用过程，用于求二维数组的周边元素之和与非周边元素之和。【要求】将窗体文件和工程文件分别命名为F2

17、和 P2,并保存到 T 盘的根目录下。精品文档2009 秋 VB02一、改错题（14 分）【题目】本程序的功能是，找出所有两位整数中的“镜反平方数对”。所谓“镜反平方数对”是指数对 n 与 m,它们满足条件：n 与 m 不含有数字 0,且 n 不等于 m;n 的反序数是 m n 的平方数的反序数等于m 的平方。例如 12 与 21,12 的平方是 144,其反序数是 441，而 21的平方正好等于 441;所以 12 与 21 是镜反平方数对。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 无镜反平方数”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. 改错时，不得增加或删除语句，但可适当调整语句位置；3.将窗体文件和工程文件分别命名为 F1 和 P1，并保存

20、到 T 盘的根目录下。精品文档二、编程题（26 分）【题目】编写程序，找出输入字符串ASCII 代码值最大的字符，把它移动到原字符串的末尾，其他字符的排列顺序维持不变。例如，输入student”，结果是“ stdentu”（若输入字符串中含有多个最大字符，只移动其中的一个）。【编程要求】1程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2运行程序，首先在“原字符串”文本框中输入测试字符串，然后按“处理”按钮，接受输入并按要求进行相关处理，将得到的新字符串输出到“新字符串”文本框中；按“清除”按钮，将两个文本框清空，焦点置于“原字符串”文本框

21、上；按“结束”按钮，结束程序 运行；3程序中应定义一个通用过程，用于找出一个字符串中ASCII 代码最大的字符及其位置。【要求】将窗体文件和工程文件分别命名为F2 和 P2,并保存到 T 盘的根目录下。精品文档2009 秋 VB03、改错题（14 分）【题目】本程序的功能是，找出指定范围内的五位整数中，由不同数字组成的所有素数。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改错时，不得增加或删除语句，但可适当调整语句位置；3将窗体文件和工程文件分别命名为F1 和 P1，并保存到 T 盘的根目录下。Next nIf Text1 = Then Text1 =无符合要求的数”End Sub精品文档二、编程题（26 分）【题目】设 24 位真彩图像的一个像素的颜色值用A1A2B1B

24、2C1C2形式的十六进制数表示， 其中 A1A2、B1B2、C1C2分别表示红、绿、蓝三种颜色的亮度值。编写程序，分别求出该像素 红（R）、绿（G）、蓝（B ）三种颜色以十进制数表示的亮度值。【编程要求】1程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2运行程序，首先在文本框 1 中输入像素以十六进制数表示的颜色值，然后按“运行”按钮，对颜色值进行处理，并将处理结果按下图给出的形式显示在多行文本框2 中；按“清除”按钮，将两个文本框清空，焦点置于文本框1 上；按“结束”按钮，结束程序运行；3程序中应定义一个名为 h2d 的通用过程，其功能

25、是将一个十六进制数转换为十进制数。【要求】将窗体文件和工程文件分别命名为F2 和 P2,并保存到 T 盘的根目录下。精品文档、改错题（14 分）【题目】本程序的功能：利用随机函数生成 n 个可被 3 整除、且至少包含一个 8 的三位整数。Opti on ExplicitPrivate Sub Comma nd1_Click()Dim n As Integer, a() As Integer, i As IntegerDim st As Stri ngn = InputBox(数据个数 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改错时，不得增加或删除语句，但可适当调整语句位置；3将窗体文件和工程文件分别命名为F1 和 P1，并保存到 T 盘的根目录下。2010 春 VB02精品文档二、编程题（26 分）【题目】编写程序，求指定范围内的非素数整数的所有真因子（除1 和自身以外的因子）【编程要求】1程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面 元素大小适中，且均可见；2. 运行程序，首先在 X 文本框和 Y 文本框中输入相应的数据后，按运行”按钮

28、，进行相 关处理，在列表框中按给定格式输出结果；按“清除”按钮，清空两个文本框和列表框，焦点置于文本框 X 上，按“结束”按钮，结束程序运行；3. 程序中应定义一个通用过程，用于求整数的所有真因子。【要求】将窗体文件和工程文件分别命名为F2 和 P2,并保存到 T 盘的根目录下。精品文档IX、改错题（14 分）【题目】本程序的功能是，找出10100 之间的所有只有奇数真因子的整数。所谓数据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、除语句，但可适当调整语句位置；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、)无求只有奇数專因子的建敷回精品文档二、编程题（26 分）【题目】编写程序，随机生成一个元素值为1040 之间整数的 4 行 5 列数组；找出该二维数组的最大元素与最小元素，并将最大元素与最小元素的值以及相应的行号和列号输出到图 片框中。（注意：数组最大元素与最小元素都可能有多个）【编程要求】1、 程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2、 运行程序，按“运行”按钮，则生成随机数组并显示在图片框Piel 中，并在图片框 Pic2中输出数组最大元素值和最小元素值机相应的数组元素的行号与列号；按“清除”按钮，将两个图片框清空，焦点置于

32、“运行”按钮；按“结束”按钮，结束程序运行；3、 程序中应定义一个通用过程 maxmin，用于求二维数组最大元素值与最小元素值。【要求】将窗体文件和工程文件分别命名为F2 和 P2,并保存到 T 盘的根目录下。冒求数组摄大益小元素包置rrr茅刘割n35 3 424 2T 23 135421& 15 35 2435 4 3136 35 13 34134 4结東精品文档2010 秋 VB02、改错题（14 分）【题目】本程序的功能是，查找首末两位数字之和与中间两位数字之和相等的四位素数。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. 改错时，不得增加或删除语句，但可适当调整语句位置；3. 将窗体文件和工程文件分别命名为F1 和 P1，并保存到 T 盘的根目录下。精品文档二、编程题（2

35、6 分）【题目】编写程序，输入一个 5 位以上的整数，将组成该数的各位数字重新排列成一个与原 整数位数相同的最小整数。【编程要求】1.程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界 面元素大小适中，且均可见；2.运行程序，在输入数据文本框中输入一个5 位以上的整数后，按“开始”按钮，则在相应的文本框中，显示得到的最小数；按“清除”按钮，将所有文本框清空，焦点置于输 入数据文本框上；按“结束”按钮，结束程序运行；3.程序中应定义通用过程，用于求由给定整数的各位数字组成的最小数。【要求】将窗体文件和工程文件分别命名为F2 和 P2,并保存到 T 盘的根目录下。精品文档2010 秋 VB03一、改错题（14 分）【题目】本程序的功能是，在5 张卡片上写有 1、2、3、4、5 五个数，对卡片进行排列（5张卡片的全排列共有 5!种），找出同时符合以下两个条件的所有排列：相邻卡片上的数 不相邻；首尾卡片上的数不相邻。这里所谓相邻