2012春VB02上机.docVIP

江苏省高等学校非计算机专业学生 计算机基础知识和应用能力等级考试上机试卷（2012春） 二级 Visual Basic语言 （试卷代号VB02） （本试卷完成时间 70分钟） 【考试须知】 改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考； 考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分； 程序代码书写应呈锯齿形。 一、改错题（14分） 【题目】本程序的功能是将以十进制形式表示的RGB彩色值转换为两位十六进制形式。 Option Explicit Private Sub Command1_Click Dim color 3 As Integer, n As Integer Dim i As Integer, st As String st Text1 For i 1 To 3 n InStr st, , If n 0 Then color i Left st, n - 1 st Right st, Len st - n Else color i st End If Next i For i 1 To 3 List1.AddItem color i -- d2h color i H Next i End Sub Private Function d2h p As Integer As String Dim st As String, k As Integer st ABCDEF Do k p Mod 16 If k 10 Then d2h Mid st, k - 9, 1 d2h Else d2h Str k d2h End If p p \ 16 Loop Until p 0 If Len d2h 1 Then d2h 0 d2h End Function 【要求】 新建工程，按参考界面形式创建窗体，再从T盘根目录下的err.txt文件中将有错误的程序代码复制到代码编辑器窗口中或自行输入上述代码，改正程序中的错误； 改错时，不得增加或删除语句，但可适当调整语句位置； 将窗体文件和工程文件分别命名为F1和P1，并保存到T盘的根目录下。 二、编程题（26分） 【题目】 【编程要求】 程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见； 运行程序，按按钮，则；按清除按钮，将个文本框清空，焦点置于上； 程序中应定义一个通用过程，用于一维数组。 2012年春VB02-2