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

2012年上海市高等学校计算机等级考试试卷 二级 VB.NET程序设计 （ A 卷） （本试卷考试时间 120 分钟） 一、单选题 ( 本大题 10 道小题 ，每小题 1.5 分，共 15 分），从下面题目给出的A、B、C、D四个可供选择的答案中选择一个正确答案。 1.当运行程序时，系统自动执行启动窗体的__________事件过程。 答案：A A.Load B.Click C.UnLoad D.GotFocus 2.已知列表框（ListBox1）中有10个数据项，对列表框操作正确的语句是___________。 答案：B A.ListBox1.Clear() B.ListBox1.Items.RemoveAt(4) C.ListBox1.Items.RemoveAt(计算机) D.ListBox1.Items.Add(1, 打印机) 3.若要使标签控件显示时不覆盖窗体的背景图案，要对___________ 属性进行设置。 答案：A A.BackColor B.BorderStyle C.Back D.ForeColor 4.下列函数中，_________函数返回值是数值型的。 答案：D A.Chr B.Mid C.Replace D.Val 5.下面的过程定义语句中_________是不合法的。 答案：A A.Sub Sub1(ByVal n%) As Integer B.Sub Sub1(ByVal sub1%) C.Function Sub1(ByVal n%) As Integer D.Function Sub1%(ByVal n%) 6. 定义结构类型并声明变量如下： Structure Student Dim No As Integer Dim Name As String End Structure Dim s As Student 下列语句正确的是__________。 答案：D A.s={100001,张三} B.Name=张三 C.Student.Name=张三 D.s.Name=张三 7.VB程序设计中，响应对象的外部动作称为______ , 而对象可以执行的动作或对象本身的行为则称为______。 答案：B A.方法，事件 B.事件，方法 C.属性，方法 D.过程，事件 8.在过程A中定义了静态变量y。当调用过程A第一条语句开始，在退出过程A前，y的值为5。当下次再进入过程A时，y的值为_____。 答案：A A.5 B.0 C.不定值 D.出错 9.用户单击水平滚动条HScrollBar1两端的箭头（“”或“”）按钮，Value属性增加或减少的值为2，可通过语句： HScrollBar1._________ = 2来实现。 答案：C A.LargeChange B.Maximum C.SmallChange D.Minimum 10.要打开FontDialog1对话框选取字体属性来改变TextBox1的字体，下面_________语句组是正确的。 答案：D A.FontDialog1.Show() TextBox1.FontName= FontDialog1.Font B.FontDialog1.ShowDialog() TextBox1.FontName= FontDialog1.Font C.FontDialog1.Show() TextBox1.Font= FontDialog1.Font D.FontDialog1.ShowDialog() TextBox1.Font= FontDialog1.Font 二、程序填空题 ( 本大题 2 道小题，每空 2.5 分，共 22.5 分）。 1. 产生10个不重复的2位随机整数。算法思想是先产生一个随机数tmp，然后在已经存放着不重复随机数的数组a中，查找tmp是否已经存在。如果已经存在，则丢弃，再重新产生；反之，就将tmp存放入数组a中。 【程序】 Sub Form1_Click(…) Handles MyBase.Click Dim tmp As Integer, i As Integer, j As Integer Dim a(10) As Integer Dim isExist As Boolean 重复随机数标志 Randomize() Label1.Text = 不重复的2位随机整数： i = 0 Do While (i （1） ) isExist = False tmp = Int(Rnd() * （2） ) For j = 1 To i 找重复的随机数 If a(j) = tmp Then isExist = （3） Exit For End If Next j If Not isExist Then 找到了一个不重复的随机数