- 相干保举
2016计较机二级根本常识强化操练
2016年3月计较机品级测验已进入强化进修阶段，同窗们的备考环境若何呢?下面百分网小编为考生搜刮清算了对计较机二级根本常识强化操练，供参考进修，但愿对您都有赞助。想领会更多相干信息请延续存眷咱们应届毕业生测验网。
1、信息手艺指的是用来扩大人的信息器官功效、辅佐人们停止信息处置的一类手艺。在以下根基信息手艺中，用于扩大人的效应器官功效的是____。
A.感测与辨认手艺 B.通讯与存储手艺
C.计较与处置手艺 D.节制与显现手艺
2、微电子手艺因此集成电路为核心的电子手艺。在以下对集成电路(IC)的阐述中，准确的是____。
A.集成电路的成长致使了晶体管的发现
B.古代计较机的CPU均是超大规模集成电路
C.小规模集成电路但凡以功效部件、子体系为集成工具
D.一切的集成电路均为数字集成电路
3、通讯手艺的成长增进了信息的传布。在以下有关通讯与通讯手艺的阐述中，毛病的是____。
A.通讯体系必有“三因素”，即信源、旌旗灯号与信宿
B.古代通讯指的是操纵电(光)波通报信息的手艺
C.数据通讯指的是计较机等数字装备之间的通讯
D.调制手艺首要分为三种，即调幅、调频和调相
4、在计较机中，数值为负的整数通俗不接纳“原码”表现，而是接纳“补码”体例表现。若某带标记整数的8位补码表现为1000
0001, 则该整数为____.
A.129 B.-1 C.-127 D.127
5、在以下有关CPU(中心处置器)与Pentium微处置器的阐述中，毛病的是____。
A.CPU除包罗运算器和节制器之外，通俗还包罗多少个寄放器
B.CPU所能履行的全数指令的调集，称为该CPU的指令体系
C.Pentium系列处置器在其成长进程中，其指令体系愈来愈丰硕
D.Pentium处置器与Power PC处置器固然产自差别的厂商，但其指令体系彼此兼容
6、根据存储器芯片的功效及物理特点，今朝用作优盘存储器芯片的是____。
A.SRAM B.SDRAM C.EPROM D.Flash ROM
7、I/O接口指的是计较机顶用于毗连I/O装备的各类插头/插座，和呼应的通讯规程和电气特点。在以下相干I/O总线与I/O接口的阐述中，毛病的是____。
A.PC机体系总线通俗分为处置器总线和主板总线
B.PCI总线属于I/O总线
C.PC机的I/O接口可分为独有式和总线式
D.USB因此并行体例任务的I/O接口
8、输出装备用于向计较机输出号令和数据，它们是计较机体系必不可少的首要构成局部。在以下有关罕见输出装备的阐述中，毛病的是____。
A.今朝数码相机的成像芯片唯一一种，即CCD成像芯片
B.扫描仪的首要机能目标包罗分辩率、色采位数和扫描幅面等
C.今朝台式PC机遍及接纳的键盘可间接发生一百多个按键编码
D.鼠标器通俗经由进程PS/2接口或USB接口与PC机相连
9、显现器的感化是将数字信息转换为光信息，终究将笔墨和图形/图象显现出来。在以下有关PC机显现器的阐述中，毛病的是____。
A.今朝出厂的台式PC机大大都操纵AGP接口毗连显现卡
B.黑色显现器上的每一个像素由RGB三种基色构成
C.与CRT显现器比拟，LCD的任务电压高、功耗小
D.从显现器的分辩率来看，程度分辩率与垂直分辩率之比通俗为4：3
10、计较机软件(简称软件)指的是能批示计较机完成特定任务的、以电子格局存储的法式、数据和相干的文档。在以下有关软件的阐述中，毛病的是____。
A.软件的版权一切者不一定是软件作者
B.同享软件指的是一种无版权的软件
C.用户采办一个软件后，仅取得该软件的操纵权，并不取得其版权
D.软件许可证是一种法令条约，它肯定了用户对软件的操纵体例
11、在以下有关Windows操纵体系(这里指Windows
95及其今后的版本)的多任务处置功效的阐述中，准确的是____。
A.在多任务处置进程中，前台任务与背景任务都能获得CPU的呼应(处置)
B.因为CPU具备并行履行指令的功效，以是操纵体系能力停止多个任务的处置
C.因为用户只启动一个操纵法式，那末该法式便能够或许从头至尾地独有CPU
D.Windows操纵体系接纳合作体例撑持多个任务的处置
12、文件办理是操纵体系的根基功效之一。在Windows操纵体系环境下，以下有关文件办理功效的阐述中，毛病的是____。
A.计较机中的一切法式、数据、文档都构造成文件寄存在外存储器中
B.磁盘上的文件分派表(FAT)有两个，且内容不异
C.任何磁盘上的文件根目次表(FDT)唯一一个
D.文件办理以扇区为单元分派磁盘上的存储空间
13、跟着Internet的飞速成长，其供给的办事愈来愈多。在以下有关Internet办事及相干和谈的阐述中，毛病的是____。
A.电子邮件是Internet最早的办事之一，首要操纵SMTP/POP3和谈
B.WWW是今朝Internet上操纵最普遍的一种办事，常操纵的和谈是HTTP
C.文件传输和谈(FTP)首要用于在Internet上阅读网页时节制网页文件的传输
D.长途登录也是Internet供给的办事之一，它接纳的和谈称为Telnet
14、在以下有关法式设想说话及其处置法式的阐述中，毛病的是____。
A.法式设想说话可分为机械说话、汇编说话和高等说话
B.机械说话与计较机硬件干系紧密亲密，用它编写的法式可移植性较差
C.用于帮助编写汇编说话法式的编辑软件称为汇编法式
D.高等法式设想说话能够或许有诠释与编译两种体例
15、在以下有关最罕见局域网、收集装备和相干手艺的阐述中，毛病的是____。
A.以太网是最经常操纵的一种局域网，它接纳总线布局
B.每一个以太网网卡的介质拜候地点(MAC地点)是环球唯一的
C.无线局域网通俗接纳无线电波或红外线停止数据通讯
D.“蓝牙”是一种远间隔无线通讯的手艺规范，合用于山区住户组建局域网
16、字符编码规范划定了字种及其编码。在以下有关汉字编码规范的阐述中，毛病的是____。
A.我国颁发的第一个汉字编码规范是GB2312-80，它包罗经常操纵汉字6000多个
B.GB2312-80和GBK规范均接纳双字节编码
C.GB18030-2000规范操纵3字节和4字节编码，与GB2312-80和GBK兼容
D.UCS-2是双字节编码，它包罗拉丁字母笔墨、音节笔墨和经常操纵汉字等等
17、差别格局的图象文件，其数据编码体例有所差别，但凡对应差别的操纵。在以下几组图象文件格局中，建造网页时用得最多的是____。
A.GIF与JPEG B.GIF与BMP C.JEPG与BMP D.GIF与TIF
18、计较机中处置的声响分为波形声响和分解声响两类。在以下有关波形声响的阐述中，毛病的是____。
A.波形声响的获得进程便是把摹拟声响旌旗灯号转换为数字情势，包罗取样、量化和编码等步骤
B.声响旌旗灯号的数字化首要由声卡来完成，其核心是数字旌旗灯号处置器(DSP)
C.MP3接纳MPEG-3规范对声响停止紧缩编码
D.波形声响的首要参数包罗取样频次、量化位数和声道数量等
19、在以下有关数据库手艺的阐述中，毛病的是____。
A.干系模子是今朝在数据库办理体系中操纵最为普遍的数据模子之一
B.从构成上看，数据库体系由数据库及其操纵法式构成，它不包罗DBMS及用户
C.SQL说话不限于数据查问，还包罗数据操纵、界说、节制和办理等多方面的功效
D.Access数据库办理体系是Office软件包中的软件之一
20、Microsoft Word是今朝最经常操纵的笔墨处置软件之一。在以下有关Microsoft
Word(97及其今后的版本)功效的阐述中，毛病的是____。
A.在默许环境下，页面的版面(纸张巨细)能为A4
B.在统一文档中，一切页面的版面(纸张巨细)只能不异(答题者注：拔出分节符后便能够或许差别)
C.体系具备基于字典的拼写查抄功效
D.在通俗视图中，能够或许显现表格，但不能显现所拔出的图片(答题者注：初期版本不能够或许，此刻版本能够或许显现)
21、以下有关信息手艺的阐述毛病的是____。
A.古代信息手艺的首要特点之一因此数字手艺和电子手艺为根本
B.操纵磁带、光盘、德律风、传真等停止信息通报均属于古代通讯
C.微电子手艺以集成电路为核心D.遥感遥测手艺、主动节制手艺等均属于古代信息手艺
22、所谓“变号操纵”，是指将一个整数变成相对值不异但标记相反的另外一个整数。假定操纵补码表现的8位整数X=10100001，则颠末变号操纵后，成果为____。
A.01011111 B.00010101 C.01000000 D.10100001
23、若在某计较机体系中，西文操纵规范ASCII码、汉字接纳GB2312编码。设有一段纯文本，其机内码为CF B3 27 31 D7 A1 2C 6E FC BA，则在这段文本中含有____。
A. 5个汉字和3个西笔墨符 B.6个汉字和2个西笔墨符
C.4个汉字和2个西笔墨符 D.3个汉字和4个西笔墨符
24、在TCP/IP和谈中，长途登录操纵的和谈是____。
A.Telnet B.FTP C.HTTP D.UDP
25、二进制数10111000和11001010停止逻辑“与”运算，成果再与10100110停止逻辑“或”运算，终究成果的十六进制情势为____。
A.A2 B.DE C.AE D.95
26、二进制数1001加上十六进制数AC，所获得的八进制数是____。
A.262 B. 265 C.264 D.263
27、以下有关今朝PC机主理及其组件的阐述准确的是____。
A.主板的物理尺寸不规范，但凡差别品牌的主板接纳差别的尺寸
B.主板上的BIOS芯片是一种RAM芯片，因此其存储的信息是能够或许随时革新的
C.主板上的存储器节制和I/O节制毫无干系
D.主板上的CMOS芯片是一种易失性存储器，其存储的信息断电后将丧失
28、以下有关算法和数据布局的阐述毛病的是____。
A.算法描写处理题目的步骤，数据布局描写求解题目的工具
B.算法应具备肯定性、有穷性和能行性
C.数据布局研讨的内容包罗数据的逻辑布局和存储布局，与数据的运算有关
D.经心挑选和设想的数据布局能够或许进步算法的时候和空间效力
29、操纵体系的产物有很多种。在以下软件中不属于操纵体系产物范例的是____。
A.Linux B.UNIX C.Windows Server 2003 D.Outlook Express 2003
30、经常操纵局域网有以太网、FDDI网等范例。以下的相干阐述毛病的是____。
A.总线式以太网接纳带抵触检测的载波侦听多路拜候方式停止通讯
B.以太网互换机比集线用具备更高的机能，它能进步全部收集的带宽
C.FDDI网但凡接纳光纤双环布局，具备高靠得住性和数据传输的失密性
D.FDDI网的MAC地点和帧格局与以太网不异，以是它们能够或许间接互连
31、对带宽为300 ~ 3400Hz的语音，若采样频次为8kHz、量化位数为8位的单声道未紧缩时的码率约为____。
A.64KB/S B.128KB/S C.64kb/s D.128 kb/s
32、在PAL制式的电视体系中，传输图象时接纳的色彩模子是____。
A.CMYK B.YUV C.HSB D.RGB
33、寄存一幅1024×768像素的未颠末紧缩的真黑色图象(24位)，约莫须要_____字节的存储空间。
A.1024×768×24 B.1024×768×3
C.1024×768×2 D.1024×768×8
34、下面是对我国汉字编码规范的阐述，此中准确的是____。
A.Unicode是我国最新宣布的，也是收字最多的汉字编码国度规范
B.差别字型(如宋体和楷体等)的统一个汉字在计较机中的内码是差别的
C.在GB18030汉字编码规范中，共有两万多个汉字
D.GB18030与GB2312、GBK汉字编码规范不能兼容
35、以下对算法的阐述准确的是____。
A.算法的表现必须让计较机能够或许懂得
B.算法必须要有输出
C.算法必须发生准确的成果
D.算法必须具备肯定性
36、以下不能作为IP地点的是____。
A.120.116.2.3 B.3.0.0.1 C.256.12.23.250 D.2.1.0.36
37、在信息体系的布局化性命周期开辟方式中，详细的法式编写属于____阶段的任务。
A.体系阐发 B.体系计划 C.体系实行 D.体系设想
38某用户在WWW阅读器地点栏中键入一个URL//www.sina.com.cn/，此中的“/”代表____。
A.和谈范例 B.主机域名 C.途径及文件名 D.文件名
39、以下对Windows XP功效和操纵阐述毛病的是____。
A.“搜狗拼音”汉字输出法不属于Windows内置的输出法之一
B.经由进程某文件的属性，能够或许检查工具的建立日期和时候
C.能够或许经由进程疾速键CTRL+空格键疾速切换中/英文输出法
D.经由进程CTRL+PrintScreen组合键将今后窗口拷贝到剪贴板
40、以下有关Microsoft Office 2000/2003(中文版)功效的阐述毛病的是____。
A.在FrontPage中，履行菜单号令“新建”时，能够或许挑选是新建网页仍是新建站点
B.在Powerpoint中，既能够或许拔出Excel任务表，也能够或许拔出Excel图表
C.在Word中，能够或许操纵菜单号令“信息检索”，能够或许统计出今后文档的行数和段落数
D.在PowerPoint中，能够或许对字体停止替代，比方将幻灯片中的“宋体”替代成“楷体”
第二局部Visual Basic法式设想
一、挑选题
1、窗体上放置了三个文本框，若在Text1中输出456，在Text2中输出78，在法式中履行了语句Text3=Text1+Text2后，则在Text3中显现____。
A.434 B.45678 C.溢出 D.语法毛病
2、若是窗体上有号令按钮“肯定”，在代码编辑窗口有与之相对应的OK_Click()事务进程，则号令按钮控件的称号属性和Caption属性别离为____。
A.“OK”和“肯定”
B.“肯定”和“OK”
C.“Command1”和“肯定”
D.“Command1”和“OK”
3.下面Sub子进程的各个语句中，准确的是( )
a Private Sub Sub1(A() As string)
b Private Sub Sub1(A(1 to 10) As string*8)
c Private Sub Sub1(S As string)
d Private Sub Sub1(s As string*8)
A abcd B abc C acd D ac
4.履行赋值语句_____后，会触发呼应控件的Change事务(控件名均为缺省名)。
A. Dirl.ListIndex =-2 B. Drive1.ListIndex =2
C. List1.ListIndex =3 D. File1.ListIndex =3
5.假定变量BOOL是一个布尔型变量，则以下赋值语句中，准确的是( )。
A. BOOL ='TRUE' B. BOOL =.TRUE.
C. BOOL =#TRUE# D. BOOL = True
6.抒发式6.5*5 Mod 28\8的值是( )。
A. 0 B. 1 C. 2 D. 3
7.以下所列名目不属于窗体事务的是( )。
A. Initialize B. SetFocus C. GotFocus D. LostFocus
8.函数CInt Int Fix都前往整数值，以下能准确地描写它们前往整数值巨细干系的是( )。
A. CInt(-4.51)=Int(-4.51)< Fix(-4.51)
B. Int(-4.51)C. CInt(-4.51)< Fix(-4.51)D.Int(-4.51)
9.下面有关数组的说法中，毛病的是( )
A.数组必须先界说后操纵
B.数组形参能够或许是定长字符串范例
C.Erase语句的感化是对已界说数组的值从头初始化
D.界说数组时，数组维界值能够或许不是整数
10.能够或许把变更长字符串S中的第一个"ABC"子串，替代成“1234"的语句是( )
A. S=Left(s, InStr(S,"ABC"))&"1234" &
Right(S,Len(S)-InStr(S,"ABC")-2)
B. Mid(S,InStr(S,"ABC"),3)="1234"
C. Mid(S,InStr(S,"ABC"),4)="1234"
D. S=Left(s, InStr(S,"ABC")-1)&"1234"&
Right(S,Len(S)-InStr(S,"ABC")-2)
11、以下名目中，属性、方式、事务的个数别离为____。
①Text ②Cls ③Setfocus ④Gotfocus ⑤Keypress ⑥Load ⑦Unload
A.1 3 3 B. 1 2 4 C.2 2 3 D.2 3 2
12、履行以下语句会呈现毛病提醒的是____。
A.S%=12& + 100! B.Print a & b C.S#=”12b-2” D.Print Date
13、对数学抒发式 对应的VB抒发式是____。
A.Abs(e ^ x + Cos (30) ^ 3)/ Sqr (x+y) B.Abs(Exp (x) + Cos (30) ^ 3)/ (Sqr (x+y))
C.Abs (( Exp (x) + Cos (30*3.10/180) ^ 3) / (Sqr (x+y)) D.Abs[( Exp (x) + Cos (30*3.10/180) ^ 3) / (Sqr (x+y)]
14、在以下抒发式中，运算成果的范例是整型的是____。
A.Print 1 & 2 B.Print 10.5 Mod 3.2 C.Print Int(134.79) D.Print 4/2
15、对以下所界说的Sub进程：
Private Sub Convert(Y As Integer)，以下进程挪用中，参数是按址通报的是____。
A.Call Convert((X))B.Call Convert(X*1) C.Convert(X) D.Convert X
16、界说两个进程Private Sub Sub1(St()As String)和Private Sub Sub2(Ch()As String*6)，在挪用进程顶用Dim S(3)As String * 6，A(3)As String界说了两个字符串数组，下面挪用语句中准确的有____。
①Call Sub1(S) ②Call Sub1(A) ③Call Sub2(A) ④Call Sub2(S)
A.①② B.①③ C.②③ D.②④
17、以下对Function进程的说法毛病的是____。
A.Function进程只能够或许有一个前往值 B.Function进程外部不得再界说Function进程
C.Function进程中只能包罗一个Exit Function语句 D.能够或许像挪用Sub进程一样挪用Function进程
18、法式中有两个进程Private Sub Sub1(S As String)和Private Sub Sub2(a()As String*6)，在挪用进程顶用Dim St(6)As String*6界说了一个字符串数组，以下挪用语句准确的是____。
①Call Sub1(St(3)) ②Call Sub2(St) ③Call Sub1(St) ④Call Sub2(St(6))
A.①② B.①③ C.②③ D.②④
19、以下对变量感化域的阐述准确的是____。
A.窗体中凡用Private申明的变量只能在某个指定进程中操纵
B.模块级变量只能够或许用Dim或Static语句停止申明
C.但凡在窗体模块或规范模块的通用申明段用Public语句申明的变量都是全局变量
D.当差别感化域的同名变量发生抵触时，优先拜候规模性小的变量
20、以下有关数组的说法，不准确的是____。
A.在窗体模块中不能够或许界说全局数组B.能够或许操纵Erase语句开释一切数组所占有的存储空间
C.语句Dim X(3.6+2)As Integer界说了一个维上界是6的一维整型数组
D.形参数组的范例能够或许是定长字符串范例
21、以下名目中，属性、方式、事务的个数别离为____。
①Text ②Cls ③Setfocus ④Gotfocus ⑤Keypress ⑥Load ⑦Unload
A.1 2 4 B.1 3 3 C.2 2 3 D.2 3 2
22、履行以下语句会呈现毛病提醒的是____。
A.S%=12& + 100! B.Print a & b
C.S#=”12b-2” D.Print Date
23、对数学抒发式 对应的VB抒发式是____。
A.Abs(e ^ x + Cos (30) ^ 3)/ Sqr (x+y)
B.Abs(Exp (x) + Cos (30) ^ 3)/ (Sqr (x+y))
C.Abs (( Exp (x) + Cos (30*3.10/180) ^ 3) / (Sqr (x+y))
D.Abs[( Exp (x) + Cos (30*3.10/180) ^ 3) / (Sqr (x+y)]
24、在以下抒发式中，运算成果为True的是____。
A.3>2>1 B.”abcrd”<=”ABCRD”
C.Int (134.79) <= Cint(134.79) D.Mid (“Visual”,1,4) = Right (“lausiv”,4)
25、在界面设想时，要使得文本框能够或许完成多行输出功效，应将____属性设置成True。
A.AutoSize B.MultiLine C.Alignment D.RightToLeft
26、以下Case语句含有毛病的是____。
A.Case 0 To 10 B.Case Is<10 , Is>50 C.Case Abs(x)>7 D.Case 1,3,Is>10
27、以下对Function进程的说法毛病的是____。
A.Function进程只能够或许有一个前往值
B.Function进程外部不得再界说Function进程
C.Function进程中只能包罗一个Exit Function语句
D.能够或许像挪用Sub进程一样挪用Function进程
28、以下对数组的说法准确的是____。
A.不能够或许用Public语句在窗体模块的通用处申明一个全局数组
B.用ReDim语句从头界说静态数组时，可转变数组的巨细，不能转变数组的维界
C.在进程中操纵ReDim语句能够或许转变静态数组的数据范例
D.在进程中能够或许操纵Dim、Private和Static语句来界说数组
29、以下对变量感化域的阐述准确的是____。
A.窗体中凡用Private申明的变量只能在某个指定进程中操纵
B.模块级变量只能够或许用Dim或Static语句停止申明
C.但凡在窗体模块或规范模块的通用申明段用Public语句申明的变量都是全局变量
D.当差别感化域的同名变量发生抵触时，优先拜候规模性小的变量
30、在一个多窗体布局中，能够或许仅将窗体Form3从内存中卸载的语句是____。
A.Form3.Unload B.End Form3 C.Form3.Hide D.Unload Form3
31、工程文件的扩大名是( )。A.vbg B.vbp C.vbw D.vbl
32、法式运转时，若要经由进程回车键挪用某号令按钮的Click事务进程，则可设置该号令按钮的( )属性值为True来完成。A、Value B、Enabled C、Default D、Cancel
33、设a=“Visual Basic”，下面使b=“Visual”的语句是( )
A、b=Left(a,8,12) B、b=Mid(a,8,5) C、b=Rigth(a,6) D、b=Left(a,6)
34、若要使号令按钮不可用，则可设置其( )属性为False来完成。
A、Value B、Cancel C、Enabled D、Default
35.许可在菜单项的左侧设置打勾标记，下面哪一种阐述是准确的?( )
A.在标题项中输出&而后打勾 B 在索引项中输出“√”
C.在复选项中输出“√” D 在有用项中输出“√”
36、以下阐述中准确的是( )
A、窗体的Name属性指定窗体的称号，用来标识一个窗体
B、窗体的Name属性的值是显此刻窗体标题栏中的文本
C、能够或许在运转时代转变工具的Name属性的值
D、工具的Name属性值能够或许为空
37、VB供给( )属性用于节制工具是不是可用。
A、Default B、Cancel C、Enabled D、Visible
38、菜单控件只包罗一个事务，即( )，当用鼠标单击或键盘选中后按“回车”键时触发该事务，除分开条之外的一切菜单控件都能辨认该事务。
A、GotFocus B、Load C、Click D、KeyDown
39、以下选项中，不属于标签的属性是( )。
A、Enabled B、Caption C、Default D、Font
40、设置一个单选按钮(OptionButton)所代表选项的选中状况，该当在属性窗口中转变的属性是( )。
A、Caption B、Name C、Text D、Value
41、语句Print "The answer is";20/4-2的成果为( )。
A、The answer is 20/4-2 B、The answer is 3
C、The answer is "20/4-2" D、不法语句
42、以下选项中，不是 Visual Basic控件的是( )。
A.窗体 B.按时器 C.单选框 D.号令按钮
43、当履行以下进程时，在窗体大将显现( )。
Private Sub Command1_Click( )
Print "VB";
Print "Hello! ";
Print "VB"
End Sub
A、 VBHello!VB B、 VB C、 VB D、 VB
Hello!VB Hello!
Hello! VB VB
44、设有以下语句：
Strl=InputBox("输人"，""，"操练")
从键盘上输人字符 “示例”后，Strl的值是( )。
A.“输出” B.“” C.“操练” D.“示例”
45、窗体Form1的Name属性是Frm1,它的单击事务进程名是( )。
A. Form1_Click B.Form_Click C. Frm1_Click D. Me_Click
二、填空题
1、VB中若要发生一动静框，可用__ _函数来完成。
2、在VB中若要让某对工具获得核心，则可经由进程_ _方式来完成。
3、为使某窗口中的号令按钮“打消(C)”具备以下特点：按“Alt+C”键或按 “ESC” 键，都可取代用鼠标单击该按钮的操纵，应设置该按钮的Caption属性值为_ ，并且设置其 __属性值为__ _。
4、封闭正在运转的VB窗口将主动触发的事务是 。
4、可用图片框的 方式在图片框中显现笔墨。
6、设x=34.58，语句Print Format(x,“00.0”)的输出成果是 。
7、在VB 中，数值型变量的初值为 ，字符型变量的初值为 。
8、已知：Y&=23.658，则Len ( Y )=__________，Len(”Y”)=______________。
9履行下面法式，当单击窗体时，显此刻窗体上第一行的内容是_ _ _，第二行的内容是_
Private Sub Form_Click()
Dim I As Integer,Sum As Intger
For I=0.5 To 8.5 Step2.5
Sum=Sum+I*10
Next I
Print Sum
print I
End Sub
10.运转下面的法式，当单击窗体时，窗体上显现的内容的第一行是 _ _，第三行是_ _，第五行是 _。
Private Sub From_Click()
Dim s As String, i As Integer,n(9) As Integer
Dim s1 As String*1,j As Integer
s=Trim("12345a307291b233")
For i=1 To Len(s)
s1=Mid(s,i,1)
If s1>="0" And s1<="9"Then
j=Val(s1)
n(j)=n(j)+1
End If
Next i
For j=0 To 9
Print j; ":" ;n(j)
Next j
End Sub
11.履行下面法式，单击号令按钮Command1后，显此刻窗体上第一行的内容是_ ，第二行的内容是
，最初一行的内容是
最初一行的内容是
Option Explicit
Dim N As Integer
Private Sub Command1_Click()
Dim I As Integer, J As Integer
For I=3 To 1 Step -2
N=Fun(I,N)
Print N
Next I
End Sub
Private Function Fun (A As Integer) As Integer
Static X As Integer
Dim Sum As Integer,I As Integer
X=X+N
For I =1 To A
B=B+X+I
N=N-I\2
Sum=Sum+B
Next I
A=A+1
Fun=Sum+A
End Function
12.履行下面法式，单击号令按钮Command1后，显此刻窗体上第一行的内容是 ，A(2,1)的值是
，A(3,3)的值是
Option Base 1
Private Sub Command1_Click()
Dim A(3,3) As Integer,K As Integer
Dim I As Integer,j As Integer
Call SUB1(A)
For I=1 To 3
For J= 1 To 3
Print Right("0"&A(I,J)&" ",3);
Next J
Next I
End Sub
Private Sub SUB1(A() As Integer)
Dim N As Integer,K As Integer, J As Integer
N=UBound(A,1)
For I=1 To N-2
For J= I To N-I
A(I,J)=K+1
A(J,N+1-I)=K+2
A(N+1-I,N+1-J)=K+3
A(N+1-J,I)=K+4
K=K+4
Next J
Next I
If N Mod 2<>0 Then
A((N+1)/2, (N+1)/2)=K+1
End If
End Sub
13.履行下面法式，单击号令按钮Command1后，显此刻窗体上第一行的内容是 ，第二行的内容是
，第三行的内容是
Option Explicit
Private Sub Command1_Click()
Dim N As Integer, M As Integer
N=2
DO While m<3
N=N+2
If Fun(N) Then
Print N
M=M+1
End If
Loop
End Sub
Private Function Fun(ByVal N As Integer) As Boolean
If N/2=Int(N/2)Then
Fun=Fun(N/2)
Else
If N=1 Then Fun=True
End If
End Function
14.在下面法式中，Command1_Click()事务进程的功效是天生一个5x5的矩阵，该矩阵的副对角线(指矩阵左下角
到矩阵右上角连线上的元素)上方元素都是偶数，副对角线和它的下方元素都为奇数。Command2_Click()事务
进程的功效是，互换以副对角线为界限的上三角和下三角的对应元素。完美法式，完成以上功效。
Option Explicit
Option Base 1
Dim A(5,5) As Integer
Private Sub Command1_Click()
Dim I As Integer,J As Integer , N As Integer
Randomize
For I=1 To 5
For J=1 To 5
Do
N=Int(rnd*90)+10
If J <=5-I And N Mod 2=0 Then
A(I,J)=N
ElseIf J >5-I And N Mod 2<> 0 Then
A(I,J)=N
End If
Loop___( )
Text1=Text1 & Str(A(I,J))
Next J
Text1=Text1 & vbCrLf
Next I
End Sub
Private Sub Command2_Click()
Dim I As Integer,L As Integer,T As Integer
Dim J As Integer,R As Integer
For I =1 To 5
For J=1 To 5-I
T=A(I,J)
( )
( )
A(I,J)=A(L,R)
A(L,R)=T
Next J
Next I
For I =1 To 5
For J =1 To 5
Text2=Text2 & Str(A(I,J))
Next J
Text2=Text2 & vbCrLf
Next I
End Sub
15、在下面法式中，Command1_Click()事务进程的功效是将26个大写字母A~Z顺次写到二进制文件Myfile中，Command2_Click()
事务进程的功效是将文件中的大写字母在原地位——改写成小写字母，完美法式，完成以上功效。
Option Explicit
Dim S As String*1
Private Sub Command1_Click()
Dim I As Integer
For I=0 To 25
S= ( )
Put #12, , S
Next I
End Sub
Private Sub Command2_Click()
Dim Rc_NO As Integer
Seek #12, 1
Do While ( )
S= ( )
S=LCase(S)
Rc_NO=Rc_NO+1
Put #12,Rc_NO, S
Loop
End Sub
Private Sub From_Load()
Open"e:\Myfile" For Binary As #12
End Sub
16、下面法式的功效是对密文解密。密文的加密方式因此字符为单元，取其ASCII码，按逆序保管(比方字母"e"的ASCII码是01100101,密文中则为10100110)。解密是加密的逆进程。完美法式，完成以上功效。
Private Sub Command1_Click()
Dim s As String, st As String, i As Integer,n As Integer
s=Text1
Do Until n >=Len(s)
( )
If n Mod 8 <> 0 Then
st=st &Mid(s,n,1)
Else
st=st & Mid(s,n,1)
List1.AddItem st
( )
End If
Loop
End Sub
Private Sub Command2_Click()
Dim s As String, st As String, i As Integer
For i=0 To ( )
st=List1.List(i)
For j=1 To Len(st)
s=Mid(st,j,1) & s
Next j
For j=Len(s) To 1 Step-1
n=( )
Next j
Text2=Text2 & Chr(n)
s=" "
( )
Next i
End Sub
17.下面法式的功效是，找出100之内一切能够或许表现成3个持续天然数之和的数。完美法式，完成以上功效。
Option Explicit
Private Sub Command1_Click()
Dim I As Integer, N As Integer
Dim Js As Integer, S As String
For I =1 To 100
If Fun(I,N,Js)Then
S=Str(I) & "=" & N
Do ( )
N=N+1
S=S & "+" & N
Loop
List1.AddItem S
End If
Next I
End Sub
Private Function Fun(L As Integer, M As Integer, Js As
Integer) As Boolean
Dim I As Integer, Sum As Integer, K As Integer
For I =1 To L
( )
K=0
( )
Do While Sum < L And K < 3
K=K+1
Js=Js+1
Sum=Sum+Js
Loop
If ( ) then
M=I
Fun=True
E xit For
Exit if
Next I
End Function
18、履行以下法式，当单击窗体时，窗体上显现内容的第一行是 ，第三行 ，第七行 ，最初一行 。
Private Sub Form_Click()
Dim S As String, i As Integer, A(9) As Integer
Dim S1 As String * 1, j As Integer
S = Trim("136a637d28965f01b04c")
For i = 1 To Len(S)
S1 = Mid(S, i, 1)
If S1 >= "0" And S1 <= "9" Then
j = Val(S1)
A(j) = A(j) + 2
End If
Next i
For j = LBound(A) To UBound(A)
Print j; ":"; A(j)
Next j
End Sub
19、履行下面法式，单击窗体，显此刻窗体上的第一行内容 ，第二行内容 ，第三行内容 ，最初一行内容 。
Dim N As Integer
Private Sub Form_Click()
Dim I As Integer, J As Integer
For I = 3 To I Step -2
N = Fun(I, N)
Print N
Next I
End Sub
Private Function Fun(A As Integer, B As Integer) As Integer
Static X As Integer
Dim Sum As Integer, I As Integer
X = X + N
For I = 1 To A
B = B + X + I
N = N - I \ 2
Sum = Sum + B
Next I
A = A + 1
Fun =Sum + A
End Function
20、下面的事务进程履行竣事后，窗体上第一行显现 ，第二行显现 ，第三行显现 。
Private Sub Form_Click()
Dim A(3, 3) As Integer, I As Integer, J As Integer, K As Integer
I = 3: J = 1
A(I, J) = 10
For K = 11 To 18
If I + 1 > 3 Or J + 1 > 3 Then
If J = 1 Then
I = I - 1
ElseIf A(I - 1, J - 1) = 0 Then
I = I - 1: J = J - 1
ElseIf J = 3 Then
I = I - 1
Else
J = J + 1
End If
ElseIf J = 1 Or I = 1 Then
If A(I + 1, J + 1) = 0 Then
I = I + 1: J = J + 1
Else
J = J + 1
End If
Else
If A(I - 1, J - 1) = 0 Then
I = I - 1: J = J - 1
End If
End If
A(I, J) = K
Next K
For I = 3 To 1 Step -1
For J = 3 To 1 Step -1
Print Str(A(I, J));
Next J
Next I
End Sub
21、履行下面的法式，在窗体上显现的输出成果的第一行是 ，第二行是 ，第三行是 。
Private Sub Form_Click()
Dim N As Integer, M As Integer
N = 2
For M = 9 To 1 Step -1
Call Sub2(M, N)
Print M; N
Next M
End Sub
Private Sub Sub2(X As Integer, Y As Integer)
Static N As Integer
Dim M As Integer
For M = 3 To 1 Step -1
N = N + X
X = X - 1
Next M
Y = Y + N
End Sub
22、运转法式，单击号令按钮，窗体上输出成果是 。
Private Sub Command1_Click()
abc 2
abc 4
abc 9
End Sub
Private Sub abc(a As Integer)
Static X As Integer
X = X + a ^ 2
Print X;
End Sub
23、以下法式的功效是：计较ALL=1!+2!+3!+ … + n!(n=1，2，3…)此中n从键盘上输出。
Private Sub Command1_Click()
Dim i As Integer, Sum As Long, n As Long
Sum = 0
n = Val(InputBox("求n!的和，输出n:"))
For i = 1 To n
Sum = Sum + ( )
Next i
Print Sum
End Sub
Private Function Fun(k As Integer) As Long
Dim P As Long, i As Integer
P = 1
For i = 1 To k
P = P * i
Next i
( )
End Function
24、下面法式的功效是：考证肆意一个大于5的奇数可表现为3个素数之和。完美法式，完成以上功效，法式界面参见右下图。
Option Base 1
Private Sub Command1_Click()
Dim P() As Integer, N As Integer, L As Integer
Dim I As Integer, J As Integer, K As Integer
Dim Ch As String
N = InputBox("输出一个大于5的奇数!")
Label1.Caption = CStr(N) & "="
Call Prime(P, N)
L = UBound(P)
For I = 1 To L
For J = 1 To L
For K = 1 To L
If P(I) + P(J) + P(K) = N Then
Ch = CStr(P(I)) & "+" & CStr(P(J)) & "+" & CStr(P(K))
Text1.Text = Ch
( )
End If
Next K
Next J
Next I
End Sub
Private Sub Prime( )
Dim I As Integer, Idx As Integer, J As Integer
For I = 2 To N
For J = 2 To Sqr(I)
If I Mod J = 0 Then Exit For
Next J
If( )Then
Idx = Idx + 1
( )
A(Idx) = I
End If
Next I
End Sub
25、下面法式摹拟裁判评分(取某个规模内的随机数)，设有10名裁判，打分规模为1到10，去掉一个最高分和一个最低分后，所得总分的均匀分便是选手最初得分(四舍五入，保留1为小数)。法式界面参见下图。
Option Base 1
Private Sub Command1_Click()
Dim Score(10) As Single, i As Integer, Max As Single
Dim Min As Single, AV As Single, Sum As Single
For i = 1 To UBound(Score)
Score(i) = ( )
Text1 = Text1 & Str(Score(i)) & " "
( )
Next i
Call MaxMin(Score, Max, Min)
AV = (Sum - Max - Min) / 10
Text2 =( )
End Sub
Private Sub MaxMin(( ))
Dim i As Integer
Max = a(1): Min = a(1)
If a(i) > Max Then
Max = a(i)
ElseIf a(i) < Min Then
Min = a(i)
End If
Next i
End Sub
26、C盘根目次下的数据文件data.txt中有两组数据，第一组数据未排序，并以-1表现该组数据竣事;第二组数据按从小到大挨次排序。下面法式的功效是，单击“读入数据”按钮，将文件中的两组数据，别离读入到A、B数组中，单击“拔出排序”按钮，则把A数组的元素按其巨细顺次拔出到B数组的恰当地位，使得B数组中元素仍为从小到大摆列。完美法式，完成以上功效。法式界面参见下图。
Dim a() As Integer, b() As Integer
Private Sub Command1_Click()
Dim i As Integer, j As Integer, n As Integer, s As String
( )
Do
Input #11, n
If n = -1 Then Exit Do
i = i + 1
ReDim Preserve a(i)
a(i) = n
s = s & Str(a(i))
Loop
Text1 = s
s = ""
( )
j = j + 1
ReDim Preserve b(j)
Input #11, b(j)
s = s & Str(b(j))
Loop
Text2 = s
Close #11
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer, s As String
For i = 1 To UBound(a)
If a(i) < b(1) Then
Call change(a(i), 1)
ElseIf a(i) > b(UBound(b)) Then
(
b(UBound(b)) = a(i)
Else
For j = 2 To UBound(b)
If a(i) > b(j - 1) And a(i) <= b(j) Then Call change(a(i), j)
Next j
End If
Next i
For i = 1 To UBound(b)
s = s & Str(b(i))
Next i
Text3 = s
End Sub
Private Sub change(n As Integer, k As Integer)
Dim i As Integer
ReDim Preserve b(UBound(b) + 1)
For i = UBound(b) To k + 1 Step -1
( )
Next I
( )
End Sub
27、履行下面的法式，单击Form1，则图片框中显现的第一行是 ，第二行 ，最初一行 。
Private Sub Form_Click()
Dim a(3, 3) As Integer, i As Integer, j As Integer
For i = 1 To 3
For j = 3 To 1 Step -1
If i >= j Then
a(i, j) = i - j
Else
a(i, j) = j - i
End If
Next j
Next i
For i = 1 To 3
For j = 3 To 1 Step -1
Picture1.Print a(i, j);
Next j
Picture1.Print
Next i
End Sub
28、履行下面的法式，单击窗体，在窗体上显现的变量A的值为 ，变量B的值为 。
Dim A As Integer
Private Sub Form_Click()
Dim B As Integer
B = 3: A = 4
B = Fun(Fun(A, B + 3), A) + B
Print A, B
End Sub
Private Function Fun(N As Integer, K As Integer)
N = N + A: K = N - K: Fun = N + K + A
End Function
29、履行下面法式，单击Form1，窗体上显现的第一行是 ，第二行是 ，第三行是 。
Private Sub Form_Click()
Dim I As Integer, n As Integer
For I = 5 To 15 Step 2
n = Fun1(I, I)
Print n
Next I
Print I
End Sub
Private Function Fun1(ByVal a As Integer, b As Integer)
b = a + b: a = b - a: Fun1 = a + b
End Function
30、履行下面法式，单击窗体，在InputBox中输出16384后，窗体上显现的第一行是 ，第二行是 ，第三行是 ，最初一行是 。
Private Function ps(x As Integer) As Integer
If x < 100 Then
ps = x Mod 10
Else
ps = ps(x \ 10) * 10 + x Mod 10
Print ps
End If
End Function
Private Sub Form_Click()
Dim x As Integer
x = Val(InputBox("请输出一个数："))
Print ps(x)
End Sub
31、履行下面法式，单击窗体，多行文本框Text1中显现的第一行是 ，第二行是 ，最初一行是 。
Private Sub Form_Click()
Dim st As String, n As Integer, ast As String
st = "12345"
n = Len(st)
Do
ast = change(st, n)
Text1 = Text1 & ast & vbCrLf
n = n - 1
Loop Until n <= 1
End Sub
Private Function change(st As String, n As Integer) As String
Static p As Integer
p = p + 1
change = Right(st, n - 1) & Left(st, p)
End Function
32、下面是一个操纵递推公式求函数f(x)的值的法式。设f(x)=a1+a2+…+an+…+(|x|<1)。此中a1= ，an=an-1· ，n=2,3，…。计较到第n项的相对值小于0.001(| an |≤0.001)为止。
Private Sub Command1_Click()
Dim x As Single, sum As Single, n As Integer, a0 As Single, an As Single
Dim
x = Text1
n = 1
a0 = x / 2
( )
Do
n = n - 1
an = ( )
If abx(an) <= 0.001 Then Exit Do
sum = sum + an
( )
Loop
Text2 = sum
End Sub
33、下面法式的功效是：将文本框中的用分号分开的数据(文本框中必须要稀有据)，别离赋值给二维数组B的各个元素;并将B数组各个元素分行显此刻图片框中。法式界面参见下图。
Option Base 1
Private Sub Command1_Click()
Dim B(3, 3) As Integer, I As Integer, Pos1 As Integer
Dim Pos2 As Integer, S As String, J As Integer
S = Text1
If S = "" Then
Text1 = "请输出数据!"
( )
End If
For I = 1 To 3
For J = 1 To 3
Pos1 = ( )
Pos2 = InStr(Pos1, S, ";")
If ( ) Then
B(I, J) = Val(Mid(S, Pos1, Pos2 - Pos1))
Else
B(I, J) = Val(Mid(S, Pos1))
End If
Picture1.Print Str(B(I, J));
Next J
( )
Next I
End Sub
34、下面法式的功效是：对N阶方阵A中与副对角线平行的各条斜线上的元素别离停止累加乞降并停止比拟，求出累加和的最大值Max。进程Count的功效是计较各条斜线上的元素和;计较分两步停止：先求副对角线和其上方斜线上的元素和，再求副对角线下方斜线上的元素和。法式界面图参见下页。(本法式设定N=5，数据从文件data.txt中读取)
Option Base 1
Private Sub Command1_Click()
Dim I As Integer, A(5, 5) As Integer, J As Integer
Dim N As Integer, Max As Integer
Open ( )
Do ( )
For I = 1 To 5
For J = 1 To 5
Input #5, A(I, J)
Text1 = Text1 & Str(A(I, J)) & " "
Next J
Text1 = ( )
Next I
Loop
Call Look_for(A, Max)
Text2 = Text2 & "最大和是：" & Max
End Sub
Private Sub Look_for ( )
Dim Ub As Integer, I As Integer, J As Integer, Sum As Integer
Ub = UBound(A)
M = A(1, 1)
For I = 1 To Ub
Sum = A(1, I)
For J = 2 To I
Sum = Sum + A(J, I + 1 - J)
Next J
Text2 = Text2 & Sum & vbCrLf
If M < Sum Then M = Sum
Next I
For I = 2 To Ub
Sum = A(I, Ub)
For J = I + 1 To Ub
Sum = Sum + A(J, Ub + I - J)
Next J
Text2 = Text2 & Sum & vbCrLf
( )
Next I
End Sub
35、下面的法式的功效是：考证一个命题，即对任何一个非零的正整数，若为偶数则除以2，若为奇数则乘3加1，获得一个新的正整数后，再根据下面的法例持续演算，颠末多少次演算后获得的成果一定为1。法式界面参见下图。
Private Sub Command1_Click()
Dim X As Integer
Cls
X = InputBox("请输出一个正整数：")
Print "考证" & X & "："
Call YZH(X)
End Sub
Private Sub YZH(N As Integer)
Dim I As Integer, S As String
If N Mod 2 = 0 Then
S = N & "/2"
N = N / 2
Print S & "=" & N
ElseIf ( ) Then
S = N & "*3+1"
N = N * 3 + 1
Print S & "=" & N
Else
( )
End If
( )
End Sub
【计较机二级根本常识强化操练】相干文章：
2016计较机二级《VF》强化操练11-30
计较机二级VF根本常识10-17
计较机二级测验java根本常识03-21
计较机二级C++测验强化操练题201712-04
2016计较机二级VF根本常识操练03-16
2017年计较机二级MSOffice测验强化操练题03-19
计较机二级大众根本常识稳固强化题12-10
计较机二级测验大众根本常识摹拟试题10-24
2017年计较机二级大众根本常识11-25