2012年上海市高等学校计算机等级考试试卷二级VB程序设计.docxVIP

2012年上海市高等学校计算机等级考试试卷二级 VB.NET程序设计 （ A 卷）（本试卷考试时间 120 分钟）一、单选题 ( 本大题 10 道小题 ，每小题 1.5 分，共 15 分），从下面题目给出的A、B、C、D四个可供选择的答案中选择一个正确答案。1.当运行程序时，系统自动执行启动窗体的_事件过程。 答案：AA.LoadB.ClickC.UnLoadD.GotFocus2.已知列表框（ListBox1）中有10个数据项，对列表框操作正确的语句是_。 答案：BA.ListBox1.Clear()B.ListBox1.Items.RemoveAt(4)C.ListBox1.Items.RemoveAt(计算机)D.ListBox1.Items.Add(1, 打印机)3.若要使标签控件显示时不覆盖窗体的背景图案，要对_ 属性进行设置。 答案：AA.BackColorB.BorderStyleC.BackD.ForeColor4.下列函数中，_函数返回值是数值型的。 答案：DA.ChrB.MidC.ReplaceD.Val5.下面的过程定义语句中_是不合法的。答案：AA.Sub Sub1(ByVal n%) As IntegerB.Sub Sub1(ByVal sub1%)C.Function Sub1(ByVal n%) As IntegerD.Function Sub1%(ByVal n%)6. 定义结构类型并声明变量如下：Structure StudentDim No As IntegerDim Name As StringEnd StructureDim s As Student下列语句正确的是_。 答案：DA.s=100001,张三B.Name=张三C.Student.Name=张三D.s.Name=张三7.VB程序设计中，响应对象的外部动作称为_ , 而对象可以执行的动作或对象本身的行为则称为_。 答案：BA.方法，事件B.事件，方法C.属性，方法D.过程，事件8.在过程A中定义了静态变量y。当调用过程A第一条语句开始，在退出过程A前，y的值为5。当下次再进入过程A时，y的值为_。 答案：AA.5B.0C.不定值D.出错9.用户单击水平滚动条HScrollBar1两端的箭头（“”或“”）按钮，Value属性增加或减少的值为2，可通过语句： HScrollBar1._ = 2来实现。 答案：CA.LargeChangeB.MaximumC.SmallChangeD.Minimum10.要打开FontDialog1对话框选取字体属性来改变TextBox1的字体，下面_语句组是正确的。 答案：DA.FontDialog1.Show()TextBox1.FontName= FontDialog1.FontB.FontDialog1.ShowDialog()TextBox1.FontName= FontDialog1.FontC.FontDialog1.Show()TextBox1.Font= FontDialog1.FontD.FontDialog1.ShowDialog()TextBox1.Font= FontDialog1.Font二、程序填空题 ( 本大题 2 道小题，每空 2.5 分，共 22.5 分）。1. 产生10个不重复的2位随机整数。算法思想是先产生一个随机数tmp，然后在已经存放着不重复随机数的数组a中，查找tmp是否已经存在。如果已经存在，则丢弃，再重新产生；反之，就将tmp存放入数组a中。【程序】Sub Form1_Click() Handles MyBase.ClickDim tmp As Integer, i As Integer, j As IntegerDim a(10) As IntegerDim isExist As Boolean 重复随机数标志Randomize()Label1.Text = 不重复的2位随机整数：i = 0Do While (i 0 Then 若是零巧数，则添加ListBox1.Items.Add(i)（2） End IfNext iEnd SubFunction Shu(ByVal n%) As IntegerDim k%, m%Shu = -1k = Mid(n, 2, 1) 获取百位数If （3） Thenm = Mid(n, 1, 1) & （4） If m * 9 = n Then Shu = （5） End IfEnd Function1）：【Shu(i)】2）：【ListBox2.Items.Add(n)】3）：【k = 0】4）：【Mid(n, 3, 2)】5）：【m】三、操作题三、程序调试题(共30分，每改正一错得3分，第1题有3处错，第2题有3处错，第3题有4处错)启动解决方案文件C:ks改错A.sln，请调试改正，并按原文件名和位置保存。正确结果见样例c:样张改错样例A.exe。改错方法：不能修改或重新定义变量，不允许增加或删除语句，但可以修改语句,所修改的语句必须在句尾加上注释标记 *。调试改错题1, 程序中有3个错误。程序的功能是单击调试改错题1按钮，随机产生一个1900-2200之间的年份，在文本框显示；在标签2显示是否是闰年。判断闰年：若该年份能够被4整除但不能被100整除，或者能够被400整除,则该年份是闰年。程序中有2个错误，请调试改正。Private Sub Button1_Click() Handles Button1.ClickDim year%Dim t1, t2, t3 As Booleanyear = Int(Rnd() *301 + 1900)此句无错year =TextBox1.Textt1 = year Mod 4=1t2 = year Mod 100 0t3 = year Mod 400 = 0If (t1 And t2) And t3 ThenLabel2.Text = year & 年是闰年ElseLabel2.Text = year & 年不是闰年End IfEnd Sub调试改错题2, 程序中有3个错误。单击调试改错题2按钮，启动定时器，显示打字机效果的文字和光标效果（_）；当文字显示完整，关闭定时器，光标不显示,见样例。程序中有3个错误，请调试改正。Private Sub Button2_Click() Handles Button2.ClickTimer1.Enabled = False End SubPrivate Sub Timer1_Tick() Handles Timer1.TickStatic p% p为记录字符位置的变量Dim s$ = 欢迎参加年计算机等级考试Label3.Text = Mid(s, p) & _ 逐一显示p个字符 If p = Len(s) ThenTimer1.Enabled =TrueLabel3.Text = sElsep = p + 1End IfEnd Sub调试改错题3, 程序中有4个错误。计算多项式 e = 1+1/1！ + 1/2！+1/3！+1/6！的值。Private Sub Button3_Click() Handles Button3.ClickDim i As IntegerDim f As IntegerDim ee As Doubleee = 1f = 0For i = 1 To 6f = f * iee = ee + fNextLabel4.Text = e= + eeEnd Sub四、编程题（35分）参照样例，编写一个完整的程序，要求如下：1在C:KS 目录下新建项目文件VBNET1.sln。2在Form1窗体上放置文本框1、列表框、标签和命令按钮，并建立菜单，界面如样例所示。在Form2窗体上放置“返回”两个命令按钮。3在Form1窗体上单击“确定”按钮，模拟出租车计价器计算车费，将本单交易添加到列表框，清除文本框中数据，并将每次车程的里程数和交易金额按下图格式，以追加方式记录在C:ksA.TXT中。计算公式：起步费：13元（3公里），3到10公里：2.4元/公里，10公里以后：3.6元/公里。4单击“求平均值”菜单项，在标签中显示各次车费的平均值；单击窗体2