春江苏计算机二级VB上机试题及答案

1、二级vb上机江苏2010春第三套试卷答案1.改错题Option ExplicitPrivate Sub Command1_Click()Dim N As Integer, k As IntegerFor N = 20 To 180    k = N 2    If sx(k) Then        List1.AddItem N & "2=" & k    End IfNextIf  Li

2、st1.ListCount <> 0   Then List1.AddItem "无升序平方数"       '错误点1修改为  List1.ListCount = 0  End SubPrivate Function sx(ByVal N As Integer) As BooleanDim num() As Integer, k As Integer, p As IntegerDim i As IntegerDo  

3、0; p = N Mod 10    k = k + 1    ReDim Preserve num(k)    num(k) = p    N = N 10Loop Until N<0   '错误点2，应修改为 N = 0For i = 2 To UBound(num)    If num(i) >num(i - 1) Then Exit Function '错误点3  修改为num(i

4、) > num(i - 1)Next isx = TrueEnd Function2009秋二级Visual Basic上机试卷 (本试卷完成时间为70分钟) 考试说明： 1改错题的界面不作要求,主要用来调试程序,若题目中有参考界面,则仅作参考； 2考试结束后,文件必须存放在指定位置,否则适当扣分；考试盘中若无指定文件,j予评分； 3程序代码书写应呈锯齿形。 一、改错题(14分)  【题目】 本程序的功能是,将24位真彩色图像的一个像素的颜色值,转换成用十进制表示的绿、蓝三基色的亮度值。 Option Explicit Option Base 1 Private Sub Com

5、mand1_Click() Dim st As String,C(3) as String*8 Dim k As Integer,color(3) As String color(1)="红色" color(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(

6、C) & vbCrLf Next k End SubPrivate Function b2d(s As String) As Integer Dim k As Integer Do b2d=b2d+Val(Right(s,1)*2k 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位

7、非零整数组成的数组;并分别求出数组中所有周边元素之和与非周边元素(内部)之和。(m、n由InputBox函数输入,缺省值分别为4、5) 【编程要求】 1程序参考界面如图所示,编程时不得增加或减少界面对象或改变对象的种类,窗体及界面元素大小适中,且均可见； 2运行程序,按"运行"按钮,出现如图的InputBox函数窗口,分别输入数组行、列数(或使用缺省值)后按"确定",则生成随机数组并显示在图片框中,并在文本框1与2中分别输出数组周边元素之和与非周边元素(内部)之和；按"清除"按钮,将所有文本框和图片框清空；按"结束"

8、;按钮,结束程序运行； 3程序中应定义一个通用过程,用于求二维数组的周边元素之和与非周边元素之和。 【要求】 将窗体文件和工程文件分别命名为砣和P2,并保存到T:盘的根目录下*2009秋上机题参考答案 一、改错题 (1)Loop Until k>3 改为Loop Until k=3 (2)Text2=Text2 & color(k) & ":" & b2b(c) & vbCrLf 改为Text2=Text2 & color(k) & ":" & b2b(c(k) & vbCrLf (3

9、)Loop Until k=len(s) 改为Loop Until s=""或改为Loop Until Len(s)=0二:编程题 Option Explicit Option Base 1 Dim a() As Integer, n As Integer, m As Integer Private Sub Command1_Click() Dim i As Integer, j As Integer Dim ext As Integer, ins As Integer n = InputBox("数组行数m:", "数组处理", 4

10、) m = InputBox("数组列数n:", "数组处理", 5) ReDim a(n, m) For i = 1 To n For j = 1 To m a(i, j) = Int(Rnd * 9) + 1 Picture1.Print a(i, j); Next j Picture1.Print Next i Call comput(ext, ins) Text1 = ext Text2 = ins End Sub Private Sub comput(ext As Integer, ins As Integer) Dim i As Intege

11、r, j As Integer For i = 1 To n For j = 1 To m If i = 1 Or j = 1 Or i = n Or j = m Then ext = ext + a(i, j) Else ins = ins + a(i, j) End If Next j Next i End Sub Private Sub Command2_Click() Picture1.Cls Text1 = "": Text2 = "" End Sub Private Sub Command3_Click() End End Sub江苏省高等学

12、校非计算机专业学生计算机基础知识和应用能力等级考试上机试卷2009春二级Visual Basic语言(试卷代号VB01) (本试卷完成时间70分钟)【考试须知】1改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考；2考试结束后，文件必须存放在指定位置，否则适当扣分：考试盘中若无指定文件，则不 予评分：3程序代码书写应呈锯齿形。一、改错题(14分)【题目】本程序的功能是：把1020范围内的数分别表示成若干个质因子连乘的形式。Option Explicit Option base 1Private Sub Command1_Click() Dim j As Integer,pf

13、() As Integer,i As Integer Dim st As String For i=10 To 20 Call prime_f(I,pf) St=CStr(i)&”=” Forj=1 To UBound(pf) st=st&Str(pf(j)&”*” Next j st=st & Str(pf(j) List1.AddItem st Next iEnd SubPrivate Sub prime_f(n As Integer,a()As Integer) Dim i As Integer,k As Integer i=2 Do If n Mod i

14、=0 Then k=k+1 ReDim Preserve a(k) a(k)=i n=ni Else i=i+1 End If Loop Until n<=0End Sub【要求】1新建工程，输入上述代码，改正程序中的错误；2改错时，不得增加或删除语句，但可适当调整语句位置：3将窗体文件和工程文件分别命名为Fl和P1，并保存到T盘的根目录下。二、编程题(26分)【题目】编写程序找出介于M,K(M>100，K<10000)之间的勾股弦数。设N是介于M、K之间的正整数，它的第一位、第二位数字依次为a、b，最后一位(或两位)是c，若a2+b2=C2，则这样的数N称为勾股弦数。【编程要求】1·程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界 面元素大小适中且均可见：2