笔试题2006春第一部分计算机基础知识_第1页
笔试题2006春第一部分计算机基础知识_第2页
笔试题2006春第一部分计算机基础知识_第3页
笔试题2006春第一部分计算机基础知识_第4页
免费预览已结束,剩余8页可下载查看

付费下载

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

1、2006年春VB1B.技2006年春VB1B.技0001, 则该整数B.-C.-5、在下列有关CPU(器7、I/O 接口指的是计算机中用于连接 I/O 设备的各种插头/插座,以及相应的通信规程以及电气特性。在下列相关 I/OI/O接口的叙述中,错误的是 。器7、I/O 接口指的是计算机中用于连接 I/O 设备的各种插头/插座,以及相应的通信规程以及电气特性。在下列相关 I/OI/O接口的叙述中,错误的是 。的是 。CCD图像显示出来。在下列有关 PC 机显示器的叙述中,错误的是A.目前出厂的台式 PC 机大多数使用 AGP 接口连接显示卡的B.的(处理(处理CPU器C.任何磁盘上的文件erne

2、t服务及相关协议的叙述中,错误的HTTPB.B.6000 多个B.GIFC.JEPGD.GIFA.GIFJPEG 19、在下列有关数据库技术的叙述中,错误的DBMS 及用户s有关的WordWord(97 及其以后的版本)功能的19、在下列有关数据库技术的叙述中,错误的DBMS 及用户s有关的WordWord(97 及其以后的版本)功能的叙述中,错的程序中执行了语句 Text3=Text1+Text2 后,则在 Text3 中显示事件过程,则命令按钮控件的名称属性和Caption属性分别A.“OK”和“确定B.“确定”和d1”和Sub Sub1(A()AsSub1(A(1 to 10) As C

3、 B D 24.执行赋值语后会触发相应控件的Change事(控件名均为缺省名A. Dirl.ListIndex =-C. List1.ListIndex B. Drive1.ListIndex D. File1.ListIndex A.“OK”和“确定B.“确定”和d1”和Sub Sub1(A()AsSub1(A(1 to 10) As C B D 24.执行赋值语后会触发相应控件的Change事(控件名均为缺省名A. Dirl.ListIndex =-C. List1.ListIndex B. Drive1.ListIndex D. File1.ListIndex )A. BOOL C. B

4、OOL =#TRUE# A. 0 B. 1 C. 2 D. B. BOOL D. BOOL = )27.以下所列项目不属于窗体事件的是)A. B. D. 系的是)C(-(-(-(-4.51) Fix(-(-4.51) Fix(-Fix(-(-C(-4.51)=0Ands1=9Then End IfNext For j=0 To j;:;n(j) Next jEnd 第二行的内容是 61,最后一行的内容是 最后一行的内容是Option Dim N As Private eger,JAsII=3To1Step-2 NNext End PrivateFunction(Aeger,Beger)Sic

5、X Dim Sum Aseger,IAs For I =1 To N=N-End Function05 02 ,A(2,1)的值是 08 ,A(3,3)的值是 Option 1A(3,3)eger,KI eger,j Call For I=1 To For J= 1 To Dim Sum Aseger,IAs For I =1 To N=N-End Function05 02 ,A(2,1)的值是 08 ,A(3,3)的值是 Option 1A(3,3)eger,KI eger,j Call For I=1 To For J= 1 To Next Next IEndSub Sub SUB1(A

6、() DimNeger,Keger,JForI=1ToN-2For J= I To N-Next IIf N Mod 20 A(N+1)/2, End End 第二行的内容是86 Option ExplicitDim N eger,MAsDOWhilem3 If Fun(N) NEnd EndSub FunctionFun(ByValNIf IfN=1ThenFun=True End IfEndDim N eger,MAsDOWhilem3 If Fun(N) NEnd EndSub FunctionFun(ByValNIf IfN=1ThenFun=True End IfEndOption

7、Base 1 Dim A(5,5) AsPrivateeger,JIeger,NForI=1To5For J=1 To J5-IAndNMod20Then End If Text1=Text1 Next Text1=Text1&vbCrLf Next IEnd I J I To For J=1 5- R=6-Next IFor =1 To For J =1 To Text1=Text1 Next Text1=Text1&vbCrLf Next IEnd I J I To For J=1 5- R=6-Next IFor =1 To For J =1 To Text2=Text2 & Next

8、Text2=Text2 & Next End 7.Option Explicit DimSAsString*1 Private SubII=0 To Put #12, , SNext End Private DimRc_NOAs Seek #12, 1Do WhileNot Put #12,Rc_NO, End Private Sub Opene:Myfile For Binary As End As String, DimsAsString,Put #12,Rc_NO, End Private Sub Opene:Myfile For Binary As End As String, Dim

9、sAsString,st DoUntiln=Len(s) IfnMod80 st=st&Mid(s,n,1) List1.AddItem stEndSub sAsString,stAsString,i i=0 To List1.ListcountForj=1ToLen(st)s=Mid(st,j,1) & Next For j=Len(s) To 1 Step-n=n+2(j-Next Text2=Text2&Chr(n) s= End OptionExplicit Private SubI As Js I =1 eger,NAs eger eger, S As String If S=Str(I) & = & Dowhilen=js-1 S=S & + & End OptionExplicit Private SubI As Js I =1 eger,NAs eger eger, S As String If S=Str(I) & = & Dowhilen=js-1 S=S & + & En

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论