- 相关推荐
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浏览器地址栏中键入一个URLhttp://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