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

上海市高等学校计算机等级考试试卷二级 Visual Basic程序设计（考试时间120分钟-C卷）一、单选题(15分，每题1分)1.Visual Basic 是一种面向对象的可视化程序设计语言，采取了_ 的编程机制。A.事件驱动B.按过程顺序执行C.从主程序开始执行 D.按模块顺序执行2.结构化程序由三种基本结构组成，下面属于三种基本结构之一的是_。A.递归结构 B.循环结构C.过程结构 D.输入输出结构3. 如果在菜单编辑器中定义了一个名为MyItem的子菜单项，为了在程序运行时，让菜单项变暗（可见但不可用），应使用语句 。A. MyItem.Visible=FalseB. MyItem.Enabled=FalseC. MyItem.Checked=FalseD. MyItem.Option=False4.仅取消窗体的最大化功能，需要设置_ 属性为False。A. ControlBox B. MinButtonC. Enabled D. MaxButton5. 计算今天离2008年1月1日还要多少天的表达式为_。A. DateAdd(Date , #1/1/2008# )B. DateDiff(Date , #1/1/2008# )C. DateAdd(d, Date , #1/1/2008# )D. DateDiff(d, Date , #1/1/2008# ) 6. 在Visual Basic中，按_键可以直接运行当前程序。A .F1B .F3C .F5D .F77.下面的四个VB逻辑表达式中，语法正确的是_ 。A. x y .And. x y B. x y And zC. x y And xz D. x y And y z8. 下述不是容器对象的控件是 。A. FormB. PictureC. FrameD. Image9. 下列语句正确的是_。A. If x0 Then Print “x不小于0”B. If x=0 Then Print “x不小于0”C. If x0 Then Print “x不小于0” End IfD. If x=0 Then Print “x不小于0” End If10.声明一个长度为20个字节的字符串变量ms，应使用_ 。A. Dim ms As 20 B. Dim ms(20) As StringC. Dim ms As String * 20 D. Dim ms As String(20)11._，在每次调用该过程时其值不能保留。A. 在通用声明段声明窗体级变量 B. 在过程体中用Static语句声明的变量C. 在过程体中用Dim语句声明的变量 D. 在标准模块中声明的全局变量12. 如果要使时钟的Timer事件过程每隔5秒钟运行一次，应将Interval属性设置为_。A.5B.50C.500D.500013.将数据项China添加到列表框(List1)中成为第一项，应使用_语句。A. List1.AddItem China, 0B. List1.AddItem China, 1C. List1.AddItem 0, China D. List1.AddItem 1, China14. 若有数组声明：Dim c(3, 4 To 5) As Integer,下面数组元素引用中正确的是 _ 。A. c(1,2) B. c(0,5)C. c(4) D.c(4,4)15.设CurrentX=1200，执行语句 Line -Step(1000, 500), , B 后，CurrentX=_。A. 2200 B. 1200C. 1000 D. 1700二、填充题(20分，每空2分)1.当焦点进入文本框Text1时，要自动选定文本框第3到第8个位置上的6字符，则需要通过代码Text1.SelStart = 2 和 Text1.SelLength =_ 来实现。2.对文本框中所选定的内容不能进行编辑，原因是文本框_属性设置为True。3.标签Label的默认属性是_。4.表达式Chr(Asc(A) + 1 )的值为_ 。5.对For i = 11 To 5 Step -2 语句，共循环_次。6.查找数组中最大元素及下标位置。Dim a()a=Array(1,5,7,4,3,2)m = a(0)id = 0For i=1 To 5If a(i) m Then id = i _End IfNext iPrint m,id7.当用户单击滚动条的空白处时，滑块移动的增量值由_属性决定。8. 任何控件都必须有的属性是_。9.如果一个变量未经定义就直接使用，则该变量的类型为_。10._方法用于在窗体或图形框的指定位置上画点。三、程序填充题(30分，每空2.5分)1. 程序运行时通过打开文件对话框，打开选定的顺序文件，读取文件中的数据，并统计出能被3整除的数的个数。文件中数据以紧凑格式存放，形式为：12,45,78,56,33,89,34,7,9,4程序的思想是每次从文件读一个数值，判断能否被3整除。 Private Sub Form_Click Dim x%, k% CommandDialog1.ShowOpen Open CommandDialog1._ _(1) _ For Input As #1Do While _ (2) Input #1, x If _ _(3) _ Then k = k + 1 End If Loop Label1 = k Close #1 End Sub2. 回文平方数是指构成的字符左右对称而且等于另一个数的平方，例如：121=11*11、1030301=101*101。下面的程序找出100以内的回文平方数。程序的思想是：将正整数N的平方数转为字符，判断左右是否对称，若是，在文本框内显示所求结果，如图所示。Private Sub Command1_Click() Dim i As Long, j%, k%, flg As Boolean Dim sum As Integer, n As String For i = 1 To 200 flg = _(1) n = CStr(i * i) 将要求的数值转为字符 k = Len(n) For j = 1 To k 2 判断是否为回文 If Mid(n, j, 1) Mid(n, _ (2) , 1) Then flg = False _(3) End If Next j If flg Then Text1 = Text1 & CStr(_(4) ) & 2= & n & vbCrLf End IfNext iEnd Sub3.下面是十位裁判给一名运动员评分的程序。主调程序通过输入框将10位裁判的评分输入到数组a中，然后调用评分子函数score()计算运动员得分，并将计算结果返回给主调程序输出。计算方法为去掉一个最高分、去掉一个最低分后，剩余八位裁判的平均分为运动员得分。程序的思想是求出10位裁判的总分，并找出一个最高分和一个最低分，将总分减去最高分和最低分，得到有效得分。Private Sub Command1_Click() Dim a(9),j As integer, aver As single For j= 0 to 9 a(j)=InputBox(输入第 & j+1 & 位裁判的分数) Next j Aver = _(1) _ Label1.text=运动员得分为： & averEnd SubFunction score(ByRef s%() As Single Dim max, min, sum, j, n As Integer n = UBound(s) max = s(0) : min = s(0) sum = _ _(2) _ For j = 1 To n If s(j) max Then max = s(j) End If sum = _ _(4) _ Next j _ _(5) _ = (sum - max - min) / (n-1)End Function四、编程题（35分）编写一个完整的程序，要求如下：1参见样例，在Form1窗体上放置一个列表框（初始值为空）和一个标签，窗体标题栏显示考生的真实姓名，按下表建立菜单。菜单标题菜单名称备注应用Menu1一级菜单产生Menu11二级菜单求和Menu12二级菜单-bar分隔线退出Menu13二级菜单窗体2Menu2一级菜单在窗体2上放置“绘图”和“返回”两个命令按钮，窗体标题栏显示考生的准考证号。2在Form1中，单击“产生”菜单项，在列表框中产生500以内能被3和7同时整除的正整数；单击“求和”菜单项，在标签上显示所产生数的总和。3当单击“窗体2”菜单项时，打开Form2窗体，单击“退出”