河北对口高考计算机模拟题三

河北对口高考计算机模拟题三 高三计算机第三次月考试卷 高三计算机第三次月考试卷 一(选择题。(每题2分,共50分) 1(在Visual Basic 中，下列哪种控件不可容纳以其它控件( )。 A(Picture B(Frame C(Form D(Image 2. 当窗体失去焦点时会触发哪个事件( )。 A(Active B(Deactive C(Lostfocus D(Getfocus 3. 控件( )属性的设置，可使该控件不能通过Tab键得到焦点。 A.TabStop B.TabIndex C.GotFocus D.SetFocus 4. Label控件中 内容 财务内部控制制度的内容财务内部控制制度的内容人员招聘与配置的内容项目成本控制的内容消防安全演练内容 能垂直方向变化而宽度保持不变则应设置( )属性。 A.Wordwrap B.Enabled C.Locked D.AutoSize 5. 可决定窗体的左上角是否有控制菜单的属性是( ) A.ControlBox B.MinButton C.MaxButton D.BorderStyle 6. 下列控件中可自动设置滚动条是( ) A. 复选框 B(框架 C(文本框 D(标签框 7. Visual Basic中的控件分为两类，一类是ActiveX控件，另一类是 A) 文本控件 B) 标准控件 C) 基本控件 D) 图形控件 8. 下列程序执行的结果为 x=25: y=20: z=7 Print "S("; x + z * y; ") " A) S( 47 ) B) S( 165 ) C) S( 25+7*20 ) D) S( 87 ) 9. 下列说法不正确的是 A) 对象的操作由对象的属性、事件和方法来描述 B) Visual Basic是面向对象的程序设计，Visual Basic中只有窗体和控件两种对象 C) 属性是对象的特征，不同的对象有不同的属性 D) 对象事件在代码窗口中体现过程 10. 键盘事件的执行顺序是( B ) A(KeyPress、KeyDown、KeyUp B(KeyDown、KeyPress、KeyUp C(KeyUp、KeyDown、KeyPress D(KeyUp、KeyPtess，KeyDown 11. 在设计动画时，用时钟控件来控制动画速度的属性是( B ) A(Enabled B(Interval C(Timer D(Move 12. 应用程序设计完成后，应将程序保存，保存的过程是( ) A(只保存窗体文件即可 B(只保存 工程 路基工程安全技术交底工程项目施工成本控制工程量增项单年度零星工程技术标正投影法基本原理 文件即可 C(先保存工程文件，之后保存窗体文件 D(先保存窗体文件(或标准模块文件)，之后还要保存工程文件 13(在窗体上建立了多个控件，如TEXT、LABEL1、COMMAND1，若要使程序一运行焦点就定位在COMMAND1控件上，应将COMMAND1控件的( )设置为0 A(INDEX B(TABINDEX C(TABSTOP D(ENABLED 第 1 页 共 11 页 高三计算机第三次月考试卷 14(使图像框Image控件中的图像自动适应控件的大小应( )。 A(将控件的 AutoSize属性设为True B(将控件的 AutoSize属性设为False C(将控件的 Stretche属性设为True D(将控件的 Stretche属性设为False 15(下列叙述中正确的是( ) A. 在窗体的Form-Load事件过程中定义的变量是全局变量 B(局部变量的作用域可以超出所定义的过程 C(在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程 D(在调用过程时，所有局部变量被系统初始化为0或空字符串 16(在窗体上画一个命令按钮，名称为Commandl。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程n。在P1中判断所输入的整数是否是奇数，如果是奇数，过程n返回1，否则返回0。能够正确实现上述功能的代码是( ) A(Private Sub Commandl-Click() x=InputBox("请输入整数") a=F1(Val(x)) Print a End Sub Functin Fl(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else RetUm End If End Function B(Private Sub Commandl-Click() x=InputBox("请输入整数") a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=0 Else F1=l End If End Function C(Private Sub Commandl-Click() x=Input Box("请输入整数") 第 2 页 共 11 页 高三计算机第三次月考试卷 F1(Val(x)) Print a Enb Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=1 Else F1=0 End If End Function D(Private Sub Commandl-Click() x=Input Box("请输入整数") F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function (以下叙述中错误的是( ) 17 A. 在同一窗体的菜单项中，不允许出现标题相同的菜单项 B(在菜单的标题栏中，"&"所引导的字母指明了访问该菜单项的访问键 C(程序运行过程中，可以重新设置菜单的Visible属性 D(弹出式菜单也在菜单编辑器中定义 18(下面叙述中不正确的是( ) A. 对顺序文件中的数据的操作只能按一定的顺序执行 B(顺序文件结构简单 C(能同时对顺序文件进行读写操作 D.顺序文件的数据是以字符(ASCII码)的形式存储的 19(函数RGB表示白色的值为: (A) RGB (0,0,0) (B) RGB (255,0,0) (C) RGB (0,0,255) (D) RGB (255,255,255) 20.单击窗体时，下列程序代码的执行结果为( ) Private Sub Form_Click() Test2 End Sub 第 3 页 共 11 页 高三计算机第三次月考试卷 Private Sub Test(x As Integer) x=x*2+1 If x60 Then I=1 ElseIf A>70 Then I=2 ElseIf A>80 Then I=3 ElseIf A>90 Then I=4 EndIf Print"I=";I A(I=1 B(I=2 C(I=3 D(I=4 21(在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编 写如下事件过程,该事件过程的功能是( ) Private Sub Command1_Click() n = Val(Text1.Text) For i = 2 To n For j = 2 To sqr(i) If i Mod j = 0 Then Exit For Next j If j > Sqr(i) Then Print i Next i End Sub 输出n以内的奇数 (B) 输出n以内的偶数 (A) (C) 输出n以内的素数 (D) 输出n以内能被j整除的数 22(以下( )文件类型属于WWW网页文件。 A.JPG B.HTM C.ZIP D.AVI 23(TCP/IP实际上是一组_______。 A.广域网技术 B.支持同一种计算机(网络)互连的通信协议 C.局域网技术 D.支持异种计算机(网络)互连的通信协议 24(下列关于信息高速公路的叙述中，错误的是( )。 A.高速网络技术是信息高速公路的核心技术之一 B.信息高速公路是美国空军信息基础设施建设的核心 C.因特网即信息高速公路 D.我国的公用分组网不是信息高速公路 25(下列四项中，属于局域网的是( ) 第 4 页 共 11 页 高三计算机第三次月考试卷 A.CHINANET B.Novell网 C. CERNET D. Internet 二(填空题。(每空1分,共30 分) 1(要使下列FOR循环执行10次,循环变量的初值应当是_____________。 FOR K=[ ] TO -5 STEP -2 2. 运行下面的程序，单击窗体后在窗体上显示的内容是________;若将程序中的A语句与B语句的位置互换，再次执行程序，单击窗体后在窗体上显示的内容是________。 Private Sub Form_Click() Dim a As Integer,b As Integer a=0: b=0 Do While a<=8 a=a+2 ' A语句 b=b+a*a ' B语句 Loop Print a,b End Sub 3(为了使文件列表框List1和目录列表框Dir1之间能产生同步效果，必须在______________事件过程中加入语句__________________________。 4. E盘根目录下的一个名为pic1.gif的图形文件，要在运行期间把该文件装入一个图片框(Picture1)，应执行的语句是________________________。 5. 用于强制显示声明变量的语句是_______________. 6. 组合框的_________属性决定了组合框的三种类型:下拉式组合框、简单组合框和下拉式列表框。 下面函数的功能是__________________________。 7. FUNCTION F(N) S=0 FOR K=2 TO N S=S+(K-1)*K NEXT K F=S END FUNCTION 8. 下列代数式的Visual BASIC表达式是 _____________。 6o3(x,sin50) x3e，Ln(y)，x 9. 表达式4+19,6*7,8 Mod 2的值是_______________. 10. 如果要实现当鼠标暂时停留在一命令按钮上时，显示提示信息，应设置此命令按钮的______________属性。 11. 每次单击滚动条两端箭头时，滚动条输出的变化值是5，应设置它的_________属性。 12. 衡量网络上数据传输速率的单位是每秒传送多少个二进制位，记为__________. 第 5 页 共 11 页 高三计算机第三次月考试卷 13. 局域网的网络硬件主要包括网络服务器、工作站、___________和通信介质 三.判断题(每题1分,共4分) 1. 如果用户在键盘上按下一个键，则会产生一个单击事件。 ( ) 2. 通过设置对象的TABIndex属性值可以改变Tab键的顺序。 ( ) 3. 为网络提供资源共享并对这些资源进行管理的计算机称之为工作站.( ) 4. 局域网常用的基本拓扑结构有总线型、环型和星型和分布式.( ) 四.改错题.(每处3分,共9分) 窗体的click 事件程序中有三处错误，请将其改正过来，使当单击窗体时，计算出1+2+„„+n>500的n的最小值，并在text1中显示出来。 Private sub form_click() Dim s as integer Dim I as integer Dim n as integer I=0 Do S=s+I I=I+1 N=n+1 Loop while n<500 Text1.text=s End sub 五.写运行结果.(每题3分,共12分) 在窗体上画一个命令按钮，然后编写如下事件过程: 1. Private Sub Command1_Click( ) For i=1 To 4 x=4 For j =1 To 3 x=3 For k=1 To 2 x=x+6 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，输出结果是( ) 。 2(分析下面程序运行的结果，最终显示的________。 Private function multiply (byval n as integer) as integer multiply=1 第 6 页 共 11 页 高三计算机第三次月考试卷 do while n>0 multiply=multiply*n n=n-1 loop End function Private sub form_click() dim sum as integer, i as integer for i=5 to 1 step-1 sum=sum+multiply(i) next print "sum=";sum End sub 3. 执行以下程序段 a$ = “abbacddcba” For i = 6 To 1 Step -2 X = Mid(a,i,i) Y = Left(a,i) Z = Right(a,i) Z = UCase(X & Y & Z) Next i Print Z 输出结果为_______________________. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程: 4. Option Base 1 Private Sub Command1_Click() Dim a a= Array(1,2,3,4,5) For i=1 To UBound(a) a(i) = a(i) + i - 1 Next i Print a(3) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是____________。 六.程序填空(每空2分,共30分) 1. 哥德巴赫猜想:任何一个大于或等于6的偶数都可以分解成两个素数之和. Private Sub Command1_Click() Dim i As Integer, j As Integer, k As Integer, m As Integer Dim n As Integer, m1 As Integer, m2 As Integer,num num=val(inputbox(“请输入要验证的整数范围最大值(MAX)”)) 第 7 页 共 11 页 高三计算机第三次月考试卷 For i =6 To num Step 2 For j = 3 To i k = __________ For m = 2 To k If j Mod m = 0 Then ______________ Next m If m > k Then n = i - j m1 =_____________ For m2 = 2 To m1 If n Mod m2 = 0 Then ________________ Next m2 If ______________Then Print i; "="; j; "+"; n; , End If Next j Print Next i End Sub 2. 下列程序段的功能是交换如图所示的两个列表框中的项目。当双击某个项目时，该项 目从本列表框中消失，并出现在另一个列表框中。列表1的名称为List1，列表2的名称为List2。 请填空。界面设计为: Private Sub Form_ loda( ) List1.AddItem "IBM" List1.AddItem "Compaq" List1.AddItem "AST" „„ End Sub Private Sub List1_DblClick() List2.AddItem _________.Text List1. ___________________ End Sub 第 8 页 共 11 页 高三计算机第三次月考试卷 Private Sub List2_DblClick() List1.AddItem __________.Text List2.___________________ End Sub 3. 在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1)，写如下几个 事件过程。程序运行后，单击窗体，将在标签中显示当前时间，每隔1s变换一次， 请填空。 Private Sub Form_Load( ) Timer1.Enabled = False Timer1.Interval = __________ End Sub Private Sub Form_Click( ) Timer1.Enabled =true End Sub Private Sub Timer1_Timer( ) Label1.Caption = __________ End Sub 4. 找出四位数中的幸运数，并统计幸运数的个数。所谓幸运数是指前两位数的和与后两位数的和相等的四位数。 要求 对教师党员的评价套管和固井爆破片与爆破装置仓库管理基本要求三甲医院都需要复审吗 :满足条件的幸运数显示在列表框中，幸运数的个数显示在文本框中。 Option Explicit Private Sub Command1_Click() Dim i As Integer, n As Integer, n1 As Integer, n2 As Integer For i = 1000 To 9999 _______________ n2 = i Mod 100 If sum(n1) = sum(n2) Then __________ List1. _________ CStr(i) End If Next i Text1.Text = n End Sub Private Function sum(s As Integer) As Integer Dim p As Integer, q As Integer p = s \ 10 ___________ sum = p + q End Function 第 9 页 共 11 页 高三计算机第三次月考试卷 姓名_________ 班级________ 答题卡 分数__________ 一.选择题 1—- 5_____________ 6---10_______________ 11—15________________ 16—20_____________ 21—25_______________ 二.填空题. 1.________2.____________ _________3. _________ _________4. _________ 5. _________6. _________7. _________8. _________9. _________10. _________ 11. _________12. _________13. _________ 三.判断题. 1. _____2. _____3. _____4. _____ 四.改错题. 错误的语句 正确的语句 _______________ _______________ _______________ _______________ _______________ _______________ 五.写运行结果. 1. 2. 3. 4. 六.程序填空. 1. ________________ ________________ ________________ ________________ ________________ 2. ________________ ________________ ________________ ________________ 3. ________________ ________________ 4. ________________ ________________ ________________ ________________ 第 10 页 共 11 页 高三计算机第三次月考试卷 姓名_________ 班级________ 第 11 页 共 11 页