教材习题及答案

1、第1章习题一、填空题1计算机科学是主要研究（ ）、（ ）和（ ）的学科。计算理论、计算机，信息处理2在模型建立的前提下，利用计算机求解问题的核心工作就（ ）设计。算法3 算法是一组规则，它的主要特性是（ ）、（ ）、（ ）、（ ）和（ ）。有限性、可执行性、机械性、确定性，终止性或：有穷性，确定性，能行性，0个或多个输入输入，1个或多个输出4要使一个问题能够用计算机解决，其必要条件是（ ）。具有确定算法或：可以在确定、有限步骤内被解决5在计算机内，一切信息都是以（ ）形式表示的。二进制6 如果说图灵机A能够完全模拟图灵机B，则意味着（ ）。如果A和B能够相互模拟，则表示（ ）。在给定输入时，A

2、和B有相同的输出 / A和B计算等价7 图灵机中的纸带可以相当于计算机中的（ ）。 存储器8第一代计算机的主要部件是由（ ）和（ ）构成的。 电子管，继电器9未来全新的计算机技术主要指（ ），（ ）和（ ）。 光子计算机，生物计算机，量子计算机10未来电子计算机的发展方向是（ ）、（ ）、（ ）和（ ）。 巨型化，微型化，网络化，智能化11目前国际上广泛采用的西文字符编码是标准（ ），它是用（ ）位二进制码表示一个字符。 ASCII，712采用16位编码的一个汉字存储时要占用的字节数为（ ）。 213位图文件的存储格式为（ ），用数码像机拍摄的照片的文件格式一般为（ ）。 BMP，JPG14若

3、处理的信息包括文字、图片、声音和电影，则其信息量相对最小的是（ ）。 文字15模拟信号是指（ ）都连续变化的信号。 时间和幅值16计算机中对信息的组织和管理方式有两种，即（ ）和（ ）。文件，数据库17软件的测试方法包括（ ）和（ ）。 白盒测试，黑盒测试18普适计算的主要特点是（ ）。 无处不在的计算模式二、简答题：1简述计算机采用二进制的原因。答：主要原因是： 二进制只有0和1两个基本符号，任何两种对立的物理状态都可以归结为二进制表示。 算术运算规则简单，且适合逻辑运算。2. 图灵机模型主要由哪4个部分组成？答：一条无限长的纸带，一个读写头，一套控制规则，一个状态寄存器3图灵机在形式上可以

4、用哪七个元素描述？它们分别表示什么含义？答：图灵机（TM）可以描述为一个七元组：M=（Q，q0，B，F） （1.1）其中：Q：图灵机状态的有穷集合。：输入符号的有穷集合，不包含空白符。：带符号的完整集合；是的子集，有。：转移函数。（q，X）的参数是状态q和带符号X。(q，X)的值在有定义时是三元组(p，Y，D)，其中：p是下一状态，属于集合Q；Y是在当前扫描的单元中写下的符号，属于集合，代替原来单元里的符号；D是方向，非L即R，分别表示“向左”和“向右”，说明带头移动方向。4图灵机模型中的四个要素是什么？答：输入信息，输出信息、程序、内部状态5简述图灵机的工作过程。答：请参见教材6简述问题求解

5、的一般过程。答：利用计算机进行系统性问题求解的一般过程包括：需求分析与建模、系统设计，编码与调试、测试等。 详见教材。7简述基于计算机的信息处理的一般过程。答：基于计算机的信息处理包括：信息的采集、信息的表示和压缩、信息的存储和组织，信息的传输、信息的发布和检索。8简述高性能计算机涉及的主要关键技术。答：高性能计算机研究涉及软硬件技术、通信技术、纳米技术等多个学科，近年的研究主要集中于大规模并行处理体系结构、高性能算法、可重构计算、功耗等方面。第2章习题1计算机系统主要由（ 硬件系统 ）和（ 软件系统 ）组成。2说明以下计算机中的部件是属于主机系统、软件系统、还是属于外部设备。（1）CPU （

6、 主机系统 ）（2）内存条 （ 主机系统 ）（3）网卡 （ 主机系统 ）（4）键盘和鼠标 （ 外部设备 ）（5）显示器 （ 外部设备 ）（6）Windows操作系统 （ 软件系统 ）3控制芯片组是主板的核心部件，它由（ 北桥芯片 ）部分和（ 南桥芯片 ）部分组成。4软件系统包括（ 系统 ）软件和（ 应用 ）软件。5在微机中，信息的最小单位是（ ）。 位 或 bit6在计算机中，IB=（ 8 ）bit，1KB表示的二进制位数是（ 8192 ）位。7. 完成下列数制的转换（1）10100110B=（ 166 ）D=（ A6 ）H（2）0.11B =（ 0.75 ）D（3）253.25 =（ 111

7、11101.01 ）B =（ FD.4 ）H（4）1011011.101B=（ 133.5 ）O =（ 5B.A ）H=（ 91.625 ）D8完成下列二进制数的算术运算：（1）10011010+01101110 =（ 100001000 ）（2）11001100-100 =（ 11001000 ）（3）11001100×100 =（ 1100110000 ）（4）11001100÷1000 =（ 11001 ）9写出下列真值对应的原码、反码和补码：（1）X=-1110011B（2）X=-71D（3）X=+1001001B答：（1）X原=11110011B，X反=10001

8、100B，X补=10001101B（2）X原=11000111B，X反=10111000B，X补=10111001B （3）X原=01001001B，X反=01001001B，X补=01001001B 10写出符号数10110101B的反码和补码。答：10110101反= 11001010B 10110101补= 11001011B11. 已知X和Y的真值，求X+Y补=? X+Y=？ （1）X=-1110111B Y=+1011010B （2）X=56 Y=-21答：（1）X+Y补=11100011B ， X+Y=-0011101B（2）X+Y补=00100011B ， X+Y=+010001

9、1B12已知X=-1101001B，Y=-1010110B，求X-Y补=? X-Y=？答：X-Y补=11100011B ， X+Y=-0011101B13完成下列二进制数的逻辑运算：（1）1011011011010110 = （ 10010110 ）11010101 = （ 00101010 ）（2）01011001B10010110 = （ 11011111 ）（3）（4）11110111B Å 10001000 =（ 011111111 ）14若“与门”的3位输入信号分别为1、0、1，则该“与门”的输出信号状态为（ 0 ）。若将这3位信号连接到或门，那么或门的输出又是什么状态？（

10、 1 ）15在图2-10中，要使Y=0，A1A4的状态必须为： （a）: ( 任意一位为0 )； （b）: ( 0000 )；（c）: ( 1111 )； （d）: ( 任意一位为1 )。图2-10 题11图第3章习题：一、填空题1微型计算机主机系统主要包括（ CPU ）、（ 内存储器 ）、（ 总线 ）和（ I/O接口 ）等四个部分。2内存储器可分为（ RAM ）和（ ROM ）两类，其中，断电后所存信息就丢失的内存属于（RAM）。3假设某内存储器有个单元，则至少需要（10）bit二进制码来表示该内存单元的地址。4每个内存单元中能存放（ 8 ）bit二进制数。5若已知磁头数为10，柱面数为40

11、96，扇区数为63的硬盘容量为（ 1260 MB ）6在计算机系统中设计Cache的主要目的是（ 提高存取速度 ）。7微型机中的存储器系统包括（ Cache 存储系统 ）和（ 虚拟存储系统 ）两类。其中，（ Cache 存储系统 ）的设计目标是提高存储器系统的存取速度。8计算机各部件传输信息的公共通路称为总线，一次传输信息的位数称为总线的（ 宽度 ）。9PCIE属于（ 系统 ）总线标准，而SATA则属于（ 硬盘接口 ）标准。10CPU从外部设备输入或输出数据都需要通过（ 总线 ）。11 计算机硬件能够直接识别的指令是（ 机器指令 ）。12 冯·诺依曼计算机的基本原理是（ 存储程序原理

12、 ）。13冯·诺依曼计算机结构是以（ 运算器 ）为中心。14与冯·诺依曼结构相比，哈佛结构主要具有（ 使用两个独立的存储器模块 ）和（ 使用独立的两组总线 ）两大特点。15某程序段经编译后生成98000条机器指令，假设取指令、分析指令和执行指令所用的时间均为2ns。则使用并行流水线方式完成该程序段所需的时间为（ 196004 ）ns。16如果说图灵机A能够完全模拟图灵机B，则意味着（ A中元素完全对应B中元素 ）。如果A和B能够相互模拟，则表示（ A和B计算等价 ）。17操作系统的基本功能包括（ 进程管理 ）、（ 存储器管理 ）、（ 文件管理 ）、（ 设备管理 ）和用户接口

13、。18进程在其生命周期中的三种基本状态是（ 就绪 ）、（ 运行 ）和（ 等待 ）。19数据库中的文件类型属于（ 记录式 ）文件。20程序装入内存时，源程序中的符号地址最终要变换为内存的（ 物理 ）地址。二、简答题1试说明指令的执行步骤，哪些步骤是必须的？答：取指令，指令译码（或分析），指令执行2简述冯·诺依曼计算机的特点。答：详见教材3.2.2节3简述进程和程序的区别。答：进程就是执行起来的程序。程序是静态的，进程是动态的，是“活”着的程序。4说明为什么要引入进程。答：为解决现代计算机中多道程序共享系统资源的问题。5将程序装入内存必须经过哪些步骤？答：编译，链接，装入。第4章1以下所

14、列出的，哪些是计算机网络的功能设备？A主机B鼠标C电话机DFTP服务器E双绞线FUSB线G通信卫星H电话线I网络交换机J路由器K键盘LU盘M网络接口卡N光纤 O显示器P打印机Q多媒体音箱R调制解调器 S智能手机T平板电脑参考答案：A，D，E，F，G，H，I，J，M，N，R，S，T2现代计算机网络为什么要将报文分割成一个个分组来进行传输？说出你认为最重要的一个理由。参考答案：在出错时只重传出错的分组，提高了传输效率3如果广域网采用总线结构，你认为是否可行？说出你的理由。（提示：考虑广域网的传播延迟和介质争用）参考答案：不行。原因如下：（1）广域网的环境复杂、覆盖范围广，采用总线结构时，一旦总线出

15、现故障则整个网络都无法通信，而且故障诊断和故障隔离极为困难；（2）总线结构的网络传输效率和传输性能不高，无法满足广域网的要求；（3）信号在总线上的长距离传输衰减太大，难以实现广域网所需的大范围地域覆盖；（4）总线结构需要采用某种介质争用协议，而用于长距离总线的介质争用协议在原理上无法实现。4计算机网络按照其规模大小和延伸距离远近划分为 （ ）、（）和（）。参考答案：局域网，城域网，广域网5网上的站点通过点到点的链路与中心站点相连，具有这种拓扑结构的网络称为( )。A因特网B星形网C环形网D总线形网E广域网参考答案：B6计算机网络中常用的有线传输介质有( )。A双绞线、红外线、同轴电缆B同轴电缆

16、、激光、光纤C双绞线、同轴电缆、光纤D微波、双绞线、同轴电缆参考答案：C7采用全互连拓扑结构建设一个具有500个结点的广域网。假定网络中节点之间的平均距离为50公里，每公里的线路成本是1万元。建设此广域网的线路总成本是多少？通过这个结果你能得到什么结论？参考答案：总成本=(500*499)/2*50*104=62375000000元（623.75亿元），由此可见，全互连结构的广域网建设成本极高，所以广域网只能采用部分连接的网状拓扑结构。8如果你的家里构建了一个能够连接因特网的家庭局域网。请构思一个能够利用家庭局域网为你的家居生活带来方便的应用。简要说明你的构思大致的实现方法。参考答案：这样的例

17、子很多，下面给出一个网络婴儿监视系统的应用案例。需求：为保证婴儿的安全，父母要始终保证婴儿在自己的视线内。在不得不离开时，父母希望能通过手机或电脑也能观察到婴儿的活动。解决方案：为了能保证父母或监护人能始终看到婴儿的活动，可在婴儿房间或活动地点安装WiFi网络摄像头，然后就可以通过手机或者电脑上网在世界任何具有互联网的地方查看到家里婴儿的一举一动。系统包括监视端和用户终端两部分。其中，监视端采用WiFi网络摄像头，通过家庭局域网连接因特网。用户终端可以是智能手机、平板电脑、上网本、PC和笔记本等。9哪一种网络应用模式对客户端的要求最低？哪一种网络应用模式对所有主机的要求是等同的？参考答案：B/

18、S模式对客户端的要求最低。P2P模式对所有主机的要求是等同的。10因特网的体系结构是怎样的？画出因特网体系结构的层次图，并在图上标注每层的名字。参考答案：因特网采用了TCP/IP协议，因此其体系结构与TCP/IP体系结构是相同的。因特网体系结构的层次及每层的名字请参考4.1.3节中“4.TCP/IP协议及其体系结构”小节中的内容。11说出一个生活中使用分层思想的案例，并对其中的分层机制进行简要的叙述。参考答案：邮政系统，其分层结构如下图所示。其中发信人和收信人所在的层次类似于TCP/IP的应用层，本层负责通信双方对通信内容和表现形式的理解和表达；邮局所在的层次类似于TCP/IP的传输层和网际层

19、，本层负责信件的接收和投递；运输系统所在的层次类似于TCP/IP的网络接口层，本层负责信件的传送。12网络协议的关键要素包括语法、（）和（ ）。参考答案：语义，时序13.中国一家公司的经理要与德国一家公司的经理进行商务谈判。请将谈判过程的机制用层次结构表示，给每个层次用一个贴切的词汇命名，说明每个层次的功能和对等层之间的协议是什么，最后详细描述在这种机制下的商谈过程。已知条件如下：（1）谈判策略已经由双方的董事会各自确定，由双方的经理亲自掌握。（2）中方经理不懂德语，德方经理也不懂汉语，但双方都可以聘请翻译人员。（3）翻译人员只负责语言翻译，不涉及商务（4）双方的通信手段只能使用传真，只有秘书

20、会用传真。参考答案：谈判过程的层次结构如下 会话层组织和维护双方的谈判过程，协议是双方之间的商务谈判规则； 表示层提供双方交谈的语言转换服务，保证交谈的内容告诉对方后意义不变，协议是翻译人员之间的语言翻译规则； 通信层提供双方交谈内容的传输服务，协议是传真通信规则。在这种机制下的商谈过程为（假定中方经理先发言）：中方谈判经理根据商务谈判规则表述本方的意愿并告诉中方翻译人员，中方翻译人员将意愿内容翻译成双方认可的中间语言（如英语）提交给中方秘书，中方秘书根据传真通信规则将其发送给德方秘书，德方秘书将收到的用中间语言表达的意愿内容翻译成德语提交给德方经理。德方经理收到中方的意愿后，再根据商务谈判规

21、则表述本方的意愿并告诉德方翻译人员，德方翻译人员将意愿内容翻译成双方认可的中间语言提交给德方秘书，德方秘书根据传真通信规则将其发送给中方秘书，中方秘书将收到的用中间语言表达的意愿内容翻译成汉语提交给中方经理。双方按照以上过程交换本方意愿，直到谈判结束。14一个具有5层体系结构的网络，其每一层添加的报文头部长度为20字节。假定发送方的用户要传输一份500字节的报文给对方（不考虑报文分段），物理介质上传输的总位数是多少？网络的传输效率是多少？接收方用户收到的报文长度是多少？参考答案：（1）物理介质上传输的总位数为：500 + (5-1)*20*8 = 4640位（2）网络的传输效率为：500/58

22、0 = 86.2%（3）接收方用户收到的报文长度仍为500字节15TCP/IP参考模型共分为4层，分别是（ ）、（ ）、（ ）和（ ）。参考答案：应用层，传输层，互联网层（网际层），网络接口层16因特网上的每一台主机都有一个惟一的、可识别的主机地址，称做（ ）。A端口号 B物理地址 CIP地址 D域名 EMAC地址参考答案：C17IP地址是一个（ ）位的二进制数。参考答案：32（IPv4）、128（IPv6）18以下哪两个IP地址属于同一子网（子网掩码为）？A33 B C9 D150.20.215

23、.133参考答案：C和D19.一台主机要向B类网络（网络地址为）中发送广播报文，该报文的目的地址应该是什么？参考答案：5520.用户主机上打开了两个IE浏览器窗口，浏览同一个网站的不同网页。该网站的Web服务器如何知道将网页发送到哪个IE浏览器窗口？参考答案：一台主机打开两个IE浏览器窗口时，该主机使用的端口号是不一样的。Web服务器根据主机的IP地址和端口号就可以知道将网页发送到哪个IE浏览器窗口。21.DNS系统用于以下哪项任务？（ ）A将IP地址转换为MAC地址B将域名转换为MAC地址C将域名转换为IP地址D将IP地址转换为MAC地址参考答案：C2

24、2.一般情况下，通过域名访问一个网站需要访问几次根域名服务器就能查找到该域名服务器的IP地址？参考答案：一次23.因特网中的地址有域名、IP地址和MAC地址之分，为什么需要这么多地址？只要其中一种地址行不行？试说明理由。参考答案：需要各种地址的原因请参考教材4.2.1的相关内容。（1）域名地址是为了避免记忆非常难记的IP地址，所以域名地址不是必需的，但只使用域名地址是不行的。（2）只使用MAC地址也是不行的，原因是： MAC地址是一个平坦地址，不可路由。在路由操作中必须使用具有层次结构的可路由的IP地址； 网卡绑定到不同的宿主机时，网络必须重新配置。所以必须要有一个不随安装位置的改变而改变的M

25、AC地址来标识网络接口；（3）只使用IP地址也是不行的，原因是： IP地址只适用于TCP/IP网络，事实上，世界上还有很多采用不同协议的网络，如IPX/SPX、AppleTalk等，这些网络并不使用IP地址； 主机改变地点后，网络必须重新配置。所以必须要有IP地址来标识这台主机在哪个网络中。24.以太网是如何处理介质访问冲突的？参考答案：请参考教材4.2.1节。25.以太网中的主机在发送时为什么还要监听介质？参考答案：因为多台主机同时监听到介质空闲而同时开始发送数据仍会产生冲突。26.以太网中，主机知道介质空闲才会发送数据，为什么发送时还会发生冲突？参考答案：同25题。27.局域网设置网关的作

26、用是什么？参考答案：用来在局域网和因特网之间传输数据。28.什么情况下，网关才会将收到的IP分组发送到因特网上？参考答案：当IP分组中的目的地址为外网的IP地址时。29万维网WWW的三个组成部分是（ ）、（ ）和（ ）。参考答案：浏览器，Web服务器，HTTP协议30“统一资源定位器”的英文缩写是（ ）。参考答案：URL31试说明电子邮件系统主要的组成部分及每一部分的作用。参考答案：请参考教材4.2.2节32在发送邮件过程中要建立几个TCP连接？参考答案：2个。一个用于传送邮件到发信人的邮件服务器，另一个用于将发信人的邮件服务器中的邮件传送给收信人的邮件服务器。33以下说法哪个是正确的？A万维

27、网是一种广域网B万维网就是因特网C因特网是一种基于报文交换的网络D因特网是一种路由器网络参考答案：A、D34在一次FTP传输中要建立几个TCP连接，每个TCP连接的作用分别是什么？参考答案：2个。一个用于传输控制信息，另一个用于传输数据。35只要舍得投资安装网络安全设备，网络安全就能得到保证。这种说法对吗？请说明原因。参考答案：不正确。制定网络安全制度、网络安全培训和网络安全监督审计也是必须的。36下列攻击中，（ ）属于主动攻击。A. 无线截获 B. 搭线监听 C. 拒绝服务 D. 流量分析参考答案：C37数据加密技术一般有两种类型，分别是（ ）加密和（ ）加密。参考答案：对称式，非对称式38

28、假设密钥k=8，用替代密码将明文“XIANJIAOTONGUNIVERSITY”加密。参考答案：K=8时，替代密码的加密规则为：明文：ABCDEFGHIJKLMNOPQRSTUVWXYZ密文：STUVWXYZABCDEFGHIJKLMNOPQR根据以上规则，可得明文：XIANJIAOTONGUNIVERSITY密文：QASFBASGLGFYMFANWJKALQ39在网络购物过程中，用到了哪些安全技术？它们分别用于网络购物的哪个步骤？参考答案：（1）访问控制：用户账户名和口令（2）数据加密：对账户名、口令和关键信息加密（3）数字签名：保证信息的完整性和真实性（4）数字摘要：提高加密的效率和实时性

29、（5）数字证书：防止信息被第三方窃取，在交易出现争执时防止抵赖40在网上传输的数字证书中包括了报文明文、证书公钥和数字签名。但证书公钥并没有被加密，而是直接封装在证书中。不加密的原因是什么？如果对公钥加密再封装到证书中会出现什么问题？参考答案：数字证书使用了公钥密码加密法，其中公钥是公开的，私钥是秘密的。所以证书公钥不需要加密。如果将公钥加密，接收者将无法得知公钥，也就无法对信息解密。41防火墙有哪些种类？哪一种防火墙的安全性更好一些？为什么？参考答案：请参考教材4.3.3节。一般来说，基于网络体系结构的层次越高的防火墙安全性就越好，因为它能够更深入、更详细地分析报文流的内容。附加题：IP地址

30、00的默认子网掩码是（ ）。A55BCD参考答案：C第5章习题1 给出3个整数，求它们的和与均值。2 自来水公司采取按用水量阶梯式计价的办法，居民应交水费y(元)与月用水量x(吨)相关， 函数关系式如下。编写程序计算当x1=12时，x2=30时y的值。 0 (x<=0)y = f(x) = 4x/3 (0<x<=15) 2.5x-10.5 (x>15) 3 设x1=0133表示火车1点33分开出，x2=2209表示火车22点09分到站。x1和x2都是整数，

31、计算火车运行的时间y（运行时间假设小于24小时），同样用一个4位整数表示，前2位为小时数，后两位是分钟数。4 计算序列2/1+3/2+5/3+8/5+.的前n项之和。5 给定一个含有10个整数的数组，判断x是否在数组中。如是，将x在数组中的位置（下标）存于变量y中。否则y的值为-1。6 将第2题以过程调用的方式实现。过程如Function WaterFee (ByVal x As Deciaml) As Decimal7 将第5题以过程的方式实现，如：Function IsHere (ByVal A() As Integer, ByVal x As Integer) As Integer8 某

32、公司员工的工资计算方法如下，一周内工作时间40小时之内（含40小时），按正常工作时间计酬，超出40小时的工作时间部分，按正常工作时间报酬的1.5倍计酬。员工按进公司时间分为新职工和老职工，新职工的正常工资为30/小时，老职工的正常工资为50/小时。（进公司5年以上（含5年）的员工为老职工，5年以下的为新职工）， 请按该计酬方式计算员工的工资。要求输入员工进公司的一周工作时间、工作年数，输出其一周的工资，保留2位小数。9 输入年份、月份、日子，输出这一天是该年中的第几天。如输入3个整数，2009 3 2，则输出This is the 61th of 2009。10 一只猴子第一天摘下若干个桃子，

33、当即吃了一半，还不过瘾，又多吃了一个；第二天早上又将剩下的桃子吃掉一半，又多吃了一个。以后每天早上都吃了前一天剩下的一半零一个。到第n天（1<n<=10，从键盘输入）早上想再吃时，见只剩下一个桃子了。问第一天共摘了多少个桃子？11 总共50件商品，有两种构成，钥匙扣2元一个，漫画书4元一本，要卖出160元，应如何搭配（输出所有可能的配对情况）？12 打印输出所有“水仙花数”。所谓“水仙花数”是指一个三位的正整数，其各位数字立方和等于该数本身。例如：153是一个“水仙花数”，因为153=135333。13 编写过程IsSquare，判断某个自然数是否为平方数。是返回True，不是则返

34、回False。14 求数组中出现次数最多的数及出现次数。数组为整数，8个数。输出出现最多的数以及次数。15 一个自然数是素数，且它的各位数字位置经过任意对换后仍为素数，则称是绝对素数。例如13是绝对素数。输出所有2位数的绝对素数。第5章习题答案1-Module Module1 Sub Main() Console.WriteLine("请输入3个整数,以空格分隔并以回车结束") Dim s As String = Console.ReadLine() Dim sSplit() As String = s.Split(" ") Dim x, y, z As

35、 Integer x = Convert.ToInt32(sSplit(0) y = Convert.ToInt32(sSplit(1) z = Convert.ToInt32(sSplit(2) Console.WriteLine("sum:0", x + y + z) Console.WriteLine("Avg:0", x + y + z / 3) End SubEnd Module2Module Module1 Sub Main() Dim A() As Single = 12, 30 Dim y As Single For Each x In

36、A If x <= 0 Then y = 0 Else If x > 0 And x <= 15 Then y = 4 * x / 3 Else y = 2.5 * x - 10.5 End If End If Console.WriteLine("x=0,y=1", x, y) Next End SubEnd Module3Module Module1 Sub Main() Dim x1 As Integer = 133 Dim x2 As Integer = 2209 Dim x1h As Integer = x1 100 Dim x1m As Int

37、eger = x1 Mod 100 Dim x2h As Integer = x2 100 Dim x2m As Integer = x2 Mod 100 Dim yh, ym As Integer If x2m - x1m < 0 Then ym = x2m + 60 - x1m yh = x2h - x1h - 1 Else ym = x2m - x1m yh = x2h - x1h End If If yh < 0 Then yh = yh + 24 End If Dim y As Integer = yh * 100 + ym Console.WriteLine("

38、;y=0", y) End SubEnd Module4Module Module1 Sub Main() Const n As Integer = 30 Dim a As Integer = 2 Dim b As Integer = 1 Dim sum As Decimal = 0 For i As Integer = 1 To n sum = sum + a / b Dim t As Integer = a a = a + b b = t Next Console.WriteLine("Sum=0", sum) End SubEnd Module5Module

39、 Module1 Sub Main() Dim A() As Integer = 23, 34, 56, 78, 12, 2, 45, 6, 7, 90 Dim x As Integer = 56 Dim y As Integer = -1 For i As Integer = 0 To A.Length - 1 If x = A(i) Then y = i End If Next Console.WriteLine("y=0", y) End SubEnd Module6Module Module1 Sub Main() Dim A() As Single = 12, 3

40、0 For Each x In A Console.WriteLine("x=0,y=1", x, WaterFee(x) Next End Sub Function WaterFee(ByVal x As Decimal) As Decimal If x <= 0 Then Return 0 Else If x > 0 And x <= 15 Then Return 4 * x / 3 Else Return 2.5 * x - 10.5 End If End If End FunctionEnd Module7Module Module1 Sub Ma

41、in() Dim A() As Integer = 23, 34, 56, 78, 12, 2, 45, 6, 7, 90 Dim x As Integer = 56 Console.WriteLine("y=0", IsHere(A, x) End Sub Function IsHere(ByVal A() As Integer, ByVal x As Integer) As Integer For i As Integer = 0 To A.Length - 1 If x = A(i) Then Return i End If Next Return -1 End Fu

42、nctionEnd Module8Module Module1 Sub Main() Console.WriteLine("请输入工作时间，工作年数（整数）,以空格分隔并以回车结束") Dim s0 As String = Console.ReadLine() Dim sSplit() As String = s0.Split(" ") Dim t, y, sperh As Integer t = Convert.ToInt32(sSplit(0) y = Convert.ToInt32(sSplit(1) Dim s As Single If y &g

43、t;= 5 Then sperh = 50 Else sperh = 30 End If If t < 40 Then s = t * sperh Else s = 40 * sperh + (t - 40) * sperh * 1.5 End If Console.WriteLine("工资是0:N2", s) End SubEnd Module9Module Module1 Sub Main() Console.WriteLine("请输入年 月 日,以空格分隔并以回车结束") Dim s0 As String = Console.ReadLi

44、ne() Dim sSplit() As String = s0.Split(" ") Dim y, m, d As Integer y = Convert.ToInt32(sSplit(0) m = Convert.ToInt32(sSplit(1) d = Convert.ToInt32(sSplit(2) Dim s As Integer = 0 Dim mm As Integer For i As Integer = 1 To m - 1 If (i <= 7) And (i Mod 2 = 1) Or (i >= 8) And (i Mod 2 = 0

45、) Then mm = 31 Else If i = 2 And (y Mod 4 = 0) And (y Mod 100 <> 0) Or (y Mod 400 = 0) Then mm = 29 Else If i = 2 Then mm = 28 Else mm = 30 End If End If End If s = s + mm Next s = s + d Console.WriteLine("This is the 0th of 1", s, y) End SubEnd Module10Module Module1 Sub Main() Cons

46、ole.WriteLine("请输入n") Dim s As String = Console.ReadLine() Dim n As Integer = Convert.ToInt32(s) Dim y As Integer = 1 For i = 1 To n - 1 y = 2 * (y + 1) Next Console.WriteLine("桃子数是0", y) End SubEnd Module11Module Module1 Sub Main() For x As Integer = 0 To 50 For y As Integer = 0 To 50 - x If x * 2 + y * 4 = 160 Then Console.WriteLine("钥匙扣0个，漫画书1本", x, y) End If N