2010年第二次等级考试二级VB上机试题(第一套 第二套).docVIP

2010年 第二次等级考试 二级VB上机试题 第二套 1 编写程序，实现1分钟倒计时。程序运行后，在窗体上的标签控件中显示剩余的秒数，并按每秒一次的时间间隔更新。当倒计时时间到达时，在标签控件中显示“时间到”，停止更新。已经给出部分程序代码，请补充其他需要的程序代码。（40分，存盘时工程文件名为ex21nnnn.vbp，窗体文件名为ex21nnnn.frm，其中nnnn为考生准考证号的右4位） Dim i As Integer Private Sub Form_Load() Label1.AutoSize = True Timer1.Interval = 1000 i = 60 End Sub 2 网吧上网收费标准为：不超过4小时一律收费4元，超过4小时并且在12小时以内每小时收费0.8元，12小时以上每小时收费0.5元。程序的功能是：在文本框内输入上网时间，单击“计算”按钮，计算应付的上网费，并将结果显示在标签框中。（30分，存盘时工程文件名为ex22nnnn.vbp，窗体文件名为ex22nnnn.frm，其中nnnn为考生准考证号的右4位） 3 下图所示程序运行时可以生成由取值范围为0~127的80000个随机数组成的序列，统计序列中每种取值的出现次数，并以直方图形式在窗体上显示数据的分布情况。输入程序代码并改正其中带“*”行中的错误，使它能够正确地输出结果。（30分，存盘时工程文件名为ex23nnnn.vbp，窗体文件名为ex23nnnn.frm，其中nnnn为考生准考证号的右4位） Private Sub Form_click() *** Dim a(127) As String Cls For i = 1 To 80000 x = Int(Rnd * 128) *** a(x) = a(i) + 1 Next i For j = 0 To 127 X1 = j * 50 + 100 Y1 = 1000 *** Y2 = Y2 - a(j) Line (X1, Y1)-(X1, Y2) Next j End Sub 2010年 第二次等级考试 二级VB上机试题 第一套 1 拖动滚动条HScroll1中的滑块，使标签框Label1中文字的字号在10~60之间改变，并且保持Label1位于窗体水平中央位置。滚动条和标签的属性要求在程序代码中设置。（40分，存盘时工程文件名为ex11nnnn.vbp，窗体文件名为ex11nnnn.frm，其中nnnn为考生准考证号的右4位） 2 已知某城市出租车收费标准如下：行驶不超过3公里时一律收费7元，超过3公里并且在15公里以内按每公里1.2元收费，15公里以上按每公里1.8元收费。要求程序实现的功能是：在文本框中输入里程数，单击“计算”按钮，计算应付的出租车费，并将计算结果显示在标签框中。（30分，存盘时工程文件名为ex12nnnn.vbp，窗体文件名为ex12nnnn.frm，其中nnnn为考生准考证号的右4位） 3 随机产生5个两位正整数，画出高度与数值大小成正比的直方图，要求每个直方图竖条的颜色随机变化，并在直方图下方显示数值，运行结果如图所示。请输入程序代码并改正其中带“*”行中的错误，使它能够正确地输出结果。（30分，存盘时工程文件名为ex13nnnn.vbp，窗体文件名为ex13nnnn.frm，其中nnnn为考生准考证号的右4位） Private Sub Form_Click() Cls *** Dim a(5) As String start = 600 For i = 1 To 5 a(i) = Int(Rnd * 90 + 10) X1 = i * start X2 = X1 + 300 Y1 = 2000 Y2 = Y1 - a(i) * 20 bar = RGB(Rnd * 256, Rnd * 256, Rnd * 256) *** Line (X1, Y1)-(X2, Y2), bar,Bx Next i CurrentX = start *** CurrentY = Y2 + 100 For i = 1 To 5 Print a(i); Space(2); Next i End Sub