上海市高等学校计算机等级考试试卷（A）

2007年上海市高等学校计算机等级考试试卷二级 Visual Basic程序设计（考试时间120分钟-A卷）一、单选题(15分，每题1分)1.在设计阶段中，双击窗体上的某个控件，打开的窗口是_。A.工程资源管理器窗口 B. 代码窗口C. 工具箱窗口 D. 布局窗口2. 在Visual Basic程序设计语言中，响应对象的外部动作称为_ , 而对象可以执行的动作或对象本身的行为则称为_。A.方法，事件 B. 事件，方法C. 属性，方法 D. 过程，事件3.要使命令按钮控件上显示文字“确定”，需要设置_属性。A. Caption B. FontC. Text D. Picture4.窗体上有三个文本框，若在Text1中输入“12”、Text2中输入“34”，则执行语句Text3 = Text1 + Text2后，Text3中显示_。A.3412 B.46C.1234 D.语法错误5.使文本框获得焦点的方法是_。A. Change B. GotFocusC. SetFocus D. LostFocus6.在通用声明段中用Dim语句声明的变量属于_变量。A. 局部 B. 全局C. 窗体/模块级 D. 静态7.下列数值中_ 不可能通过表达式 Rnd * 20 + 10 产生。A. 10 B. 20C. 30 D. 12.58.语句 If x = 1 Then y = 2，下列说法正确的是_。A.x = 1 和 y = 2 都是赋值语句 B.x = 1 和 y = 2 均为关系表达式C.x = 1 为关系表达式，y = 2 为赋值语句 D.x = 1 为赋值语句，y = 2 为关系表达式9. 假设变量mbool是一个逻辑型变量，则下列赋值语句中，正确的是_。A. mbool = True B. mbool =. True.C. mbool =# True # D. mbool = True10.下面数组声明语句中错误的是_。A. Dim a%(-5 to -3) B. Dim a%(-1 to 2,3)C. Dim n, a%(n) D. Dim a(-1 to 0) As Integer11. 设计时在窗体上放置一个命令按钮，运行程序后，该命令按钮没有在窗体上显示，可能的原因是 _ 。 . 该按钮的 Caption 属性被设置为空. 该按钮的 Enabled 属性被设置为 False. 该按钮的 Visible 属性被设置为 False. 该按钮的 Default 属性被设置为 True 12.在文本框中选取部分内容，要获取所选的内容，可通过文本的_属性。A. Text B. SelLengthC. SelText D. SelStart13.为了使计时器不工作，可设置计时器的Interval属性为_。A. -1 B. 0C. 1 D. True14.以下叙述中正确的是_。A. 一个记录中所包含的各个元素的数据类型必须相同B. 随机文件中每个记录的长度是固定的C. Open命令只能打开一个已经存在的文件D. 使用Input #语句可以从随机文件中读取数据15.执行语句“Circle (500, 500), 500, 8, , , 2”将绘制_。A. 椭圆 B. 画圆C. 圆弧 D. 扇形二、填充题(20分，每空2分)1.设计时，要改变窗体默认字体格式，应在属性窗对窗体的 _ 属性进行设置。2在窗体上有一列表框控件MyList。在程序运行时，如果要删除列表框中的一项，可以通过调用 _ 方法实现。3. 在Visual Basic的立即窗口内输入以下语句:x65? Chr$(x) 在窗口中显示的结果是_。4.在程序运行时，如果要将一幅图片加载到图形框Picture1中，可使用_函数 。5.下面程序段的功能是查找数组中最大元素。Dim a%()a = Array(1,5,7,4,3,2)id = 0For i=1 To 5If a(i)_ Then id = iNext iPrint a(id)6. 执行下列语句: a = Array(10, 20, 30) Print a(2) 窗体上显示_。7. 要使命令按钮的Picture属性有效，需要设置_属性为1。8.当用户单击滚动条箭头时，滚动条控件的 Value 属性值的改变量由_属性控制。9.Visual Basic提供了三种对数据文件的访问方式，它们是顺序访问方式、_访问方式和二进制访问方式。10.要在窗体上通过Pset方法绘制宽度为2的点，则需要设置_ 属性。三、程序填充题(30分，每空2 .5分)1下面程序的功能是统计文件file1.txt中字母出现的次数（不区分大小写）。程序的思想是：每次从文件中读取一个字符，判断是否是字母。若是字母，计数器加1。Private Sub Command1_Click() Dim num As Integer, c As String * 1 num = 0 (1) For Input As #2 Do While Not EOF(2) c = Input$( (2) ) 读取一个字符 c = UCase(c) If c = A And c = Z Then (3) 计数器加1 End If Loop Close #2 Print 字母出现的次数:; numEnd Sub2. 程序完成对数组s由大到小排序；并将排序结果显示在标签中。Private Sub Command1_Click() Dim s() As Integer Dim k%, j%, n%, t%s = Array(77, 67, 89, 65, 85, 53, 94, 74, 79, 90) n = UBound(s) For j = 0 To n - 1 For k = _(1)_ To n If s(j) s(k) Then t = s(j) s(j) = _(2)_ _(3)_ = t End If Next k Next j Label1.Text = For j = 0 To n Label1 = Label1 & (4) & Next jEnd Sub3. 求1000以内满足如下条件的正整数N： 它的各个因子（包括1和N）之和sum是一个素数。 例如：25的因子为1、5、25，其和 1+5+25 = 31是素数。程序的思想是选取正整数N，分解其因子，并累加，子过程Prime 用于判断累加和是否是素数，若是素数，在文本框内显示所求结果，如图所示。Private Sub Command1_Click() Dim i%, sum%, n%, flg As Boolean, t$ For n = 2 To 1000 sum = 1 t = 1 存放各个因子之和表达式 i = 2 Do While i = _(1)_ 求给定正整数的所有因子 If n Mod i = 0 Then sum = _ (2) t = t & + & i End If i = i + 1 Loop t = t & = & sum Call (3) If flg Then Text1 = Text1 & Str(n) & : & _(4)_ & vbCrLf End If Next nEnd SubPrivate Sub Prime(ByVal s As Integer, flage As Boolean) 判断s素数 Dim m% flage = True For m = 2 To Sqr(s) If s Mod m = 0 Then flage = _ (5) _ Exit For 非素数时，跳出 End If Next mEnd Sub四、编程题（35分）1参见样例，在Form1窗体上放置一个列表框（初始值为空）和一个标签，窗体标题栏显示考生的真实姓名，按下表建立菜单。菜单标题菜单名称备注应用Menu1一级菜单产生数列Menu11二级菜单数列和Menu12二级菜单-bar分隔线退出Menu13二级菜单窗体2Menu2一级菜单在窗体2上放置“绘图”和“返回”两个命令按钮，窗体标题栏显示考生的准考证号。2当单击“产生数列”菜单项后，在列表框生成等差数列：3，10，17，24，31，的前15项；当单击“数列和”菜单项后，在标签上显示该等差数列各项之和(说明：XXXX为计算的结果)。3当单击“窗体2”菜单项时，打开Form2窗体，单击“退出”菜单项时，