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

上海市高等学校计算机等级考试试卷二级 Visual Basic程序设计（考试时间120分钟-B卷）一、单选题(15分，每题1分)1. MyObject.SetFocus方法是将 D 移至对象MyObject上。A. 鼠标B. 程序控制权C. 焦点D. 光标2.在Visual Basic 中称各种可在对象上操作的过程为_B_。A. 属性 B. 方法C.事件 D.封装3.下列控件中既可用于输入文本，又可用于显示文本的是_B_。A. Label 控件(输出) B. TextBox 控件C. Timer 控件 D. CommandButton 控件4.能够将文本框来的属性是_B_ _。A. Locked B. VisibleC. HideD. Enabled5. 可以通过 函数，返回最近一次读写操作的文件指针位置。A. LOC B. LOF9返回某文件字节数）C. EOF （ 检查指针是否到达文件尾） D. Seek6.下列数值中_D_ 不可能通过表达式 Rnd * 20 + 10 产生。A.10 B. 15C. 20 D. 307.表达式 10 8 Mod 9 的值是_B_。A. 0 B. 1C. 2 D. 98. 如果有自定义函数 Fact(x As Integer)，则形式参数x的默认传递方式是 。A. 传值B. 传址C. 传变量D. 传函数9.为了给x,y,z三个变量赋初值1，下面的赋值语句正确的是_A_。A. x=1: y=1: z=1 B. x=1，y=1，z=1C. x=y=z=1 D. xyz=110.数组声明语句Dim a(4,-1 To 2)中的数组a包含了_D_个数组元素。A. 12 B. 15C. 16 D. 2011.从函数过程退出，并返回到主调过程，可使用语句_C_ 。A. Exit For B. EndC. Exit Sub D. Exit Function12.要使计时器正常工作，其属性值应满足_A_。A. Enabled = True且Interval 0B. Enabled = False且Interval 0C. Enabled = False且Interval = 0D. Enabled = False且Interval = 013.当要用字符串VB考试修改列表框List1所选中的数据项时，正确的表示方法是_。A. List1.AddItem VB考试B. List1.List(List1.ListIndex)=VB考试C. List(List1.ListIndex) = VB考试D. List1.List(ListIndex) = VB考试14.在用 Open 语句打开文件时，如果省略For方式，则打开的文件的存取方式是_。A. 顺序输入方式 B. 顺序输出方式C. 随机存取方式random D. 二进制方式binary15.在Visual Basic中默认坐标原点在窗体的_A_ 。A. 左上角 B. 左下角C. 中心 D. 底部中点二、填充题(20分，每空2分)1.当焦点进入文本框Text1时，要自动选定文本框开始的5个字符，则需要通过代码 Text1.SelStart = _0_ 和 Text1.SelLength = 5来实现。2.当设置文本框的 ScrollBar 属性为2（有垂直滚动条）后，没有显示垂直滚动条，原因是没有将 _MULTILINE_ 属性设置为True。3.在程序代码 Label1.Caption = Visual Basic中，表示对象的是 _LABEL1_。4.设变量TestMe的值为500，则 Print TestMe 1000, Large, Small) 将输出_SMALL_。5.请在空白处填入适当的内容，使程序的输出结果是3 。Private Sub Command1_Click() num = 0 Do While _num3_ num = num + 1 Loop Print numEnd Sub6.对For i = 5 To -5 Step -2 语句，共循环_5_次。7.在过程定义时，表示值传递的关键字是_byval_。8.要使装入到列表框中的数据项能自动排序，应设置该控件的_sorted_ 属性为True 。9.要覆盖一个已存在的顺序文件中原有的数据，在Open 语句中应该以 For _output_模式打开文件。10.已知窗体 Form1 的 CurrentX = 1000，执行了命令 PSet Step(200, 200) 后，CurrentX 的值为_ 。三、程序填充题(30分，每空2.5分)1下面程序的功能是统计文件file2.txt中数字符号出现的次数。程序的思想是：每次从文件中读取一个字符，判断是否是数字字符。若是数字字符，计数器加1。Private Sub Command1_Click() Dim a As Integer, c As String * 1 (1) open” file2.txt” For Input As #3a = 0 Do While Not EOF(3) c = Input$( (2)#1 ) 读取一个字符， If c = 0 And c a(j + 1) Then t = a(j) a(j) = (3) a(i) a(j + 1) = t End If Next j Next i For j = 0 To n Picture1. print “j “ (4) ; ;Next jEnd Sub3. 所谓回文素数是指构成的字符左右对称的素数。例如：11、101、313等。下面的程序求101000以内的所有回文素数。程序的思想是选取正整数N，若N是素数，调用子过程hws判断该素数是否为回文数(判断左右对称)，若是，在文本框内显示所求结果，如图所示。Private Sub Command1_Click()Dim i%, j%, flg As Boolean,m%For i = 10 to 1000 (1) m= Int(Sqr(i) For j = 2 To m 判断是否为素数 If i Mod j = 0 Then next i (2) Next j If jm Then Call hws (3) If flg Then Text1 = Text1 & i & vbCrLf End If Next iEnd SubPrivate Sub hws(n As Integer, bz As Boolean) Dim j%, k%, m$ bz = True m = CStr(n) 将数值转为字符 k = len(m) (4) 求字符m的长度 For j = 1 To k 2 判断回文数 If j (5) Mid(m, k - j + 1, 1) Then bz = False Exit For End If Next jEnd Sub四、编程题（35分）编写一个完整的程序，要求如下：1. 在Form1窗体上放置1个标签和1个列表框（初始值为空）。窗体标题栏显示考生真实的准考证号，建立如下菜单：菜单项菜单名称说明窗体1Menu1一级菜单.添加Menu11二级菜单.平均值Menu12二级菜单.-（分隔线）bar二级菜单.退出(X)Menu13二级菜单图形Menu2一级菜单建立Form2窗体，窗体标题栏显示考生的真实姓名。2在Form1中，单击“添加”菜单项，在列表框中随机产生5组三个相邻正整数N ，N+1和N+2（100N1000）。单击“平均值”菜单项，计算所产生数的平均值（保留2位小数），并显示在标签上。3选择“图形”菜单项，显示Form2窗体。双击Form2窗体，显示Form1窗体。选择“退出”菜单项，结束程序运行。4单击Form2窗体，重新定义窗体的坐标系为(-10, 30