09年春江苏计机二级VB上机试题及答案.docVIP

二级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? List1.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??? p = N Mod 10??? k = k + 1??? ReDim Preserve num(k)??? num(k) = p??? N = N \ 10Loop Until N0?? 错误点2，应修改为 N = 0 For i = 2 To UBound(num)??? If num(i) num(i - 1) Then Exit Function 错误点3? 修改为num(i) num(i - 1)Next isx = TrueEnd Function Visual Basic上机试卷 (本试卷完成时间为70分钟) 考试说明： 1．改错题的界面不作要求,主要用来调试程序,若题目中有参考界面,则仅作参考； 2．考试结束后,文件必须存放在指定位置,否则适当扣分；考试盘中若无指定文件,j 予评分； 3．程序代码书写应呈锯齿形。 一、改错题(14分) ? 【题目】 本程序的功能是,将24位真彩色图像的一个像素的颜色值,转换成用十进制表示的 绿、蓝三基色的亮度值。 Option Explicit Option Base 1 Private Sub Command1_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 k3 For k=1 To 3 Text2=Text2 color(k) : b2d(C) vbCrLf Next k End Sub Private Function b2d(s As String) As Integer Dim k As Integer 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．新建工程,输入上述代码,改正程序中的错误； 2．改错时,不得增加或删除语句,但可适当调整语句位置； 3．将窗体文件和工程文件分别命名为F1和P1,并保存到T:盘的根目录下。 二、编程题(26分) ． 【题目】 编写程序,随机生成m行n列由1位非零整数组成的数组;并分别求出数组中所有周边 元素之和与非周边元素(内部)之和。(m、n由InputBox函数输入,缺省值分别为4、5) 【编程要求】 1．程序参考界面如图所示,编程时不得增加或减少界面对象或改变对象的种类,窗体及 界面元素大小适中,且均可见； 2．运行程序,按运行按钮,出现如图的InputBox函数窗口,分别输入数组行、列数(或 使用缺省值)后按确定,则生成随机数组并显示在图片框中,并在文本框1与2中分别输出 数组周边元素之和与非周边元素(内部)之和；按清除按钮,将所有文本框和图片框清空；按 结束按钮,结束程序运行； 3．程序中应定义一个通用过程,用于求二维数组的周边元素之和与非周边元素之和。 【要求】 将窗体文件和工程文件分别命名为砣和P2,并保存到T:盘的根目录下 *******************************************************