1、江苏省高等学校非计算机专业学生计算机基础知识和应用能力等级考试上机试题（2002 年春）二级 Visual Basic 语言 （试卷代号 VB03）（本试卷完成时间 70 分钟）一、改错（17 分）【题目】本程序的功能是：实现二进制数据压缩。压缩算法是：字串首字符+该数字个数+分隔符+另一数字个数+ 例如，数字串 111100000111111111000111110000 被压缩成14*5*9(3*5*4 形式的字串。含有错误的源程序如下：Option ExplicitPrivate Sub Form_Click()Dim code As Integer, encode As Stringc
2、ode = InputBox(“输入一个任意长度的由 0 和 1 组成的数字串：“, , 0)encode = coding(code)Print codePrint encodeEnd SubPrivate Function coding(s As String) As StringDim n As Integer, t As String * 1, i As Integer, s As StringDim c As Stringc = Left(s, 1)n = 1t = Left(s, 1)For i = 1 To Len(s)If Mid(s, i, 1) = t Thenn = n
3、+ 1Elsec = c & CStr(n) & “*“n = 1t = Mid(s, i, 1)End IfNext icoding = cEnd Function【要求】1新建工程，输入上述代码，改正程序中的错误。2改错时，不得增加或删除语句。3以 F1.frm 和 P1.vbp 的名字分别将窗体和工程保存到软盘 A 的根目录下。二、编程题(23 分)【题目】编写一个告诉公路收费程序。1程序参考界面如下图所示，编程时不得增加或减少界向对象或改变对象的种类，但界面元素的大小、位置可随意设置。2实现功能。（1） 在“车型”中选择车辆的型号。（2） 单击“计算”按钮，则根据所选的车型和输入的行车里程 s，计算出应付费p，并显示在相应文本框中，其中小型客车应付费的计算办法如下：30,8261,4ss大型客车的费率是小型客车的 1.5 倍，货车的费率是小型客车的 2 倍。（3）单击“清除”按钮，则清除两个文本框中的内容；单击“结束”按钮，结束程序运行。【要求】以 F2.frm 和 P2.vbp 的名字分别将窗体和工程保存到软盘 A 的根目录下。
