高电压技术习题和答案

2025-02-21 版权声明 我要投稿

高电压技术习题和答案(推荐4篇)

高电压技术习题和答案 篇1

习题:

4—1技术要求→图样标注:

1、正确标注:

2、其他正确标注和错误标注

4—2技术要求→图样标注:

1、正确标注:

2、其他正确标注和错误标注

4—3技术要求→图样标注: 1.正确标注

(2)

2.错误标注

4—4 技术要求→图样标注:

1、正确标注:

2.其他正确标注和错误标注

4—5 技术要求→图样标注:

1、正确标注:

2、其他正确标注和错误标注

4—6 技术要求→图样标注:

1、正确标注:

2.错误的标注

2、其他正确标注和错误标注

改错题:

(a)题图

8(a)题图改错后的标注

(a)题图标注

(b)题图

(b)题图改错

10(c)题图

(c)题图改错

11(d)题图

(d)题图改错(e)(f)题图:

(e)(f)题图改错

4—7公差原则的应用:

4-9形状误差评定:

见教材P98

平面度误差为:18.75-(-12.5)=

大学军事理论习题和答案 篇2

答:主要有四种:扩张型;自卫型;联盟型;中立型。我国国防属于自卫型国防。

2、海湾战争、阿富汗战争、科索沃战争、伊拉克战争分别爆发于哪一年?

答:海湾战争1991年;阿富汗战争2001年;科索沃战争1999年;伊拉克战争2003年。

3、解放战争时期,决定中国命运的三次战略决战(著名的三大战役)是哪三次战役?

答:辽沈战役、淮海战役和平津战役。

4、美国、俄罗斯现行军事战略的名称?

答:美国现行“先发制人”的军事战略;俄罗斯现行“现实遏制”军事战略。

5、中、俄之间现在是什么关系? 答:战略合作伙伴关系。

6、俄罗斯陆军编有几大军区?海军有几大舰队?

答:俄罗斯陆军编有莫斯科军区、伏尔加河沿岸—乌拉尔军区、列宁格勒军区、远东军区、西伯利亚军区和高加索军区。海军编有北方舰队、波罗的海舰队、太平洋舰队和黑海舰队。

7、俄罗斯将未来的战场,划分为哪几个战争区? 答:欧洲、中亚和东亚三个战争区。

8、被誉为“中国导弹之父”的是谁? 答:钱学森。

9、冷战时期,美国军事战略的重点是哪里? 答:欧洲。

10、哪一年中国国民党政府宣布废止《马关条约》,收复台湾、澎湖? 答:1941年。

11、全国人大通过《反分裂国家法》是哪年哪月? 答:2005年3月。

12、台湾省包括台湾岛及澎湖列岛,加上周围120余个小岛,总面积约多少万平方公里? 答:约3.6万平方公里。

13、美国武装力量的部署在全球划分为几个战区?

答:太平洋战区、欧洲战区、中央战区、南方战区、北方战区五个战区。

14、美军冷战后曾执行过的军事战略的名称?

答:1989-1992“地区防务战略”;1993-1996“灵活与选择参与战略”;1997-2001“营造、反应、准备战略”;2002-“先发制人战略”。

15、美国陆军、海军、空军的大体数量?

答:陆军约48.3万人,海军约37.3万人,空军约34.5万人。

16、美军第一次使用“宝石路”激光制导炸弹是在什么战争中? 答:越南战争。

17、通常情况下,航天器的飞行高度为多少千米以上? 答:通常在120千米以上。

18、二战中,德国使用的“V-1”型导弹和“V-2”型导弹分别是什么式导弹?

答:V-1是地地飞航式导弹;V-2是地地战术弹道式导弹。

19、在同一枚导弹上采用了自主制导+寻的制导,这枚导弹所采用的制导方式是什么? 答:复合制导。20、航天技术的定义?

答:航天技术是指将航天器送入太空,以探索、开发和利用太空及地球以外天体的综合性工程技术,又称空间技术。

21、第一宇宙速度是多少? 答:7.9千米/秒。

22、我国首次发射“东方红”1号试验卫星是哪一年? 答:1970年。

23、我国第一艘载人飞船“神舟五号”是哪一年发射的? 答:2003年。

24、美国武装力量包括哪几部分?

答:包括现役部队、后备役部队和在军内工作的文职人员三部分。

25、我国的国防教育方针是什么? 答:全民参与、长期坚持、讲求实效。

26、我国运用一箭多星技术,用一枚运载火箭将3颗物理探测卫星送入空间轨道在哪一年? 答:1981年。

27、电子对抗的主要内容?

答:无线电通信对抗、雷达对抗、光电(红外、激光)对抗、水声对抗等。

28、新概念武器包括哪些?

答:定向能武器、动能武器、非致命性武器和一些新概念弹药等。

29、中国人民解放军首次炮击金门在哪一年? 答:1958年。

30、世界上哪个国家第一次进行核爆炸实验并将核武器运用于战争? 答:美国。

31、核武器具有哪几种杀伤破坏因素?

答:第一类称瞬时杀伤破坏因素,包括光辐射、冲击波、早期核辐射、核电磁脉冲四种;第二类称延缓性杀伤破坏因素,主要是放射性沾染。

32、人类战争史上首次大规模使用化学武器是在什么时期? 答:第一次世界大战。

33、中国武装力量的构成?

答:由中国人民解放军、中国人民武装警察部队、民兵组成。

34、中国人民解放军现役部队由哪几部分组成? 答:由陆军、海军、空军和第二炮兵组成。

35、中国人民解放军诞生于哪年哪月哪日? 答:1927年8月1日。

36、三大兵法王国是哪三个? 答:中国、古希腊、古罗马。

37、孙武的战争观集中体现于什么思想上? 答:“重战、慎战、备战”的思想。

38、《战争论》和《孙子兵法》的作者分别是谁? 答:德国克劳塞维茨;春秋末期齐国孙武。

39、美国武装力量的特点?

答:文官控制军队;行政领导系统与作战指挥系统分立。40、陆军武器装备中的反坦克武器由什么组成?

答:反坦克火炮,包括加农炮、滑膛炮和无坐力炮;反坦克导弹。

41、科索沃战争的主要作战样式? 答:空中打击。

42、高技术战争经历了哪几个发展阶段? 答:萌芽阶段,初期发展阶段,形成阶段。

43、哪个部门领导并统一指挥全国的武装力量? 答:中华人民共和国中央军事委员会。

44、中国人民解放军第二炮兵的任务? 答:实施核反击的战略任务。

45、中国人民解放军空军成立的时间? 答:1949年11月11日。

46、哪次战争标志着高技术战争进入了成熟时期? 答:海湾战争。

47、中国分别有多少陆、海邻国? 答:15个陆地邻国,8个海上邻国。

48、《联合国海洋法公约》是哪年正式生效的? 答:1994年。

49、《联合国海洋法公约》规定,专属经济区外部界线至领海基线不应超过多少海里? 答:200海里。

50、中亚五国与我国接壤的国家是哪几个? 答:哈萨克斯坦,吉尔吉斯斯坦,塔吉克斯坦。

51、中国古代军事思想最早出现在什么时期? 答:奴隶社会时期。

61、在兵役登记方面,年满多少周岁的男性公民都必须按规定进行兵役登记?

答:18周岁(9月30日以前登记)。62、高技术战争可控性主要表现哪里?

答:能有效控制打击目标;能有效控制战争的规模;能有效控制战争的进程。

63、军事高技术的主要特征?

答:鲜明的政治目的性;尖锐的对抗性;高度的保密性;军民兼容性。64、自20世纪什么年代以来,大批高技术武器装备相继问世并大量应用于战争,使得战争的面貌发生了前所未有的变化? 答:80年代。

65、当前世界军事格局呈现什么态势? 答:一超多强。

66、美国空军的航空航天远征部队分为哪几种类型? 答:基本型,应急型,机动型。

67、中国人民武装警察部队组建于什么时间? 答:1982年6月19日。68、英阿马岛战争爆发时间? 答:1982年。

69、美军空袭利比亚是哪一年? 答:1986年。70、核武器的含义及分类?

答:是指利用原子核裂变或聚变反应,瞬时释放出巨大能量,造成大规模杀伤破坏效应的武器。可分为原子弹、氢弹、中子弹和特殊性能核武器。

71、化学武器的杀伤特点?

答:剧毒性,多样性,空间流动性,持续性。

72、中国古代国防经历多少年的历史? 答:4000多年的历史。73、在武装力量体制上,我国古代一般如何区分? 答:一般区分为中央军、地方军和边防军。

74、我国现行的国防法规从纵向结构可划分为几个等级? 答:五个等级。

75、著名的军事著作《制空权》和《总体战》的作者分别是谁? 答:意大利杜黑;德国鲁登道夫。

76、台湾当局的军事战略方针是什么? 答:有效吓阻,防卫固守。77、《反分裂国家法》颁布的重要意义是什么?

答:凸现了中国人民和国家的坚强意志:大陆和台湾同属一个中国;凸现了中国人民和国家的深厚诚意:尽最大努力实现和平统一;凸现了中国人民和国家的坚定决心:在万不得已时,采取非和平方式及其他必要措施,捍卫国家主权和领土完整。

78、与我国既是海上邻国,又是陆地邻国的国家是哪两个? 答:朝鲜,越南。

79、毛泽东军事思想的形成和发展经历了哪几个阶段?

答:产生时期(1921年7月-1935年1月);形成时期(1935年1月-1945年8月);丰富发展时期(1945年8月-)。夫为不争,是以天下莫能与之争 80、我军政治工作的三大原则是什么? 答:官兵一致,军民一致,瓦解敌军。81、灵活用兵的五项基本原则是什么?

答:因时用兵,因地用兵,因敌用兵,因己用兵,因势用兵。82、高技术与一般技术相比有哪七个特点?

答:高智力,高投资,高竞争,高风险,高效益,高渗透,高速度。83、精确制导武器包括哪两大类? 答:导弹,精确制导弹药。

84、世界上第一颗人造地球卫星是哪个国家发射的? 答:前苏联(1957年10月4日)。85、世界上发射的众多航天器,大约多少是为军事目的服务的? 答:70%。

86、化学毒剂按杀伤作用持续时间可分为哪两种? 答:暂时性毒剂,持久性毒剂。

87、化学毒剂按杀伤后果可分为哪两种? 答:致死性毒剂,非致死性毒剂。

88、最早研制使用生物武器的国家是哪一个? 答:德意志帝国。89、我国的陆、海边界分别有多长?

答:陆地边界约2.2万千米,海洋边界约1.8万千米。90、中印边界地区争议面积有多大? 答:12.55万平方公里。

一、1.军事科学的根本任务,是从客观实际出发,透过极其复杂的战争现象,探索战争的性质和规律。

2.周边安全环境,是指在一定时期内,国家周边地区对国家安全产生影响的外部及内部条件的总和。

3.一般来说,构成威胁有两大要素:实力和企图.4.人民防空的基本目的是,运用伪装、掩蔽、疏散等防护手段和采取抢救、抢修等措施,保护人民生命财产安全,减少国民经济损失,保存

战争潜力。

5.军事思想是关于战争、军队和国防的基本问题的理性认识。

二、1.军事科学:

亦称军事学,是研究战争的本质和规律,并应于指导战争的准备与实施的科学。2.人民防空宣传教育:

是国防教育、爱国主义教育的重要组成部分。专业教育有居民防空知识教育、中学生防空知识教育、人防专业队伍训练和人防干部业务培训

。教育的目的是增强公民防空意识和培养人防专业人才。3.国防:

就是国家的防务,是指为捍卫国家主权、领土完整,防备外来侵略和颠覆,所进行的军事及与军事有关的政治、外交、经济、文化等方面的建设和斗争。4.三股势力:

所谓三股势力是指暴力恐怖势力(如拉登就是恐怖主义组织头目)、民族分裂势力(如俄罗斯车臣非法武装组织)、宗教极端势力(如乌兹别克斯坦的伊斯兰运动组织)。

三、1.军事科学的主要功能:

(1)为国家制定军事战略提供理论依据。(2)为国家规划武装力量建设提供理论依据。(3)为国家发展武器技术装备进行科学论证。(4)为国家准备与实施战争提供理论依据。2.大学生参加军事训练,学习军事科学是法定的公民义务,责无旁贷。(2)并且有利于提高全民国防意识,振奋民族精神。(3)有利于加 强国防后备力量建设。(4)有利于培养德、智、体全面发展的“四有”新人。

3.中国地缘环境的基本情况:

(1)中国是边界线较长,相邻国家最多的国家之一。(2)中国周边地区人口众多,是世界上大国最集中的地区。(3)中国周边国家政治制度及经济发展水平差距大,民族、宗教矛盾交织,安全环境复杂。

(4)中国位于世界两大地缘战略区的交接处,既受其他大国关系的影响,又影响其他大国关系。4.人民防空教育的基本内容:

四、分别有1500平方公里和43万平方公里。一岛屿主权问题,二是海域划界问题。

vb习题集和答案 篇3

1.VB是一种面向对象的可视化程序设计语言,采取了(A)的编程机制。

(A)事件驱动(B)按过程顺序执行(C)从主程序开始执行(D)按模块顺序执行 2.以下不属于VB的工作模式的是(c)模式。

(A)运行

(B)设计

(C)编译

(D)中断

3.在VB集成环境创建VB应用程序时,除了工具箱窗口、窗体窗口、属性窗口外,必不可少的窗口是(C)。

(A)窗体布局窗口

(B)立即窗口

(C)代码窗口

(D)监视窗口 4.保存新建工程时,默认的路径是(B)。

(A)My Documents

(B)VB98

(C)

(D)Windows 5.将调试通过的VB工程经“文件”菜单的“生成.exe文件”编译成.exe后,将该可执行文件拿到其他机器上不能运行的主要原因是(A)。

(A)运行的机器上无VB系统

(B)缺少.frm窗体文件(C)该可执行文件有病毒

(D)以上原因都不对 6.VB6.0集成开发环境可以(D)。

(A)编辑、调试、运行程序,但不能生成可执行程序(B)编辑、调试、生成可执行程序,但不能运行程序(C)编辑、生成可执行程序、运行程序,但不能调试(D)编辑、调试、运行程序,也能生成可执行程序 7.VB6.0集成环境的主窗口中不包含(B)。

(A)菜单栏

(B)状态栏

(C)标题栏

(D)工具栏 8.在设计阶段,当双击窗体上的某个控件时,所打开的窗口是(C)。

(A)工程资源管理器窗口

(B)工具箱窗口(C)代码窗口

(D)属性窗口

9.下面四个选项中,不是VB6.0工具箱的标准控件的是(C)。

1(A)滚动条

(B)定时器

(C)多媒体

(D)框架

10.VB6.0的(C)版本,可供专业编程人员开发功能强大的组内分布式应用程序。

(A)初级版

(B)学习版

(C)企业版

(D)专业版 11.英文缩写“OOP”的含义是(A)。

(A)面向对象程序设计

(B)结构化程序设计语言(C)事件驱动的编程机制

(D)可视化程序设计 12.不能打开代码窗口的操作是(B)。

(A)双击窗体设计器的任意地方

(D)选择视图菜单中的“代码窗口”

(B)按下F4键

(C)单击工程资源管理器中的“查看代码”按钮 13.标准模块的扩展名是(C)。

(A).frm

(B).bmp

(C).bas

(D).vbp 14.窗体文件的扩展名是(A)。

(A).frm

(B).bmp

(C).bas

(D).vbp 15.工程文件的扩展名是(D)。

(A).frm

(B).vbg

(C).bas

(D).vbp 16.不能打开属性窗口的操作是(D)。

(A)单击工具栏上的“属性窗口”按钮(B)选择视图菜单中的“属性窗口”(C)按下F4键

(D)选择工程菜单中的“属性窗口” 17.不能打开对象窗口的操作是(A)。

(A)按下F2键

(B)单击工程资源管理器中的“查看对象”按钮(C)按下Shift+F7组合键

(D)选择视图菜单中的“对象窗口” 18.不能打开资源管理器窗口的是(B)。

(A)单击工具栏上的“工程资源管理器”按钮

(B)在窗体上单击右键,从弹出的快捷菜单中选择“工程资源管理器”选项(C)选择视图菜单中的“工程资源管理器”

(D)按Ctrl+R 19.下面四个选项中,不是工程资源管理器管理的文件是(B)。

2(A)窗体文件

(B)图形文件

(C)标准模块文件

(D)工程文件 20.与传统的程序设计语言相比,vb6最突出的特点是(B)。

(A)结构化程序设计

(B)事件驱动编程机制(C)集成开发环境

(D)程序调试技术 21.VB窗体设计器的主要功能是(A)。

(A)建立用户界面

(B)编写员程序代码

(C)画图

(D)显示文字

22.用标准工具栏中的工具按钮不能执行的操作是(D)。

(A)添加窗体

(B)添加工程

(C)打开工程

(D)添加模块 23.下属选项中,属于VB的程序设计方法是(B)。

(A)面向对象、顺序驱动

(B)面向对象,事件驱动(C)面向过程,事件驱动

(D)面向过程,顺序驱动

二、填空题

1.当进入VB集成环境,发现没有显示“工具箱”窗口时,应选择(视图)菜单的(工具箱)选项,使“工具箱”窗口显示。

2.VB6.0集成环境的主窗口由标题栏、菜单栏和(工具栏)组成。3.VB6.0集成环境有三种工作状态,工作状态显示在(标题栏)。4.VB6.0提供了3种版本,这三种版本是(学习版,专业版,企业版)。

5.VB6.0有设计、中断和运行三种工作状态,立即窗口不能在(运行)状态下使用。

三、简答题

1.运行VB6.0需要什么样的最小硬件环境?只要能运行Windows9x或Windows NT并具有140MB以上的硬盘空间即可。

2.当正常安装VB6.0后,误把Windows子目录删除。当重新安装Windows后,是否要再安装VB6.0?要再安装Visual Basic6.0。因为安装VB6.0时,有些VB程序系统自动安装在Windows98目录下,所以一旦删除Windows98子目录,就必须再安装VB6.0。

3.VB6.0有学习版、专业版和企业版,怎样知道所安装的是哪个版本?在启动VB6.0的启动封面上,能显示对应的版本。4.VB6.0有多种类型的窗口,若想在设计时看到代码窗口,怎样操作?

法:

(1)热键F7

(2)―视图‖—> ―代码窗口‖

(3)在窗体窗口中双击任一控件或窗体本身

(4)从工程窗口中选择窗体或模块后单击―查看代码‖按钮。

5.如何使各窗口显示或不显示?单击要操作窗口的“关闭”按钮时,则不显示该窗口;选择“视图”菜单的对应的窗口命令显示所需的窗口。6.叙述VB6.0的特点。

VB的特点:

(1)具有面向对象的可视化设计工具;(2)事件驱动的编程机制;(3)提供了易学易用的应用程序集成开发环境;(4)结构化的程序设计语言;(5)支持多种数据库系统的访问;(6)Active技术;(7)VB 6.0在开发环境上、网络功能等的增强;(8)完备的help联机帮助功能。第二章一.选择题

1.假定已在窗体上画了多个控件,并有一个控件是活动的,为了在属性窗口中设置窗体的属性,预先执行的操作是(A)。

(A)单击窗体上没有控件的地方

(B)单击任一个控件(C)不执行任何操作

(D)双击窗体的标题栏

2.在VB中最基本的对象是(C),它是应用程序的基石,是其它控件的容器。

(A)文本框

(B)命令按钮(C)窗体

(D)标签

3.有程序代码如下:text1.text=“visual basic” 则:text1、text和“visual basic”分别代表(C)。

(A)对象,值,属性

(B)对象,方法,属性

(C)对象,属性,值

(D)属性,对象,值

4.VB是一种面向对象的程序设计语言,(A)不是面向对象系统所包含的三要素。

(A)变量

(B)事件

(C)属性

(D)方法

5.VB的一个应用程序至少包括一个(B)文件,该文件存储窗体上使用的所有控件对象和有关的()、对象相应的()过程和()代码。

(A)模块、方法、事件、程序

(B)窗体、属性、事件、程序

(C)窗体、程序、属性、事件

(D)窗体、属性、事件、方法

6.在VB6.0环境已有应用程序的情况下,要重新建立一个工程的操作是(C)。

(A)单击工具栏上的“添加工程”按钮

(B)在工程资源管理器窗口上单击右键,在弹出的快捷菜单中选择“新建工程”选项(C)选择“文件”菜单中的“新建工程”

(D)选择“视图”菜单中的“新建工程”

7.为了把窗体上的某个控件变为活动,应执行的操作是(B)。

(A)单击窗体的边框

(B)单击该控件的内部(C)双击该控件

(D)双击窗体 8.确定一个控件在窗体上的位置的属性是(C)。

(A)Width和Height

(B)Width或Height(C)Top和Left

(D)Top或Left 9.确定一个窗体或控件的大小的属性是(B)。

(A)Width和Height

(B)Width或Height

(C)Top和Left

(D)Top或Left 10.对于窗体,下面(D)属性可以在程序运行时进行设置。

(A)MaxButton

(B)BorderStyle

(C)Name

(D)Left 11.要使Print方法在Form_Load事件中起作用,要对窗体的(C)属性进行设置。

5(A)BackColor

(B)BorderStyle

(C)AutoRedraw

(D)Caption 12.要使标签控件显示时不覆盖其背景内容,要对(D)属性进行设置。

(A)BackColor

(B)BorderStyle

(C)ForeColor

(D)BackStyle 13.要使对象看得见而不可操作,要对(A)属性设置。

(A)Enabled

(B)Visible

(C)BackColor

(D)Caption 14.文本框没有(D)属性。

(A)Enabled

(B)Visible

(C)BackColor

(D)Caption 15.不论任何控件,共同具有的是(B)属性。

(A)Text

(B)Name

(C)ForeColor

(D)Caption 16.要使某控件在运行时不可见,应对(B)属性进行设置。

(A)Enabled

(B)Visible

(C)BackColor

(D)Caption 17.要使窗体在运行时不可改变窗体的大小和没有最大化、最小化按钮,只要对下列(B)属性设置就有效。

(A)MaxButton

(B)BorderStyle

(C)Width

(D)MinButton 18.当运行程序时,系统自动执行启动窗体的(A)事件过程。

(A)Load

(B)Click

(C)Unload

(D)GotFocus 19.当文本框的ScrollBars属性设置了非零值,却没有效果,原因是(B)。

(A)文本框中没有内容

(B)文本框的MultiLine属性为False(C)文本框的MultiLine属性为True

(D)文本框的Locked属性为True。

20.下面是文本框的四个属性,在程序运行时,(B)属性能使鼠标单击文本框而不触发文本框的Click事件。

(A)Visible

(B)Enabled

(C)Locked

(D)MultiLine 21.下面四个选项都是VB中对象的属性名称,(A)不能用程序代码设置属性值。

(A)Name

(B)Enabled

(C)BackColor

(D)Picture 22.以下选项中“=”的左边是用户界面上的对象名,不正确的赋值语句是(A)。

(A)Form1=‖sdfs‖

(B)Command1=True 6(C)Text1=‖abcd‖

(D)Label1=‖等级考试‖ 23.以下叙述中正确的是(A)。

(A)窗体的Name属性指定窗体的名称,用来标识一个窗体(B)窗体的Name属性的值是显示在窗体标题栏中的文本(C)可以在运行期间改变对象的Name属性的值(D)对象的Name属性值可以为空

24.以下四个选项都是VB中对象的属性名称,在界面设计时,(D)属性值的设置需要利用对话框。

(A)Name

(B)Enabled

(C)WindowState

(D)Picture 25.以下选项中,框架的控件值是(A)。

(A)Caption

(B)Value

(C)Interval

(D)Enabled 26..以下选项中,不是布尔类型的属性是(B)。

(A)单选按钮的Value

(B)复选框的Value

(C)命令按钮的Value

(D)Enabled 27.要连续在窗体的不同位置上画出多个相同类型的控件,在用鼠标点击工具箱中控件之前,应该做的操作是(C)。

(A)按下Alt键

(B)按下Shift

(C)按下Ctrl键

(D)按下F4键 28.以下选项中,(C)是窗体的特有属性。

(A)Caption

(B)Visible

(C)WindowState

(D)Left 29.改变文本框的滚动条配备,需要先设置(D)属性。

(A)Visible

(B)Enabled

(C)Locked

(D)MultiLine 30.下面四个选项,(D)不是窗体的属性。

(A)MinButton

(B)MaxButton

(C)Caption

(D)ReSize 31.下面四个选项,(A)是窗体的特有事件。

(A)Load

(B)Locked

(C)Click

(D)KeyPress 32.假定窗体的名称(Name属性)为Form1,则把窗体的标题设置为“VBTest”的语句为(B)。

(A)Form1=‖VB Test‖

(B)Caption=‖VB Test‖

7(C)Form1.Text=‖VB Test‖

(D)Form1.Name=‖VB Test‖ 33.为了保存一个VB应用程序,应当(D)。

(A)只保存窗体文件

(B)分别保存工程文件和标准模块文件

(C)只保存工程文件(D)分别保存工程文件、窗体文件和标准模块文件 34.为了装入一个VB应用程序,应当(C)。

(A)只装入窗体文件

(B)分别装入工程文件和标准模块文件

(C)只装入工程文件(D)分别装入工程文件、窗体文件和标准模块文件 35.命令按钮不能响应的事件是(A)。

(A)DblClick

(B)Click

(C)MouseDown

(D)MouseUp 36.决定窗体标题栏上显示内容的属性是(C)。

(A)Text

(B)Name

(C)Caption

(D)BackStyle 37.当窗体最小化时缩小为一个图标,设置这个图标的属性是(B)。

(A)MouseIcon

(B)Icon

(C)Picture

(D)MousePointer 38.为了仅取消窗体的最大化功能,需要把它的(D)属性设置为False。

(A)ControlBox

(B)MinButton

(C)Enabled

(D)MaxButton 39.决定窗体有无控制菜单的属性是(A)。

(A)ControlBox

(B)MinButton

(C)Enabled

(D)MaxButton 40.为了使文本框同时具有水平和垂直滚动条,应先把MultiLine属性设置为True,然后再把ScrollBars属性设置为(D)。

(A)0

(B)1

(C)2

(D)3 41.使文本框获得焦点的方法是(C)。

(A)Change

(B)GotFocus

(C)SetFocus

(D)LostFocus 42.为了使标签覆盖背景,应把BackStyle属性设置为(A)。

(A)0

(B)1

(C)True

(D)False 43.为了使标签的内容居中显示,应把AlignMent属性设置为(C)。

(A)0

(B)1

(C)2

(D)3 8 44.决定标签内显示内容的属性是(C)。

(A)Text

(B)Name

(C)Caption

(D)Enabled 45.为了在按下回车键时执行某个命令按钮的事件过程,需要把该命令按钮的一个属性设置为True,这个属性是(B)。

(A)Value

(B)Default

(C)Cancel

(D)Enabled 46.为了在按下ESC键时执行某个命令按钮的事件过程,需要把该命令按钮的一个属性设置为True,这个属性是(C)。

(A)Value

(B)Default

(C)Cancel

(D)Enabled 47.下面四个选项中,不是文本框属性的是(D)。

(A)TabIndex

(B)PassWordChar

(C)ScrollBars

(D)Value 48.以下能够触发文本框Change事件的操作是(D)。

(A)文本框失去焦点

(B)文本框获得焦点

(C)设置文本框的焦点

(D)改变文本框的内容 49.文本框的默认属性是(A)。

(A)Text

(B)Caption

(C)Top

(D)Name 50.标签的默认属性是(B)。

(A)Text

(B)Caption

(C)Top

(D)Name 51.若要设置标签的背景颜色,使用的属性是(B)。

(A)Color

(B)BackColor

(C)ForeColor

(D)FontBold 52.若要设置文本框中所显示的文本颜色,使用的属性是(C)。

(A)FillColor

(B)BackColor

(C)ForeColor

(D)BackStyle 53.命令按钮能响应的事件是(B)。

(A)DblClick

(B)Click

(C)Scroll

(D)Load 54.下面选项中,(C)不是文本框的属性。

(A)MultiLine

(B)MaxLength

(C)TextBox

(D)Loaded

二、填空题

1.程序运行时,为了让命令按钮不可操作,并且呈现灰色,必须将其(Enabled)属性设置为False。

2.改变文本框的滚动条配备,需先设置MultiLine属性,然后设置(ScrollBars)属性。3.文本框能返回ASCII码值的事件是(KeyPress)。

4.当程序运行后,用鼠标双击对象时主要触发的事件是(DblClick)。5.文本框的控件值是(Text,),命令按钮的控件值是(Value)。6.在VB中,由系统事先设定的,能被对象识别和响应的动作称为(事件)。7.一个控件在窗体上的位置由()属性决定。

8.对象属性设置主要有两种方法,分别是(在属性窗口直接设置)和(在代码窗口中设置)。9.在程序代码中设置属性值的一般格式为(.[对象.]属性=属性值)。

10.当窗体的大小改变时,触发(ReSize)事件。Left)和(Top)属性决定,其大小由(Width)和(Height

11.为了选择多个控件,可以按住(Ctrl)键,然后单击每个控件。

12.在用VB开发应用程序时,一般需要(界面设计)、(属性设置)、(编写代码)和(保存和运行程序)四步。

13.控件和窗体的Name属性只能通过(属性窗口)设置,不能在(运行)期间设置。14.在VB中,窗体文件和工程文件的扩展名分别是(frm)和(vbp)。15.为了把一个VB应用程序装入内存,只要装入(工程)文件即可。

16.VB应用程序通常由3类模块组成,分别是(窗体模块)、(标准模块)(类模块)。

17.在刚建立工程时,使窗体上的所有控件具有相同的字体格式,应对(窗体)的(Font系列)属性进行设置。

18.当对文本框的ScrollBars属性设置为2(有垂直滚动条),但没有垂直滚动条显示时,是没有把(MultiLine)属性设置为True的原因。

19.在代码窗口对窗体的BoerderStyle、MaxButton属性进行了设置,但运行后没有效果,原因是这些属性(只能在属性窗口设置)。

20.当对命令按钮的Picture属性装入.bmp图形文件后,此按钮上并没有显示所设置的图形,原因是没有对(Style)属性设置为1(Graphical)。

21.要对文本框中已有的内容进行编辑,按下键盘上的按键,就是不起作用,原因是设置(Locked)的属性为True。

22.在窗体上已建立多个控件如Text1、Label1、Command1,若要使程序一运行焦点就定位在Command1控件上,应把Command1控件的(TabIndex)属性的值设置为0。

23.为了使标签能自动调整大小以显示全部文本内容,应把标签的(AutoSize)属性 设置为True。

24.假定有一个文本框,其名称为Text1,为了使该文本框具有焦点,应执行的语句是(Text1.SetFocus)。25.为了使一个标签透明且没有边框,必须把它的BorderStyle属性设置为(0),并把BackStyle属性设置为(0)。

三、简答题

1.叙述建立一个完整的应用程序的过程。

2.当建立好一个简单的应用程序后,假定该工程仅有一个窗体模块。问该工程涉及到多少文件要保存?若要保存该工程中的所有文件,正确的操作应先保存什么文件?再保存什么文件?若不这样做,系统会出现什么信息?

3.假定在Windows环境中,要保存工程文件时,若不改变目录名,则系统默认的目录是什么? 4.为了使一个控件在运行时不可见,应对该控件的什么属性进行何种设置? 5.为了防止用户编辑文本框内的内容,应对该控件的什么属性进行何种设置?

6.为了使标签框的大小由Caption属性的值进行扩展或缩小,应对该控件的什么属性进行何种设置? 7.VB6.0提供的大量图形文件在那个目录下?若您的计算机上没有安装,则怎样安装这些图形? 8.在VB6.0中,命令按钮的显示形式可以有标准的或图形的两种选择,这通过什么属性来设置?若选择图形的,则通过什么属性来装入图形?若已在规定的属性里装入了某个图形文件,但该命令按钮还是不能显示图形,而显示的是Caption属性设置的文字,怎样改正? 9.标签和文本框的区别是什么?

10.当窗体上有3个文本框和一个命令按钮,若程序运行时,要求焦点定位在私邸三个文本框(Text3)处,应对何控件的什么属性进行何种设置?

11.若要对窗体上的3个文本框输入数据,各控件焦点的移动可通过Tab键(系统本身具有的),也可以通过 11 回车键,则要对文本框的什么事件进行编程?

12.当某文本框输入数据后(按了回车键),进行判断认为数据输入错,怎样删除原来数据?怎样使焦点回到该文本框重新输入?

13.当运行程序前,对某些控件设置属性值,除了在窗体中直接设置外,还可以通过代码设置,这些代码一般放在什么事件中?例如,程序要将命令按钮定位在窗体的中央,请写出事件过程。1.设计界面、设置属性、编写代码、保存和运行程序

2.涉及到2个文件需要保存。先保存窗体文件,再保存工程文件。若先保存工程文件,系统会先弹出“文件另存为”对话框,要求把窗体文件先保存。

3.系统默认的目录是VB98。

4.将该控件的Visible属性设置为False。5.将文本框的Locked属性设置为True。6.将标签的AutoSize属性设置为True。

7.大量的图形文件存放在Graphics目录下。直接在带有VB6.0系统的光盘上找到Graphics子目录,将其复制到硬盘的VB目录下。

8.通过Style属性设置图形的或标准的。通过Picture属性来装入图形。不能显示图形是因为Style的值设置了Standard,只要改为Graphical,一般将Caption的值设置为空。

9.标签和文本框的共同点都可以在窗体上显示文字。不同点在于:标签的内容在Caption属性内,在窗体上只能显示文字,不能编辑;文本框内容在Text属性内,在窗体上可直接对内容进行编辑。

10.应将Text3控件的TabIndex属性设置为0。

11.对文本框的KeyPress事件编成。例如,当焦点在Text1时,输入数据按Enter键后,让焦点跳到Text2文本框,程序段如下:

Private Sub Text1_KeyPress(KeyAscii as Integer)

If KeyAscii=13 then

Text2.SetFocus

End If

End Sub 12 12.假定文本框的名称为Text1,则事件过程如下:

Private Sub Text1_KeyPress(KeyAscii as Integer)

If KeyAscii=13 then

If 出错条件判断成立 then

Text1=‖‖

Text1.SetFocus

End If

End If

End Sub 13.这些代码一般放在窗体的Load事件过程中。将窗体定位在屏幕的中央,只能通过属性窗口对Form1窗口的StartUpPosition属性设置为2(表示屏幕的中心),该属性不能在运行时设置。

要将按钮定位在窗体的中央,事件过程如下:

Private Sub Form_Load()

Command1.Left=Form1.ScaleWidth2-command1.Width2

Command1.Top=Form1.ScaleHeight2-command1.Height2

End Sub 第三章

一、选择题

1.在一行上写多条语句时,每个语句之间用(B)符号分隔。

(A),(B):

(C)、(D);

2.一个语句要在下一行继续写,用(C)符号作为续行符。

(A)+

(B)-

(C)_

(D)„ 3.下面(A)是合法的变量名。

(A)X_yz

(B)123abc

(C)integer

(D)X-Y 4.下面(D)是不合法的整常数。

(A)100

(B)&O100

(C)&H100

(D)%100 5.下面(B)是合法的字符常数。

13(A)ABC$

(B)‖ABC‖

(C)’ABC’

(D)ABC 6.下面(A)是合法的单精度型变量。

(A)num!

(B)sum%

(C)xinte$

(D)mm# 7.下面(D)是不合法的单精度常数。

(A)100!

(B)100.0

(C)1E+2

(D)100.0D+2 8.表达式16/4-2^5*8/4 mod 52的值为(B)。

(A)14

(B)4

(C)20

(D)2 9.数学关系3≤x<10表示成正确的VB表达式为*(B)。

(A)3<=x<10

(B)3<=x and x<10

(C)x>=3 or x<10

(D)3<=x and <10 10./、、Mod、*四个算术运算符中,优先级别最低的是(C)。

(A)

(B)/

(C)Mod

(D)* 11.与数学表达式ab对应,VB的不正确表达式是(D)。3cd(A)a*b/(3*c*d)

(B)a/3*b/c/d

(C)a*b/3/c/d

(D)a*b/3*c*d 12.Rnd函数不可能为下列(B)值。

(A)0

(B)1

(C)0.1234

(D)0.0005 13.Int(198.555*100+0.5)/100的值是(C)。

(A)198

(B)199.6

(C)198.56

(D)200 14.已知A$=‖12345678‖,则表达式Val(Left$(A$,4)+Mid$(A$,4,2))的值为(B)。

(A)123456

(B)123445

(C)1279

(D)‖123445‖ 15.Print DateAdd(―m‖,1,#1/30/2000#)语句显示的结果是(A)。

(A)2000-2-29

(B)2000-2-28

(C)2000-2-30

(D)2000-3-1 16.表达式DateDiff(‖d‖,#12/30/1999#,#1/13/2000#)的结果是(C)。

(A)1

(B)11

(C)14

(D)99 17.表达式Len(‖123程序设计ABC‖)的值是(A)。

(A)10

(B)14

(C)20

(D)17 18.表达式LenB(‖123程序设计ABC‖)的值是(C)。

(A)10

(B)14

(C)20

(D)17 19.设a=1,b=2,c=3,d=4,下面逻辑表达式的值为真的是(C)。

14(A)Sqr(d)>b

(B)Not(c-b)

(C)d>c and b>a

(D)Abs(a-d)

(A)/

(B)

(C)^

(D)Mod 21.设a=‖visual basic‖,下面使b=‖basic‖的语句是(B)。

(A)b=Left(a,8,12)

(B)b=Mid(a,8,5)

(C)b=Right(a,5,5)

(D)b=Left(a,8,5)22.从键盘上输入两个字符串,分别保存在变量str1、str2中。确定第二个字符串在第一个字符串中起始位置的函数是(D)。

(A)Left

(B)Mid

(C)String

(D)Instr 23.设a=2,b=3,c=4,d=5,表达式a>b and c<=d or 2*a>c的值是(B)。

(A)True

(B)False

(C)-1

(D)0 24.设a=2,b=3,c=4,d=5,表达式3>2*b or a=c and b<>c or c>d的值是(B)。

(A)True

(B)False

(C)-1

(D)0 25.设a=2,b=3,c=4,d=5,表达式not a<=c or 4*c=b^2 and b<>a+c的值是(B)。

(A)True

(B)False

(C)-1

(D)0 26.假定Picture1和Text1分别为图片框和文本框的名称,下列不正确的语句是(C)。

(A)Print 25

(B)Picture1.Print 25

(C)Text1.Print 25

(D)Debug.Print 25 27.语句Print 5*55/5的输出结果是(B)。

(A)5

(B)25

(C)0

(D)1 28.语句Print Sgn(-6^2)+Abs(-6^2)+Int(-6^2)的输出结果是(C)。

(A)-36

(B)1

(C)-1

(D)-72 29.表达式4+56*7/8 Mod 9的值为(B)。

(A)4

(B)5

(C)6

(D)7 30.设有整数x,如果Sgn(x)的值为-1,则x的值是(B)。

(A)整数

(B)大于0的整数

(C)等于0的整数

(D)小于0的整数 31.可以同时删除字符串前导和尾部空白的函数是(C)。

(A)Ltrim

(B)Rtrim

(C)Trim

(D)Mid 32.m,n是整数,且n>m,在下面的选项中,能将x赋值为一个m~n之间(含m,n)的任意数的语句是(A)。

(A)x=Int(Rnd*(n-m+1))+m

(B)x= Int(Rnd*n)+m(C)x=Int(Rnd*m)+n

(D)x=Int(Rnd*(n-m))+m 33.VB6.0表达式‖123‖+Abs(1)的值是(C)。

(A)123-1

(B)1231

(C)124

(D)错误表达式 34.VB6.0表达式‖12a‖+Abs(1)的值是(D)。

(A)12b

(B)12a1

(C)121

(D)错误表达式 35.当用Const a%=19.8 定义后,a的值是(C)。

(A)19

(B)19.8

(C)20

(D)0

二、填空题

1.在VB中,1234、123456&、1.2346E+5、1.2346D+5四个常数分别表示(整型,长整型,单精度、双精度)类型。

2.整型变量x中存放了一个两位数,要将两位数交换位置,例如,13变成31,实现的表达式是((x mod 10)*10+x10)。3.数学表达式ab的VB算术表达式为((a+b)/(1/(c+5)-c*d/2))。11cdc524.表示x是5的倍数或是9的倍数的逻辑表达式为(x mod 5=0 or x mod 9=0)。

5.已知a=3.5,b=5.0,c=2.5,d=True,则表达式:a>=0 and a+c>b+3 or not d的值是(false)。6.Int(-3.5)、Int(3.5)、Fix(-3.5)、Fix(3.5)、Round(-3.5)、Round(3.5)的值分别是(-4,3,-3,3,-4,4)。7.表达式Ucase(Mid(―abcdefgh‖,3,4))的值是(CDEF)。

8.在直角坐标系中,(x,y)是坐标系中任意点的位置,用x与y表示在第一象限或第三象限的表达式是(x*y>0)。

9.要以××××年××月××日形式显示当前机器内日期的Format函数表达式为(format(date,‖yyyy-mm-dd‖))。

10.计算已近入21世纪有多少天的函数表达式是(datediff(―d‖,date,‖2000-1-1‖))。

11.计算离你毕业(假定毕业时间为2006年6月28日)还有多少个星期的函数表达式是(datediff(―w‖,date,‖2006-6-28‖))。

12.表示s字符变量是字母字符(大小写字母不区分)的逻辑表达式为(ucase(s)>=‖A‖ and ucase(s)<=‖Z‖)。13.VB6.0表达式Len(Left(“abcd‖,3)+Right(‖商丘师范学院‖,4))的值是()。14.数学式2cos2y+e2x的VB6.0表达式是(2*cos(2*y)+exp(2*x))。15.产生一个在[-50,-5]范围内的随机负整数(包含-50和-5)的表达式是(–int(rnd*46+5))。16.设y是整型变量,判断y为奇数的表达式是(y mod 2<>0)。17.VB6.0表达式33*3 mod 3的值为(0)。

18.表达式Fix(-11.85)+Int(-23.01)的值是(-35)。

19.在VB中,字符串常量要用(―‖)括起来,日期/时间型常量要用(##)括起来。

20.在VB6.0中,字符采用(Unicode)编码方式。在这种编码方式中,一个中文字符或一个西文字符均视为(一个)字符,每个字符用(2)个字节编码。

21.语句Print Int((12345.6789*100+0.5)/100)的输出结果是(12345)22.语句Print ―25+32=‖;25+32的输出结果是(25+32=57)。

23.若a=4,b=9,则语句Print a>b mod 4 的输出结果是(true)。24.语句Print ―123‖+‖456‖+3的输出结果是(123459)。25.语句Print ―234‖+10+‖123‖的输出结果是(367)。

三、简答题

1.说明下列哪些是VB合法的直接常量,分别指出它们是什么类型:

(1)100.0(2)%100

(3)1E1(4)123D3(5)123,456(6)0100

(7)

‖ASDF‖(8)‖1234‖

(9)#2000/10/7#(10)100#(11)π &H123

(15)True(16)T(17)&H12ag(18)-1123!(1)合法,单精度

(2)不合法

(12)&0100(13)&O78(14)

(3)合法,单精度(4)合法,双精度(5)123,456(6)合法,二进制整数(7)合法,字符型

(8)不合法(9)合法,日期型(10)合法,单精度

(11)不合法

(12)合法,八进制(13)不合法

(14)合法,十六进制

(15)合法,逻辑型(16)不合法

(17)不合法

(18)合法,单精度

2.下列符号中,哪些是VB合法的变量名?

(1)a123(6)XYZ(2)a12_3(7)False

(3)123_a

(4)a 123

(5)Integer

(8)sin(x)

(9)sinx

(10)变量名(11)abcdefg(12)π

(2)合法

(3)不合法

(4)不合法

(5)不合法(6)合法

(12)不合法(1)合法

(7)不合法(8)不合法

(9)合法

(10)合法(11)合法

3.把下列算术表达式写成VB表达式

(1)|x+y|+z5 abs(x+y)+z^5

(2)(1+xy)6

(1+x*y)^6(3)

10x3yxy 10*x+sqr(3*y))/(x*y)(4)bb24ac(-b+sqr(b*b-4*a*c))/(2*a)2a(5)

1111r1r2r3 1/(1/r1+1/r2+1/r3)(6)sin45+0e10ln10xy1 sin(45*3.14/180)+(exp(10)+log(10))/sqr(x+y+1)4.根据条件写一个VB表达式:

(1)产生一个‖C‖~‖L‖

范围内的大写字符。

chr(int(rnd*10+67))(2)产生一个100~200(包括100和200)范围内的正整数。int(rnd*101+100)(3)已知直角坐标系中任意一个点(x,y),表示该点在第一或第三象限内。x*y>0(4)表示x是5或7的倍数。x mod 5=0 or x mod 7=0(5)将任意一个两位数x的个位数与十位数对换。例如,x=78,则表达式的应为87。

(x mod 10)*10+x10(6)将变量x的值按四舍五入保留小数点后两位。例如,x的值为123.2389,表达式的值为123.24。

round(x*100)/100(7)表示字符变量C是字母字符(大小写不区分)。

ucase(C)>=‖A‖ and ucase(C)<=‖Z‖(8)取字符变量S中第五个字符起的6个字符。

Mid(s,5,6)(9)表示10≥x<20的关系表达式。

(x>=10)and(x<20)(10)x、y中有一个小于z。

x

x>z and y>z 5.写出下列表达式的值:

(1)123+23 Mod 107+Asc(―A‖)

188(2)100+‖100‖ & 100

―200100‖(3)Int(68.555*100+0.5)/100

68.56

(4)已知A$=‖87654321‖,求表达式Val(Left$(A$,4)+Mid$(A$,4,2))的值

87654(5)DateAdd(―m‖,1,#1/30/2000#)

#2/29/2000#

(6)Len(―VB程序设计‖)

18 6.利用SHELL()函数,在VB程序中分别执行画图和WORD应用程序。略

7.VB提供了哪些标准数据类型?声明类型时,其类型关键字分别是什么?其类型符又是什么?

略 8.哪种数据类型需要的内存容量最少,且可以存储例如3.2345这样的值?

9.将数字字符串转换为数值,用什么函数?判断是否是数字字符串,用什么函数?取字符串中的某几个字符,用什么函数?大小写字母间的转换用什么函数?

10.要使单精度变量x、y、z分别保留1位、2位、3位小数位,并在窗体显示,使用什么函数?如何写对应的Print方法?

8.单精度

9.val函数,isnumeric函数,mid函数,ucase或lcase函数

10.用format函数,print format(x, ‖0.0‖),format(y, ‖0.00‖),format(z, ‖0.000‖)

第五章选择题

1.如下数组声明语句,(B)正确。

(A)Dim a[3,4] as integer

(B)Dim a(3,4)as integer(C)Dim a(n,n)as integer

(D)Dim a(3 4)as integer 1.1 2.2 3.32.要分配存放如下方阵4.4 5.5 6.6,可使用声明语句(C)来实现(不能浪费空间)。.7.7 8.8 9.9

(A)Dim a(9)as single

(B)Dim a(3,3)as single(C)Dim a(-1 to 1,-5 to-3)as single

(D)Dim a(-3 to-1,5 to 7)as integer 3.数组声明语句Dim a(3,-2 to 2,5)as integer中,数组a包含的元素个数为(A)。

(A)120

(B)75

(C)60

(D)13 4.用语句Dim a(-3 to 5)as integer所定义的数组的元素个数是(D)。

(A)6

(B)7

(C)8

(D)9 5.用语句Dim a(3 to 5,-2 to2)所定义的数组的元素个数是(C)。

(A)20

(B)12

(C)15

(D)24 6.下面的B中有(C)个数组元素。

Dim B

: B=Array(1,2,3,4,5,6,7,8,9)(A)任意多

(B)8

(C)9

(D)10

一、填空题

1.控件数组的名字由(Name)属性指定,而数组中的每个元素由(Index)属性指定。2.由Array函数建立的数组的名字必须是(变体)类型。3.数组定义Dim D(20),数组D有(21)个数组元素。

三、分析程序的运行结果

1.在窗体上画一个命令按钮command1,然后编写如下事件过程: option base 1 private sub command1_click()

dim a

a=array(1,2,3,4)

j=1

for i=4 to 1 step-1

s=s+a(i)*j

j=j*10

next i

print s end sub 程序运行后,单击command1,输出结果为:1234

2.在窗体上画一个命令按钮command1,然后编写如下事件过程: option base 1 private sub command1_click()

dim a,b(3,3)

a=array(1,2,3,4,5,6,7,8,9)

for i=1 to 3

for j=1 to 3

b(i,j)=a(i*j)

if j>=I then print tab(j*3);b(I,j);

next j

print

next I

end sub

程序运行后,单击command1,输出结果为:3.在窗体上画一个命令按钮command1,然后编写如下事件过程: option base 1 private sub command1_click()

dim a%(3,3)

for i=1 to 3

for j=1 to 3

if j>1 and i>1 then

a(i,j)=a(a(i-1,j-1),a(i,j-1))+1

else

a(i,j)=i*j

end if

print a(i,j);‖ ―;

next j

print

next I end sub

程序运行后,单击command1,输出结果为: 3

4.在窗体上画一个命令按钮command1,然后编写如下事件过程: option base 1 private sub command1_click()

dim a%(10),p(3)as integer

k=5

for i=1 to 10

a(i)=i

next i

for i=1 to 3

p(i)=a(i*i)

next i

for i=1 to 3

k=k+p(i)*2

next i

print k end sub 程序运行后,单击command1,输出结果为:33 5.在窗体上画一个命令按钮command1,然后编写如下事件过程: option base 1 private sub command1_click()

dim a%(4,4)

for i=1 to 4

for j=1 to 4

a(i,j)=(i-1)*3+j

next j

next i

for i=1 to 4

for j=1 to 4

print a(j,i);

next j

print

4 7 10

next I 5 8 11 end sub 6 9 12

程序运行后,单击command1,输出结果为:4 7 10 13

6.在窗体上画一个命令按钮command1,然后编写如下事件过程: option base 1 private sub command1_click()

dim a%(5,5)

for i=1 to 3

for j=1 to 4

if j>1 and i>1 then

a(i,j)=i*j

end if

next j

next i

for n=1 to 2

for m=1 to 3

print a(m,n);

next m

print

next n end sub

0 0 0

程序运行后,单击command1,输出结果为:0 4 6 7.在窗体上画一个命令按钮command1,然后编写如下事件过程: private sub command1_click()

dim a%(5)

for i=0 to 4

a(i)=i+1

t=i+1

if t=3 then

print a(i);

a(t-1)=a(i-2)

else

a(t)=a(i)

endif

if i=3 then a(i+1)=a(t-4)

a(4)=1

print a(i);

next i end sub 程序运行后,单击command1,输出结果为:1 2 3 1 4 1 8.在窗体上画一个命令按钮command1,然后编写如下事件过程: private sub command1_click()

dim a%(3,3)

dim b

b=array(1,2,3,4,5,6,7,8,9)

j=1

for i=0 to 8

j=i mod 3

k=i3

a(j,k)=b(i)

next i

k=1

for j=0 to 2

print tab(3*(j+1));a(k,j);

next j end sub 程序运行后,单击command1,输出结果为:2 5 8 9.在窗体上画一个命令按钮command1,一个文本框text1,然后编写如下事件过程: private sub command1_click()

dim b

b=array(34,5,13,35,9,6,42)

for i=1 to ubound(b,1)

if b(i)>b(i-1)then

x=b(i)

for j=i-1 to 0 step-1

if b(j)>x then exit for

b(j+1)=b(j)

next j

b(j+1)=x

end if

next i

text1=””

for i=0 to ubound(b,1)

text1=text1+str(b(i))+‖,‖

next i end sub 运行程序后,文本框text1中的内容是:42, 35, 34, 13, 9, 6, 5, 10.在窗体上画一个命令按钮command1,然后编写如下事件过程: private sub command1_click()

dim a(3,3)

for i=0 to 3

for j=0 to 3

a(i,j)=(i+1)*10+j

next j,i

for i=0 to 3

for j=0 to 3

if i

x=a(i,j):a(i,j)=a(j,i): a(j,i)=x

end if

next j,i

for i=0 to ubound(a,1)

for j=0 to ubound(a,2)

print a(i,j);

next j

print 20 30 40

next I

21 31 41 end sub 22 32 42 运行程序后,文本框text1中的内容是:13 23 33 43

11.在窗体上画一个命令按钮command1,然后编写如下事件过程: private sub command1_click()

dim arr1%(10),arr2(10)

n=3

for i=1 to 5

arr1(i)=i

arr2(n)=2*n+i

next i

print arr2(n);arr1(n)end sub 程序运行后,单击command1,输出结果为:11 3 12.在窗体上画一个命令按钮command1,然后编写如下事件过程: private sub command1_click()

dim m%(10)

for k=1 to 10

m(k)=12-k

next k

x=6

print m(2+m(x))end sub 程序运行后,单击command1,输出结果为:4

13.在窗体上画一个命令按钮command1,然后编写如下事件过程: private sub command1_click()

dim b

b=array(56,22,16,67,26,14,9,87)

k=3

do while k

b(k)=b(k+1)

k=k+1

loop

print b(5)end sub 程序运行后,单击command1,输出结果为:9

14.在窗体上画一个命令按钮command1,然后编写如下事件过程: private sub command1_click()

dim b,a(2,4)

b=array(1,2,3,4,5,6,7,8,9,10,11,12,13,14)

for i=0 to 2

for j=0 to 4

a(i,j)=b(i*(ubound(a,2)+1)+i)

next j

next i

print b(i*(ubound(a,2)+1)-3)end sub 程序运行后,单击command1,输出结果为:13

15.在窗体上画一个命令按钮command1,然后编写如下事件过程: private sub command1_click()

dim a(5 to 16)

dim b

b=array(1,2,3,4,5,6,7,8,9)

for i=1 to 8

a(5+i)=b(i)

next i

print a(7)end sub 程序运行后,单击command1,输出结果为:3 16.在窗体上画一个命令按钮command1,然后编写如下事件过程: private sub command1_click()

dim b,a(3,3)

b=array(1,2,3,4,5,6,7,8,9)

j=1

for i=0 to 8

k=i3 : j=I mod 3

a(k,j)=b(i)

print a(k,j);

if j=2 then print

next I 2 3 end sub

5 6 程序运行后,单击command1,输出结果为:7 9

17.在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: Private Sub Command1_Click()Dim i As Integer,j As Integer Dim a(10,10)As Integer For i=1 To 3 For j=1 To 3 a(i,j)=(i-1)*3+j Print a(i,j);Next j Print Next i 28 End Sub 程序运行后,单击命令按钮,窗体上显示的是 同17题

18.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click()Dim array1(10,10)As Integer Dim i,j As Integer For i=1 To 3 For j=2 To 4 array1(i,j)=i+j Next j Next I Text1.Text=array1(2,3)+array1(3,4)End Sub 程序运行后,单击command1,文本框中显示的结果为:12

四、简答题

1.要分配存放12个元素的整形数组,下列数组声明(若无下界,按默认规定)哪些符合要求?

(1)n=12

(2)Dim a%()

Dim a(1 to n)as integer

n=11

ReDim a(n)

(3)Dim a%[2,3]

(4)Dim a(1,1,2)as integer(5)Dim a%(10)

(6)Dim a!()

ReDim a(1 to 12)

ReDim a(3,2)as integer(7)Dim a%(2,3)

(8)Dim a(1 to 3 1 to 4)as integer 2.已知下面的数组声明,写出它的数组名、数组类型、维数、各维的上下界、数组的大小,并按行的顺序列出各元素。

Dim a(-1 to 2,3)as single 3.静态数组和动态数组的区别是什么?在声明静态数组、重定义动态数组时的下标都可以用变量来表示吗?

4.已声明了静态数组a(3,4),能否在下面再用重定义动态数组a(4,4)来重定义A数组的大小? 5.使用ReDim语句可以改变数组类型吗?

6.在ReDim语句中加了Preserve关键字,对重定义数组有何限制?

7.利用随机数生成两个四行四列的矩阵(数据不一定相同,前者范围在30~70,后者为101~135)。要求:

(1)将两个矩阵相加结果放入C矩阵中。(2)将a矩阵转置。

(3)求C矩阵中元素的最大值和下标。

(4)以下三角形式显示A矩阵、上三角形式显示B矩阵。

(5)将A矩阵第一行与第三行对应元素交换位置,即第一行元素放到第三行,第三行元素放到第一行。(6)将A矩阵两条对角线元素之和。

(7)将A矩阵按列的次序把各元素放入一位数组D中,显示结果。8.声明一个有20个元素的一维字符类型数组,要求:

(1)由随机数形成小写字母构成的数组,每个元素的字符个数由随机数产生,范围1~11。(2)要求将生成的数组分四行显示。

(3)显示生成的字符数组中字符最多的元素。

9.自定义一个职工类型,包含职工号、姓名和工资。声明一个职工类型的动态数组。输入n个职工的数据,要求按工资递减的顺序排序,并显示排序的结果,每个职工一行显示三项信息。1.(2)、(4)、(7)符合要求。

2.数组名为a、数组类型为单精度,二维数组,各维的下界分别为-1和0、上界分别为2和3,数组的大小为4*4共16个元素,各元素排列顺序如下:

a(-1, 0)

a(-1, 1)

a(-1, 2)

a(-1, 3)

a(0, 0)

a(0, 1)

a(0, 2)

a(0, 3)

a(1, 0)

a(1, 1)

a(1, 2)

a(1, 3)

a(2, 0)

a(2, 1)

a(2, 2)

a(2, 3)

3.静态数组在声明数组时的下标必须是常数,以后不能改变其大小;动态数组在Dim声明时不要声明数组的大小,在以后的程序中可以用ReDim语句重新声明数组的大小,ReDim语句中的下标可以出现有确定值的变量或表达式。

4.已声明了的静态数组不能再用重定义语句来重新定义静态数组的大小。

5.可以反复地改变数组的大小和数组的维数,但是不能改变数组的类型。

6.在ReDim语句中加上了Preserve关键字,就只能重定义数组最后一维的大小,且根本不能改变数组 30 的维数。例如,如下语句:

Dim a()

ReDim a(3,4)

ReDim Preserve a(4,5)

程序执行到ReDim Preserve a(4,5)时显示“下标越界”出错信息,也就是只能改变第二个下标的大小,而不能改变第一个下标的大小。

7.利用随机数生成两个矩阵:

Dim a%(1 to 4, 1 to 4), b%(1 to 4, 1 to 4), c%(1 to 4, 1 to 4)

Private Sub Form_Click()

For i=1 to 4

For j=1 to 4

a(i,j)=int(rnd*41+30)

b(i,j)=int(rnd*35+101)

next j, i

End Sub

(1)将两个矩阵相加结果放入矩阵C中:

for i=1 to 4

for j=1 to 4

c(i,j)=a(i,j)+b(i,j)

next j, i

(2)将矩阵a转置:

for i=1 to 4

for j=1 to i-1

t=a(i,j): a(i,j)=a(j,i): a(j,i)=t

next j, i

(3)统计矩阵c最大值和下标:

dim max%, maxi%, maxj%

max=c(1,1): maxi=1: maxj=1

for i=1 to 4

for j=1 to 4

if c(i,j)>max then

max=c(i,j): maxi=i: maxj=j

end if

next j, i

(4)以下三角形式显示矩阵a、上三角形式显示矩阵b:

输出下三角元素:

for i=1 to 4

for j=1 to i

print a(i,j);space(4-len(a(i,j)));

next j

print next i 输出上三角元素:

for i=1 to 4

for j=i to 4

print tab(j*4);b(i,j);

next j

print next i

(5)将矩阵a第一行与第三行对应元素交换位置,即第一行元素放在第三行;第三行元素放在第一行:

for j=1 to 4

t=a(1,j): a(1,j)=a(3,j): a(3,j)=t

next j

(6)求矩阵a两条对角线之和:

s=0

for i=1 to 4

s=s+a(i,i)+a(i,5-i)

next i

(7)将矩阵a按列的次序把各元素放入一维数组d中,显示结果:

dim d%(1 to 16),k%

for i=1 to 4

for j=1 to 4

k=(j-1)*4+i

d(k)=a(i,j)

next j, i

8.声明一个有20个元素的一维字符类型数组,要求:

(1)由随机数形成小写字母构成的数组,每个元素的字符个数由随机数产生,范围1~11。

Dim st(1 to 20)as string, c as string*1

Dim i%, n%

For i=1 to 20

n=int(rnd*11+1)

for j=1 to n

c=chr(int(rnd*26+97))

st(i)=st(i)& c

next j

print st(i)

next i(2)要求将生成的数组分四行显示。

For i=1 to 20

Print st(i);space(15-len(st(i)));

If i mod 5=0 then print

Next i(3)显示生成的字符数组中字符最多的元素。

Maxlen=0

Maxstr=‖‖

For i=1 to 20

If len(st(i))>maxlen then

Maxlen=len(st(i))

Maxstr=st(i)

End if

Next i

Print maxlen, maxstr 9.自定义一个职工类型,包含职工号、姓名和工资。声明一个职工类型的动态数组。输入n个职工的数据,要求按工资递减的顺序排序,并显示排序的结果,每个职工一行显示三项信息。

Dim a()As zg, i% Private Sub Command1_Click()

i = i + 1

If i < n Then MsgBox(”人数超过“): Exit Sub

With a(i)

.gh = Val(Text1)

.xm = Text2

.gz = Val(Text3)

End With

Text1 = ”“:

Text2 = ”“: Text3 = ”“

End Sub Private Sub Command2_Click()Picture1.Cls

Dim j%, k%, t As zg

For j = 1 To i1).gz Then

t = a(k): a(k)= a(k1)= t

End If

Next k

Next j

For j = 1 To i

Picture1.Print a(j).gh;a(j).xm;a(j).gz

Next j End Sub Private Sub Form_Load()

Dim n%

n = InputBox(”输入人数“)

ReDim a(1 To n)

i = 0 End Sub

第六章

一、选择题

1.下列叙述中正确的是(C)。

(A)在窗体的Form_Load事件中定义的变量是全局变量

(B)局部变量的作用域可以超出所定义的过程

(C)在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名,但其作用域只局限于该过程。

(D)在调用过程时,所有局部变量被系统初始化为0 2.下列四个叙述中,错误的是(C)。

(A)过程内用Dim语句定义的变量,它的作用域是此过程

(B)过程内用Static语句定义的变量,它的生存期与整个过程的运行期相同

(C)过程内用Dim语句定义的变量,它的生存期与整个过程的运行期相同

(D)若在模块的“通用声明”中写上语句:Option Explicit,则该模块的所有变量必须先说明后引用 3.在过程定义中用(C)表示形参的传值。

(A)Var

(B)ByDef

(C)ByVal

(D)Value 4.若已编写了一个Sort子过程,在该工程中有多个窗体,为了方便地调用Sort子过程,应该将该过程放在(B)中。

(A)窗体模块

(B)标准模块

(C)类模块

(D)工程

5.在过程中定义的变量,若希望在离开该过程后,还能保存过程中局部变量的值,则应使用(D)关键字在过程中定义局部变量。

(A)Dim

(B)Private

(C)Public

(D)Static 6.下面子过程语句说明合法的是(D)。

(A)Sub f1(Byval n%())

(B)Sub f1(n%)as integer(C)Function f1%(f1%)

(D)Function f1(Byval n%)7.要想从子过程调用后返回两个结果,下面子过程语句说明合法的是(C)。

(A)Sub f1(Byval n%, Byval m%)

(B)Sub f1(n%, Byval m%)(C)Sub f1(n%, m%)

(D)Sub f1(Byval n%, m%)8.在VB应用程序中,以下正确的描述是(B)。

(A)过程的定义可以嵌套,但过程的调用不能嵌套

(B)过程的定义不可以嵌套,但过程的调用可以嵌套(C)过程的定义和调用均不可以嵌套(D)过程的定义和调用均可以嵌套 9.以下叙述中错误的是(C)。

(A)一个工程中只能有一个Sub Main过程

(B)窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体(C)窗体的Hide方法和Unload方法的作用完全相同

(D)若工程文件中有多个窗体,可以根据需要指定一个窗体为启动窗体

10.以下叙述中错误的是(D)。

(A)如果过程被定义为Static类型,则该过程中的局部变量都是Static类型(B)Sub过程中不能嵌套定义Sub过程(C)Sub过程中可以嵌套调用Sub过程

(D)事件过程中可以像通用过程一样由用户定义过程名 11.定义带可变参数的过程,使用的关键字是(C)。

(A)Optional

(B)Option

(C)ParamArray

(D)Private 12.定义带可选参数的过程,使用的关键字是(A)。

(A)Optional

(B)Option

(C)ParamArray

(D)Private

二、填空题

1.在过程定义的首部出现的变量名叫做(形式)参数,而在调用过程中传送给过程的(常数、变量、数组元素、表达式)叫做(实在)参数。

2.定义和调用函数或过程时参数传递的两种方法是(按值传递,按地址传递)。

3.在窗体的通用段用Dim语句定义的变量是(窗体)级变量,它只能在(本窗体)中使用。

4.全局级过程在定义时可以默认,也可以使用关键字(Public)进行显示声明;窗体/模块级的过程声明时要用关键字(Private)。

5.用ParamArray关键字声明可变参数时,被声明的参数只能是(变体类型数组)。6.在带可选参数的过程中,使用(IsMissing)函数来测试可选参数是否被选。

三、分析运行结果

1.阅读程序

Function f(a As Integer)

Static c b = 0:

b = b + 1

c = c + 1: f = a + b + c End Function Private Sub command1_click()

Dim a As Integer

a = 2

For i = 1 To 3

Print f(a);

Next i End Sub程序运行后,单击命令按钮,输出结果为:4 2.阅读程序

Sub s(x As Single, y As Single)

t = x

x = t / y

y = t Mod y End Sub Private Sub command1_click()

Dim a As Single, b As Single

a = 5

b = 4

s a, b

Print a, b End Sub 程序运行后,单击命令按钮,输出结果为:1.25

3.阅读程序

Function M(x%, y%)As Integer

M = IIf(x > y, x, y)End Function Private Sub command1_click()

Dim a As Integer, b As Integer

a = 1

b = 2

Print M(a, b)38 End Sub 程序运行后,单击命令按钮,输出结果为:2 4.阅读程序 Sub Inc(a As Integer)

Static x As Integer

x = x + a

Print x;End Sub Private Sub command1_click()

Inc 2

Inc 3

Inc 4 End Sub 程序运行后,单击命令按钮,输出结果为:2 5 9 5.阅读程序: Sub p(b()As Integer)

For i = 1 To 4

b(i)= 2 * i

Next i End Sub Private Sub command1_click()

Dim a(1 To 4)As Integer

a(1)= 5

a(2)= 6

a(3)= 7

a(4)= 8

p a()

For i = 1 To 4

Print a(i);

Next i

End Sub程序运行后,单击命令按钮,输出结果为:2 6.阅读程序:

Function fun(ByVal num As Long)As Long

Dim k As Long

k = 1

num = Abs(num)

Do While num

k = k *(num Mod 10)

num = num 10

Loop

fun = k End Function Private Sub command1_click()

Dim n As Long, r As Long

n = Val(InputBox(”请输入一个数:“))

r = fun(n)

Print r End Sub 程序运行后,单击命令按钮,输入1234,输出结果为:24 7.阅读程序:

Function func(a%, b%)As Integer

Static m As Integer, i As Integer

m = 0

i = 2

i = i + m + 1

m = i + a + b

func = m End Function Private Sub command1_click()

Dim k%, m%, p%

k = 4

m = 1

p = func(k, m)

Print p;

p = func(k, m)

Print p End Sub 程序运行后,单击命令按钮,输出结果为:8 8.阅读程序: Dim a%, b%, c% Public Sub p1(x%, y%)

Dim c%

x = 2 * x: y = y + 2: c = x + y End Sub Public Sub p2(x%, ByVal y%)

Dim c%

x = 2 * x: y = y + 2: c = x + y End Sub Private Sub command1_click()

a = 2: b = 4: c = 6

Call p1(a, b)

Print a, b, c

Call p2(a, b)

Print a, b, c End Sub 程序运行后,单击命令按钮,输出结果为:8

9.阅读程序:

Private Sub command1_click()

Dim m%, i%, x%(10)

For i = 0 To 4

x(i)= i + 1

Next i

For i = 1 To 2

Call proc(x())

Next i

For i = 0 To 4

Print x(i)

Next i End Sub Public Sub proc(a%())

Static i%

Do

a(i)= a(i)+ a(i + 1)

i = i + 1

Loop While i < 2 End Sub 程序运行后,单击命令按钮,输出结果为:3 5 7 4 5 10.阅读程序:

Private Sub command1_click()

Print p1(3, 7)End Sub Public Function p1!(x!, n%)

If n = 0 Then

p1 = 1

Else

If n Mod 2 = 1 Then

p1 = x * p1(x, n 2)

Else

p1 = p1(x, n 2)x

End If

End If End Function程序运行后,单击命令按钮,输出结果为:27 11.阅读程序:

Private Sub command1_click()

Dim x%, y%, z%, w%

x = 9

y = 8

z = 2

w = 6

Call s1(x, y, z, w)

Print x;y;z;w End Sub Private Sub s1(a%, b%, ByVal c%, ByVal d%)

a = a + 1

b = b + 2

c = c + 3

d = d + 4 End Sub程序运行后,单击命令按钮,输出结果为:10 10 2 6 12.阅读程序:

Private Sub command1_click()

Dim x%, y%

x = 9: y = 8

Call s1(5, 7, x, y)

Print x;y End Sub Private Sub s1(a%, b%, ByVal c%, ByVal d%)c = c + a: d = d + b End Sub程序运行后,单击命令按钮,输出结果为:9 13.阅读程序:

Private Sub command1_click()

Dim x%, y%, z%

x = 5: y = 7: z = 0

Call s1(x, y, z)

Print x;y;z End Sub Private Sub s1(ByVal a%, ByVal b%, c%)c = a + b End Sub程序运行后,单击命令按钮,输出结果为:5 7 12 14.阅读程序: Private i As Integer Private Sub abc()

a$ = Chr(Asc(”A“)+ i)

Print a$;”;“;End Sub Private Sub command1_click()

For i = 0 To 4

abc

Next i End Sub程序运行后,单击命令按钮,输出结果为:A;B;C;D;E;15.阅读程序: Private Sub abc()

a$ = Chr(Asc(”A“)+ i)

Print a$;”;“;End Sub Private Sub command1_click()

For i = 0 To 4

abc

Next i End Sub程序运行后,单击命令按钮,输出结果为:A;A;A;A;A;

16.阅读程序:

Function M(x%, y%)As Integer

M = IIf(x > y, x, y)End Function Private Sub command1_click()

Dim a As Integer, b As Integer

a = 100

b = 200

Print M(a, b)End Sub程序运行后,单击命令按钮,输出结果为:200 17.阅读程序: Private i As Integer Private Sub abc()

a$ = Chr(Asc(”A“)+ i)

b$ = Chr(Asc(”Z“)-x)

Print a$ & b$;”;";End Sub Private Sub command1_click()

Dim x As Integer

For i = 0 To 4

x = x + 1

abc

Next i End Sub程序运行后,单击命令按钮,输出结果为:AZ;BZ;CZ;DZ;EZ;

四、简答题

1.子过程与函数过程的异同点是什么? 2.什么是形参?什么事实参?

3.调用子过程或函数过程时,实参与形参的对应关系如何?应注意什么问题? 4.值传递与地址传递的选择与其特点是什么?

5.在VB中,形参若是数组,不要说明数组元素的个数,即以数组名和圆括号表示,在过程体内如何表示数组的上下界?

6.在Form1窗体通用声明部分声明的变量,可否在Form2窗体中的过程被访问? 7.要使变量在某事件过程中保值,有哪几种变量声明的方法? 8.指出下面过程语句说明中的错误:

(1)Sub f1(n%)as integer

(2)Function f1%(f1%)(3)Sub f1(ByVal n%())

(4)Sub f1(x(i)as integer)9.已知有如下求两个平方数和的fsum子过程:

Public Sub fsum(sum%, byval m%, byval n%)

Sum=m*m+n*n End Sub 在事件过程中有如下变量声明: Dim a%,b%,c!a=10 b=20 则指出如下过程调用语句错误所在:

(1)fsum 3,4,5

(2)fsum c, a, b

(5)call fsum c, a, b(3)fsum a+b, a, b

(4)call fsum(sqr(c), sqr(a), sqr(b))1.子过程和函数过程的相同点:函数过程和子过程都是功能相对独立的一种子过程结构,它们有各自的过程头、变量声明和过程体。在程序中使用它们不但可以避免频繁的书写重复的程序语句,缩短代码,而且使程序条理清晰,容易阅读。

子过程和函数过程的不同点:

(1)过程声明的关键字不同,子过程用Sub,函数过程用Function。

(2)子过程名无值就无类型声明,函数过程有值就有类型声明。

(3)函数过程名兼作结果变量,因此在函数过程体内至少对函数过程名赋值一次;而子过程名在过程内不能赋值。

(4)调用方式不同,子过程是一句独立的语句,可用call子过程名或省略call直接以子过程名调用;函数过程不是一句独立的语句,是一个函数值,必须参与表达式的运算。

(5)一般来说,一个函数过程可以被一个子过程代替,代替时只要改变函数定义的形式,并在子过程的 46 形参表中增加一个地址传递的形参来传递结果。但反过来,用一个函数过程去替代一个子过程,有时是不容易实现的。

2.形参是在定义过程时的一种形式虚设的参数,只代表了该过程参数的个数、类型、位置,形参的名字并不重要,也没有任何值,只表示在过程体内进行某种运算或处理。

形参不能是常量、表达式或数组元素,只能是变量。

实参是调用子过程时提供给过程形参的初始值或通过过程体处理过后获得的结果。

3.调用时用实参代替形参,实参与形参在个数、位置、类型一一对应,但实参与形参名相同与否无关。

VB在调用过程时,提供了命名参数的功能,在调用时使用形参名,而位置可任意;同时VB还提供了可选参数的功能,也就是实参与形参个数不一定相等。

4.仅要从调用者获得初值,应使用值传递;要将过程运算结果提供给调用者,必须是地址传递。数组、记录类型和对象必须使用地址传递。

调用时地址传递对应的实参不应该是表达式或常量。在VB中尽管不显示出错信息,但得不到所期望的值。

能够用值传递实现的,尽量用值传递,减少过程间关联,有利于程序的调试。5.利用VB提供的函数LBound和UBound确定数组的上、下界。

6.可以,条件是要在Form1窗体通用声明部分声明的变量是Public;Form2窗体中的过程被访问时变量名前加Form1。

7.方法一:在标准模块中声明Public的变量;

方法二:在某事件过程所在的窗体的通用声明段声明变量;

方法三:在某事件过程以Static关键字声明的变量。8.(1)错误为Sub子过程名无返回值,也就没有类型

(2)函数名与形参名相同

(3)形参n为数组,不允许声明为ByVal值传递

(4)形参x(i)不允许为数组元素

9.(1)fsum 子过程的第一个形参是地址传递,因此对应的实参3不应该是常量。

(2)fsum子过程的第一个形参是整型且地址传递,对应得实参c是单精度,类型不匹配。

(3)fsum子过程的第一个形参是地址传递,因此对应的实参a+b不应该是表达式。

(4)fsum子过程的第一个形参是地址传递,因此对应的实参(sqr(c)不应该是表达式。(5)用call语句调用 fsum子过程,必须加圆括号括起实参。.第七章

一、选择题

1.要判断在文本框中是否按了Enter键,应在文本框的(D)事件中判断。

(A)Change

(B)KeyDown

(C)Click

(D)KeyPress

2.以下选项中,没有Caption属性的对象是(B)。

(A)命令按钮

(B)组合框

(C)窗体

(D)单选框 3.计时器控件的控件值是(D)。

(A)Caption

(B)Value

(C)Interval

(D)Enabled 4.以下选项中,(B)不是鼠标操作事件。

(A)DragDrop

(B)GotFocus

(C)DblClick

(D)MouseDown 5.以下选项中,(A)是键盘操作事件。

(A)KeyUp

(B)GotFocus

(C)DblClick

(D)MouseDown 6.设置复选框或单选按钮标题对齐方式的属性是(B)。

(A)Align

(B)AlignMent

(C)Sorted

(D)Value 7.为了使列表框中的项目分为多列显示,需要设置的属性为(A)。

(A)Columns

(B)Style

(C)List

(D)MultiLine 8.要想不使用shift或ctrl键就能在列表框中同时选择多个项目,则应把该列表框的MultiSelect属性设置为(B)。

(A)0

(B)1

(C)2

(D)其他 9.删除列表框中指定的项目所使用的方法为(D)。

(A)Move

(B)Remove

(C)Clear

(D)RemoveItem 10.当拖动滚动条中的滚动块时,将触发滚动条的(C)事件。

(A)Move

(B)Change

(C)Scroll

(D)SetFocus 11.用户在组合框中输入或选择的数据可以通过(C)属性获得。

(A)List

(B)ListIndex

(C)Text

(D)ListCount 12.下列控件中,没有Caption属性的是(B)。

(A)框架

(B)文本框

(C)复选框

(D)单选按钮 13.复选框的Value属性为1时,表示(B)。

(A)复选框未被选中

(B)复选框被选中

(C)复选框内有灰色的勾

(D)复选框操作有错误 14.用来设置粗体字的属性是(C)。

(A)FontItalic

(B)FontName

(C)FontBold

(D)FontSize 15.将数据项“china”添加到列表框List1中成为第一项应使用(A)语句。

(A)List1.AddItem ―china‖, 0

(B)List1.AddItem ―china‖, 1

48(C)List1.AddItem 0, ―china‖

(D)List1.AddItem 1, ―china‖

16.引用列表框List1最后一个数据项应使用(B)。

(A)List1.List(List1.ListCount)

(B)List1.List(List1.ListCount-1)(C)List1.List(ListCount)

(D)List1.List(ListCount-1)17.假如列表框List1有四个数据项,那么把数据项‖china‖添加到列表框的最后,应使用(D)语句。

(A)List1.AddItem ―china‖, 3

(B)List1.AddItem ―china‖, List1.ListCount-1

(C)List1.AddItem 3, ―china‖

(D)List1.AddItem ―china‖, List1.ListCount 18.假如列表框List1中没有被选定的项目,则执行List1.RemoveItem List1.ListIndex语句的结果是(D)。

(A)移去第一项

(B)移去最后一项

(C)移去最后加入列表的一项

(D)以上都不对

19.假如列表框List1中只有一个被选定的项目,则执行Debug.print List1.Selected(List1.ListIndex)语句的结果是(B)。

(A)在Debug窗口中输出被选定的项目的索引值

(B)在Debug窗口中输出True(C)在窗体上输出被选定的项目的索引值

(D)在窗体上输出True 20

在下列说法中,正确的是(B)。

(A)通过适当的设置,可以在程序运行期间,让时钟控件显示在窗体上

(B)在列表框中不能进行多项选择

(C)框架也有click和dblclick事件(D)在列表框中能够将项目按字母顺序从大到小排列 21.为了防止用户随意将光标置于控件之上,应(D)。

(A)将控件的TabIndex属性设置为0

(B)将控件的TabStop属性设置为True(C)将控件的TabStop属性设置为False

(D)将控件的Enabled属性设置为False 22.下列(D)控件没有Min、Max和Value属性。

(A)Slider

(B)ProgressBar

(C)UpDown

(D)SSTab 23.当Slider控件的Min属性为1,Max属性为40,TickFrequency属性为4时,滑标上的可见刻度数是

49(A)个,划分了()等分。

(A)11,10

(B)21,20

(C)31,30

(D)41,40 24.一个UpDown控件与文本框“捆绑”在一起,其Min、Max、Value和Increment分别为0、10、9和3,并且选定了“换行”功能,当用鼠标单击向上的箭头时,文本框中的值应是(A)。(A)10

(B)12

(C)0

(D)2 25.下面关于拖放和OLE拖放的叙述中,正确的是(D)。

(A)只要对控件的属性进行适当的设置,就能将控件从一个地方移动到另一个地方

(B)文本框、图片框和列表框完全支持自动OLE拖放

(C)当OLEDropMode属性为1时,控件自动实现OLE“放”操作

(D)当控件的DragMode设置为1时,它不能接受Click和MouseDown事件 26.在下面关于常用的ActiveX控件的说法中,正确的是(B)。

(A)在Animation控件中,当用Open方法打开AVI文件后直接自动播放

(B)Slider控件有Scroll和Change事件(C)UpDown不能与Slider“捆绑”

(D)选项卡只可以出现在控件的顶端

27.当用户按下并且释放一个键后会触发KeyPress、KeyUp和KeyDown事件,这三个事件发生的顺序是(B)。

(A)KeyPress、KeyDown、KeyUp

(B)KeyDown、KeyPress、KeyUp(C)KeyDown、KeyUp、KeyPress

(D)没有规律 28.在下列关于键盘事件的描述中,正确的是(D)。

(A)按下键盘上的任意一个键,都会引发KeyPress事件

(B)大键盘上的“1”键和数字键盘的“1”键的KeyCode码相同(C)KeyDown和KeyUp事件过程中有KeyAscii参数

(D)大键盘上的“4”键的上档字符是“$”,当同时按下Shift和大键盘上的“4”键时,KeyPress事件过程中的KeyAscii参数值是“$‖的ASCII值

29.在KeyDown和KeyUp事件过程中,能用来检查Ctrl和F3是否同时按下的表达式为(C)。

《路旁的橡树》课文习题和答案 篇4

一、读一读,写一写。

宽阔平坦 延伸 挺拔

沉默 不语 不约而同

三、在括号里填上合适的词语。

( )的心灵 轻轻地( )

( )的公路 长久地( )

( )的橡树 不约而同地( )

四、认真读句子,选择恰当的词语填空。

1.( )的工作压的他喘不过起来。

2.工人们也( )地叹着气。

3.工程师( )未来的路要铺在哪里,工人们就往土里埋进排水管。

4.按照领导的( ),他们很快做好了一切准备工作。

五、照例子,写句子。

1.它是那么粗壮、结实、挺拔,就像草原的哨兵一样。

十五的月亮是那么 ,就像 。

2.那条沥青公路像箭一样笔直。

西湖的水面像 一样平。

六、按课文内容填空。

为了保护 ,筑路工人与工程师经过精心的 ,使公路在橡树边 ,既 了大橡树,又 了筑路计划。这个故事表现了人们对一草一木的 ,赞扬工程师和筑路工人的 。

七、根据课文内容,选择正确的答案。

1.这条笔直的公路在一个弯曲成马蹄形,是因为 ( )

(1)人们觉得弯曲成马蹄形美观一些。

(2)筑路人爱护路边的树,把路修弯可以不砍树。

2.坐车过往这里的人不约而同地赞叹道:“筑这条路的人一定有一颗高尚的心。”这句话中“高尚的.心”是指 ( )

(1)工人为了树停工不干,有一颗高尚的心。

(2)工程师和筑路人为了保护橡树,使公路拐一个弯。在修路的同时,也保护了环境,所以说他们有一颗“高尚的心”。

八、读下面一段话,完成练习。

几年过去了,一条 的沥青公路从北方延伸到南方。它像箭一样 。但只在一个地方 成马蹄形。

坐车过往这里的人 地赞叹道:“住这条路的人一定有一颗高尚的心。”

1.按课文内容填空。

2.在第一自然段中找出两对反义词,写在下面。

3.“不约而同”是什么意思?人们的赞叹说明了什么?

上一篇:安全管理工作自我鉴定参考下一篇:人力资源现状分析 未来预测