高职单考单招计算机模拟试卷一一、选择题（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.在Visual Basic设计界面中不能隐藏的窗口是( )。
A.工程窗口B.属性窗口C.立即窗口D.窗体窗口21.以下可以构成语句的一项是( ) 。
A.对象名.属性B.对象名.方法名C.对象名.事件名D.对象名.函数名22.以下不是Visual Basic 的特点的选项是( ) 。
A.可视编程B.算法设计C.事件驱动D.面向对象23.在Visual Basic中通过属性来设置字体的大小( ) 。
A.FontColorB.ClipControlC.FontSizeD.ShowColor24.确定一个窗体在屏幕上的位置的属性是________。
A、Width或HeightB、Width 和HeightC、Top或LeftD、Top和Left25.要使标签中的文本靠右显示，则应将其Alignment属性设置为。
A.0B.1C.2D.326.表达式8 / 3 Mod 8 \ 2值为（）A、1B、2C、3D、027.下列语句中正确的是。
A.txt1.Text+txt2.Text=txt3.Text=cmdOKC.12Label.Caption=1234D.Text1="123"28.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.表达式X And Y > X + 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从内存中卸载，应该使用语句 unload form1 。
19.写出代数式所对应的VB表达式??。
20.VB表达式-2^2+2^-2+2.6 / 2对应的值为___5.55_-2.45___三、程序阅读（4*10分）1、下面程序的运行结果为456_ 。
Private Sub Command1_Click() Dim a As Integera=2For i=1 To 3Print F(a) ；Next iEnd SubPrivate Function F(a As Integer)b=0Static cb=b+1c=c+1f=a+b+cEnd Function2、下列程序输出结果为 2 4 6 8。
Private Sub Command1_Click() Dim a(1 To 4) As Integera(1)=5:a(2)=6:a(3)=7:a(4)=8P a()For i=1 To 4Print a(i) ，Next iEnd SubPrivate Sub P(b() As Integer)For i=1 To 4b(i)=2*iNext iEnd Sub3、下列程序输出结果为 10 10。
Private Sub Command1_Click()a%=10b%=5Change a,bPrint a,bEnd SubPrivate Sub Change(ByVal a As Integer,b As Integer)Tmp=aa=bb=tmpEnd Sub4、下述程序的运行结果是 2.25 3.75。
Private Sub Command1_Click()a=1.5b=1.5Call fun(a,b)Print a,bEnd SubPrivate Sub fun(x,y)x=y*yy=y+xEnd Sub5、下列VB程序是用来计算S=1!+2!+3!+........+n!的程序，请将程序补充完整。
（说明：N!=1*2*3*4*......*N）Private Sub Form_ClickN= Inputbox(“请输入N”)S=0FOR I=1 TO __n__callI fact (I ,t)_____S=S+TNEXT IPRINT “S=”；SENDSUB fact(N，T)T=__1__FOR J= 1 TO ____n____t = t *j __NEXT JEnd sub___四、程序填空（4*10分）1、已建立了一个工程，该工程包括两个窗体，其名称（Name 属性）分别为Form1和Form2，启动窗体为Form1。
在Form1画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请在（1）和（2）处将程序补充完整。
Private Sub Command1_Click()Unload _Form1Form2. _show _End Sub2、数据过滤程序：从左边文本框输入任意文本，如果是数字字符，则显示在右边文本框中。
运行结果如下图（文本框开始时为空）。
（1）设置对象属性（2）编写代码3、下面的程序是用选择交换法将10个数排为升序（例如输入：1、20、7、35，输出1、7、20、35），请在（6）、（7）、（8）、（9）、（10）处将程序补充完整。
Private Sub Command1_Click()For i = 1 To 10a(i) = Val(InputBox("Enter " & i))Print a(i);Next iPrintFor i = _10 to 2 step -1_k = iFor j = _1 to I -1________If ____a(j )>a(j +1 )___Then ___a(j)=a(j+1)____Next jIf ___(10)__Thenb = a(i)a(i) = a(k)a(k) = bEnd IfNext iFor i = 1 To 10Print a(i);Next iPrintEnd Sub。