高职单考单招计算机模拟试卷一

高职单考单招计算机模拟试卷一一、选择题（30*4分=120分）1．从1946年第一台计算机诞生算起，计算机的发展至今经历了（）4个年代。A.低档计算机、中档计算机、高档计算机、手提计算机B.微型计算机、小型计算机、中型计算机、大型计算机C.电子管计算机、晶体管计算机、小规模集成电路计算机、大规模及超大规模集成电路计算机D.组装机、兼容机、品牌机、原装机2．计算机能直接识别并执行的语言是（）。A.汇编语言B.机器语言C.自然语言D.高级语言3．计算机病毒是可以造成机器故障的（）。A.一种计算机设备B.一种计算机芯片C.一种计算机程序D.一种计算机部件4．在计算机应用中，“计算机辅助设计”的英文缩写是（）。A.CAMB.CATC.CADD.CAI5.十进制数91转化为二进制数的结果为（）。A.01001000B.01011011C.10001011D.101001006．下列字符中，其ASCII码值最大的是（）。A.8B.aC.ZD.m7．在计算机领域，媒体分为（）。A.硬件媒体和软件媒体B.信息媒体、文字媒体、图像媒体C.动画媒体、语言媒体和声音媒体D.感觉媒体、表示媒体、表现媒体、存储媒体和传输媒体8．一个计算机系统的硬件一般是由（）这几部分构成的。A.主机、显示器和键盘B.CPU、键盘、鼠标和显示器C.主机、显示器、打印机和电源D.运算器、控制器、存储器、输入设备和输出设备9．下列设备中，只能做输出设备的是（）。A.键盘B.鼠标器C.磁盘存储器D.打印机10．在Windows的“属性”对话框中，把一个文件设置为“隐藏”属性后，在“我的电脑”或“资源管理器”中，若想让该文件再显示出来的操作是（）。A.通过“文件”菜单的“属性”命令B.执行“查看”菜单的“选项”命令，在“选项”对话框的“查看”选现卡中进行适当的设置。C.执行“查看”菜单的“刷新”命令D.选择“查看”菜单的“详细资料”项11．Windows的桌面是一个（）。A.用户文件夹B.系统文件夹C.系统文件D.用户数据文件12．如果一个窗口被最小化，此时运行其他程序，则（）。A.内存不够时，会自动关闭B.与被最小化的窗口相对应的程序终止执行C.与被最小化的窗口相对应的程序不继续占用内存D.与被最小化的窗口相对应的程序继续占用内存13．在Windows中，有些菜单选项为灰色字符显示，这意味着这些菜单（）。A.对应的菜单命令无效B.可以照常使用C.提醒用户小心使用D.没用14．在Windows应用程序窗口的右上角，可能出现的按钮组合是（）。A.最小化、还原、关闭按钮B.最小化、最大化按钮C.最大化、还原、关闭按钮D.最小化、关闭按钮15．正常情况下，使用组合键（）可以退出应用程序。A.Ctrl＋Alt＋DelB.Shift+F4C.Alt+F4D.Shift+Esc16．在Windows98中，为了快速实现全角和半角状态之间的切换，应当按的键是（）。A.Ctrl＋空格键B.Ctrl＋ShiftC.Shift＋空格键D.Shift＋Alt17．在Windows中，用鼠标拖动（）可以移动整个窗口。A.状态栏B.标题栏C.菜单栏D.工作区18．在Window中，启动应用程序的正确方法是（）。A.用鼠标指向该应用程序B.将该应用程序窗口最小化成图标C.将该应用程序窗口还原D.用鼠标双击该应用程序19．在Windows环境下，资源管理器左边窗口中的某文件夹左边标有“＋”标记表示（）。A.该文件夹为空B.该文件夹中包含子文件夹C.该文件夹中只包含可执行文件D.该文件夹中包含系统文件20.在VisualBasic设计界面中不能隐藏的窗口是()。A.工程窗口B.属性窗口C.立即窗口D.窗体窗口21.以下可以构成语句的一项是()。A.对象名.属性B.对象名.方法名C.对象名.事件名D.对象名.函数名22.以下不是VisualBasic的特点的选项是()。A.可视编程B.算法设计C.事件驱动D.面向对象23.在VisualBasic中通过属性来设置字体的大小()。A.FontColorB.ClipControlC.FontSizeD.ShowColor24.确定一个窗体在屏幕上的位置的属性是________。A、Width或HeightB、Width和HeightC、Top或LeftD、Top和Left25.要使标签中的文本靠右显示，则应将其Alignment属性设置为。A.0B.1C.2D.326.表达式8/3Mod8\2值为（）A、1B、2C、3D、027.下列语句中正确的是。A.txt1.Text+txt2.Text=txt3.TextB.Command1.Name=cmdOKC.12Label.Caption=1234D.Text1=12328.VB表达式Int(Rnd(x)*3+1)产生区间（）内的随机整数A、[1，4]B、(1，4)C、（2，3）D、[1，3]29.语句X=X+1的正确含义是。A.变量X的值与X+1的值相等B.将变量X的值存到X+1中去C.将变量X的值加1后赋给变量XD.变量X的值为130.表达式XAndYX+1是()A、算术表达式B、非法表达式C、逻辑表达式D、关系表达式二、填空题（20*4分=80分）1．计算机内部使用的数是二进制数。2．Bit中文含义是位。3．二进制数10111101110转换成八进制数是2756。4．一个字节包含8个二进制位。5．运算器通常又称为ALU,它是实现算述逻辑算术和逻辑运算的部件。6．计算机软件系统由系统软件和应用两部分组成。7．1MB等于220字节。8．总线通常分为数据总线、控制和地址总线。9．随机存储器中的信息在突然断电时会自动消失。10．除了针式打印机外，目前使用较多、打印质量较好的打印机是激光打印机。11集文字、图形、声音、活动图像于一身的计算机系统称为多媒体计算机。12．Windowsxp是基于用户图形界面的操作系统。13．Windows中的一个文件夹具有4种，它们是系统、存档、只读和隐藏。14．Windows的对话框其形状是一个矩形框，其大小是不能改变的。15.在程序运行中,要想使可操作的按钮变得不可操作,则应将该按钮的enabled属性设置为FALSE。16.只能通过属性窗口设置的属性称为__name__只读属性___。17.VB中应用程序的开发主要是在_窗体__设计器上完成的。18.在VB中，要将窗体Form1从内存中卸载，应该使用语句unloadform1。19.写出代数式所对应的VB表达式??。20.VB表达式-2^2+2^-2+2.6/2对应的值为___5.55_-2.45___三、程序阅读（4*10分）1、下面程序的运行结果为456_。PrivateSubCommand1_Click()DimaAsIntegera=2Fori=1To3PrintF(a)；NextiEndSubPrivateFunctionF(aAsInteger)b=0Staticcb=b+1c=c+1f=a+b+cEndFunction2、下列程序输出结果为2468。PrivateSubCommand1_Click()Dima(1To4)AsIntegera(1)=5:a(2)=6:a(3)=7:a(4)=8Pa()Fori=1To4Printa(i)，NextiEndSubPrivateSubP(b()AsInteger)Fori=1To4b(i)=2*iNextiEndSub3、下列程序输出结果为1010。PrivateSubCommand1_Click()a%=10b%=5Changea,bPrinta,bEndSubPrivateSubChange(ByValaAsInteger,bAsInteger)Tmp=aa=bb=tmpEndSub4、下述程序的运行结果是2.253.75。PrivateSubCommand1_Click()a=1.5b=1.5Callfun(a,b)Printa,bEndSubPrivateSubfun(x,y)x=y*yy=y+xEndSub5、下列VB程序是用来计算S=1!+2!+3!+........+n!的程序，请将程序补充完整。（说明：N!=1*2*3*4*......*N）PrivateSubForm_ClickN=Inputbox(“请输入N”)S=0FORI=1TO__n__callIfact(I,t)_____S=S+TNEXTIPRINT“S=”；SENDSUBfact(N，T)T=__1__FORJ=1TO____n____t=t*j__NEXTJEndsub___四、程序填空（4*10分）1、已建立了一个工程，该工程包括两个窗体，其名称（Name属性）分别为Form1和Form2，启动窗体为Form1。在Form1画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请在（1）和（2）处将程序补充完整。PrivateSubCommand1_Click()Unload_Form1Form2._show_EndSub2、数据过滤程序：从左边文本框输入任意文本，如果是数字字符，则显示在右边文本框中。运行结果如下图（文本框开始时为空）。（1）设置对象属性（2）编写代码对名属名PrivateSub_____Text1_KeyPress(KeyAsciiAsInteger)______If____(4)_______Then______(5)_________EndIfEndSub属性值Form1Caption数据过滤Label1Caption输入数据：Label2Caption过滤后的数据：Text1TextText2Text3、下面的程序是用选择交换法将10个数排为升序（例如输入：1、20、7、35，输出1、7、20、35），请在（6）、（7）、（8）、（9）、（10）处将程序补充完整。PrivateSubCommand1_Click()Dima(10)AsInteger排序前排序后112077203535Fori=1To10a(i)=Val(InputBox(Enter&i))Printa(i);NextiPrintFori=_10to2step-1_k=iForj=_1toI-1________If____a(j)a(j+1)___Then___a(j)=a(j+1)____NextjIf___(10)__Thenb=a(i)a(i)=a(k)a(k)=bEndIfNextiFori=1To10Printa(i);NextiPrintEndSub