《江苏省等考VB上机真题汇总》由会员分享，可在线阅读，更多相关《江苏省等考VB上机真题汇总（20页珍藏版）》请在金锄头文库上搜索。
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) + 10 Picturel.Pr
2、i 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 teger)
3、 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的平方根是117，它
4、就是一个升序完全平方数。【编程要求】1. 程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界 面元素大小适中，且均可见；2. 运行程序，在文本框 1和文本框2中分别输入A与B的值，按“查找”按钮，开始查找 并在列表框中显示结果；按“清除”按钮，则将所有文本框与列表框清空，焦点置于文本框1 上;3. 程序中应定义一个名为 sx的函数过程，用于判断一个正整数是否为升序数。【提示】判断一个整数是否为升序数，首先要分解得到该数的各位数字，再逐位依次判断其大小。【要求】将窗体文件和工程文件分别命名为F2和P2,并保存到软盘 A的根目录下。2008 秋 VB01一、改错题(14分
5、)【题目】本程序的功能是：随机生成一个有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 & Str(a(i)Next iCall lookup (a)Fo
6、r 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 Sub move_f(a() As In teger, k As In teger)
7、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之间所有能构成幻影素数的数。所谓幻影素数是指自身为素数，其反序数也是素数的数。例如107和701都是素数，所以107是幻影素数。【编程要求】1. 程序参考界面如图所示， 编程时不得
8、增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2. 运行程序，在文本框 A和文本框B中输入指定数据范围，再按“运行”按钮，将找出的幻影素数存放在列表框中（若指定区间无幻影素数，则输出“本区间无幻影素数”）。按“清除”按钮，将文本框和列表框清空，焦点置于文本框A上;3. 程序中应定义一个名为 prime的函数过程，用于判断一个整数是否为素数；再定义一个求一个整数的反序数的通用过程。【要求】将窗体文件和工程文件分别命名为F2和P2,并保存到T盘的根目录下。2008 秋 VB02一、改错题（14分）【题目】本程序的功能是查找80150范围内的特殊十进制数据，其特点是该十进制数
9、对应的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, hw, fg)If fg Thenst = CStr(i) & = & hw & &OList1.Addltem stEnd IfNext iEnd Su
10、bPrivate 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 0For i = 1 To UBou nd(st) / 2If st(i) st(UBou nd(st) - i + 1) The n Exit ForNext if = TrueEnd Sub【要求】1
11、 新建工程，输入上述代码，改正程序中的错误；2改错时，不得增加或删除语句，但可适当调整语句位置；3将窗体文件和工程文件分别命名为F1和P1，并保存到T盘的根目录下。二、编程题（26分）【题目】编写程序，验证任意一个不超过 9位的自然数，经过下述的反复变换最终得到 123。 变换方法是：统计该数的偶数（0算偶数）个数记为 a,奇数个数记为b,数据位数记为c ； 以a为百位数、b为十位数、c为个位数，得到一个新数（若 a=0，则以b为百位数、a为十 位数），若这个新数不是123，再按上述步骤进行变换，直到出现 123为止。123被称为陷阱 数。【编程要求】1. 程序参考界面如图所示， 编程时不得增
12、加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2. 运行程序，在文本框 1中任意输入一个不超过 9位的自然数后，按“验证”按钮，则根据 变换规则生成新数，将其输出到列表框，重复变换操作，直到得到123为止，最后输出“验 证成功”信息；按“清除”按钮，将文本框和列表框清空，焦点置于文本框上；按 “结束” 按钮，结束程序运行；3. 程序中应定义一个名为 Validate的通用过程，用于对数据进行变换操作。【要求】13问区I将窗体文件和工程文件分别命名为F2和P2,并保存到T盘的根目录下。旨螫证陷阱数不超过9位的自然数皿12436587验证过程1243658744S303223
13、 验证成功!1IIHHI RH:验证!清除结東2009 秋 VB01一、改错题（14分）24位真彩色图像的一个像素的颜色值，转换成用十进制表示【题目】本程序的功能是，将 的红、绿、蓝三基色的亮度值。Opti on ExplicitOption Base 1Private Sub Comma nd1_Click()Dim st As Stri ng, c(3) As Stri ng * 8Dim k As In teger, color As Stri ng color(1)=红色”color(2)=绿色color(3)=蓝色st = Text1Dok = k + 1 c(k) = Left(s
14、t, 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 + Val(Right(s, 1) * 2 A k s = Left(s, Le n(s) - 1)k = k + 1Loop Un til k = Len(s)End Function【要求】1. 新建工程，输入上
15、述代码，改正程序中的错误；2. 改错时，不得增加或删除语句，但可适当调整语句位置；3. 将窗体文件和工程文件分别命名为F1和P1，并保存到T盘的根目录下。二、编程题（26分）【题目】编写程序，随机生成m行n列由1位非零整数组成的数组；并分别求出数组中所有周边元素之和与非周边元素（内部）之和。（m、n由InputBox函数输入，缺省值分别为4、5）【编程要求】1. 程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界 面元素大小适中，且均可见；2. 运行程序，按“运行”按钮，出现如图的InputBox函数窗口，分别输入数组行、列数（或使用缺省值）后按“确定”，则生成随机数组并显示
