第一篇：行政管理期末考试题库及答案第二部分

行政管理期末考试题库及答案2 1．第1题

以下不属于办公室的综合协调工作的是（）A.工作任务的协调 B.管理事务的协调 C.领导关系的协调 D.家庭关系的协调 答案:D 标准答案：D 您的答案： 题目分数：1.0 此题得分：0.0

2．第2题

行政监督的工作对象主要是（）A.公务员 B.公司职员 C.经理人员 D.共产党员 答案:A 标准答案：A 您的答案： 题目分数：1.0 此题得分：0.0

3．第8题

政府公关调查中使用最广泛的方法是（）A.民意测验 B.信访工作 C.新闻发布 D.信息公开 答案:A 标准答案：A 您的答案： 题目分数：1.0 此题得分：0.0

4．第9题

下列关于行政决策的表述错误的是（）

A.公共管理的主要任务之一是制定和执行行政决策 B.行政决策是个复杂的过程 C.行政决策的第一阶段是政策方案的甄选

D.行政决策的合理性、合法性影响行政执行的效果 答案:C 标准答案：C 您的答案： 题目分数：1.0 此题得分：0.0

5．第10题

“守夜人”政府职能反映的是（）的行政职能 A.前资本主义时期 B.自由资本主义时期 C.垄断资本主义时期 D.当代资本主义时期 答案:B 标准答案：B 您的答案： 题目分数：1.0 此题得分：0.0

6．第11题

根据政策评估机构的地位，可以将政策评估区分为（）A.事前评估和事后评估 B.外部评估和内部评估 C.正式评估与非正式评估 D.上级评估和下级评估 答案:B 标准答案：B 您的答案： 题目分数：1.0 此题得分：0.0

7．第12题

提出“管理就是决策”观点的行政学家是（）A.泰罗 B.法约尔 C.西蒙 D.梅奥 答案:C 标准答案：C 您的答案： 题目分数：1.0 此题得分：0.0 8．第13题

我国国家公务员制度的灵魂和标志，是指坚持哪一个指导原则（）A.贯彻现阶段的基本路线 B.坚持为人民服务的宗旨 C.坚持德才兼备的用人标准

D.坚持公开、平等、竞争、择优的原则 答案:D 标准答案：D 您的答案： 题目分数：1.0 此题得分：0.0

9．第14题

在我国，专门行政监督机关主要指（）A.行政监察机关和审计机关 B.纪委和检察院 C.人大和政协

D.人民法院和公安部门 答案:A 标准答案：A 您的答案： 题目分数：1.0 此题得分：0.0

10．第15题

关于行政道德的观念对行政系统的影响的表述错误的是()A.行政道德指引着行政系统成员的政治方向

B.行政道德制约着行政系统成员个人利益的实现程度 C.行政道德影响着行政系统成员的社会地位 D.行政道德决定着行政系统成员的工作效率 答案:D 标准答案：D 您的答案： 题目分数：1.0 此题得分：0.0

11．第16题

以下享有地方行政立法权的机关是（）A.中共广东省委 B.广东省政协

C.广东省高级人民法院 D.广东省政府 答案:D 标准答案：D 您的答案： 题目分数：1.0 此题得分：0.0

12．第17题

单位内部“官多兵少”的局面，反映的问题是（）A.管理层次太多 B.管理层次偏少 C.管理幅度偏小 D.管理幅度偏大 答案:A 标准答案：A 您的答案： 题目分数：1.0 此题得分：0.0

13．第18题

我国最高国家权力机关的执行机关是()

A.中央军委

B.最高人民法院 C.国务院

D.最高人民检察院 答案:C 标准答案：C 您的答案： 题目分数：1.0 此题得分：0.0

14．第19题

在我国，实现行政职能体系合理配置的根本途径是（）

A.加强监督 B.加强立法

C.行政职能的转变 D.政事分开 答案:C 标准答案：C 您的答案： 题目分数：2.0 此题得分：0.0 15．第20题

渐进决策模式的提出者是()

A.西蒙

B.林德布洛姆 C.埃佐尼 D.邓恩 答案:A 标准答案：A 您的答案： 题目分数：2.0 此题得分：0.0

16．第30题

下列关于我国行政职能转变的必然性和必要性错误的表述是（）A.政府职能转变是社会主义市场经济发展的必然要求 B.政府职能转变是适应经济全球化发展趋势的需要 C.政府职能转变是机构改革的重要前提和基础

D.政府职能转变是适应政府由宏观管理为主转向微观管理为主的要求 答案:D 标准答案：D 您的答案： 题目分数：1.0 此题得分：0.0

17．第31题

目前，我国公共预算的主要参与者不包括（）A.社会组织

B.人民代表大会 C.人民政府 D.财政部门 答案:A 标准答案：A 您的答案： 题目分数：1.0 此题得分：0.0

18．第32题

层次节制原则要求（），这也是行政管理的主要特点之一 A.下级必须服从上级的领导 B.下级必须时刻向上级汇报工作 C.下级只接受上级的监督 D.下级不得越级汇报工作 答案:A 标准答案：A 您的答案： 题目分数：1.0 此题得分：0.0

19．第33题

行政组织编制管理的基本原则不包括（）A.精干高效 B.编制立法 C.统一协调 D.因人设事 答案:D 标准答案：D 您的答案： 题目分数：1.0 此题得分：0.0

20．第34题

中国与西方国家公务员制度的最大不同在于（）A.谈判工资制 B.职位分类制

C.是否强调政治中立 D.政府雇员制 答案:C 标准答案：C 您的答案： 题目分数：1.0 此题得分：0.0

21．第35题

群众基础最为广泛的行政监督是（）A.政党监督 B.人大监督 C.政协监督

D.社会舆论监督 答案:D 标准答案：D 您的答案： 题目分数：1.0 此题得分：0.0

22．第40题 行政法治意识的内容不包括（）A.法律至上意识 B.服务意识 C.官本位意识 D.责任意识 答案:C 标准答案：C 您的答案： 题目分数：1.0 此题得分：0.0

23．第45题

从管理角度分析，政府公共关系是一种（）

A.服务职能 B.管理职能 C.政治职能 D.统治职能 答案:B 标准答案：B 您的答案： 题目分数：2.0 此题得分：0.0

24．第54题

下列属于现代组织理论时期的学者的是（）A.洛西 B.韦伯 C.西蒙 D.威尔逊 答案:A 标准答案：A 您的答案： 题目分数：1.0 此题得分：0.0

25．第55题

县委书记焦裕禄身先士卒的领导方式属于()A.强制式 B.说服式 C.激励式 D.示范式 答案:D 标准答案：D 您的答案： 题目分数：1.0 此题得分：0.0

26．第56题

在我国，公务员的宗旨是（）A.廉洁奉公 B.为人民服务 C.忠于职守 D.勤勉尽责 答案:B 标准答案：B 您的答案： 题目分数：1.0 此题得分：0.0

27．第57题

政务信息公开制度的宗旨不包括（）A.保障公众的知情权 B.赢得公众的信赖

C.增加行政活动的透明度 D.监督政府机关依法行使职权 答案:B 标准答案：B 您的答案： 题目分数：1.0 此题得分：0.0

28．第58题

狭义的政府公关主体指（）A.涉外政府部门 B.全体公务员 C.社会组织

D.公关性质很强的政府机构 答案:D 标准答案：D 您的答案： 题目分数：1.0 此题得分：0.0

29．第59题

政府预算必须经过（）审批后才具有法律效力 A.行政机关 B.立法机关 C.司法机关 D.财政部门 答案:B 标准答案：B 您的答案： 题目分数：1.0 此题得分：0.0

30．第60题

现代社会，要求行政领导的知识素质结构是（）

A.T型 B.V型 C.O型 D.U型 答案:A 标准答案：A 您的答案： 题目分数：1.0 此题得分：0.0

31．第3题

我国的行政立法的主体包括（）A.国务院 B.省政府

C.直辖市政府 D.省政协 E.党委 答案:A,B,C 标准答案：A|B|C 您的答案： 题目分数：2.0 此题得分：0.0

32．第4题

人事行政制度中起支柱作用的是指以下哪四种具体制度（）A.职位分类制度 B.选拔任用制度 C.培训制度 D.考核制度

E.交流回避制度 答案:A,B,C,D 标准答案：A|B|C|D 您的答案： 题目分数：2.0 此题得分：0.0

33．第5题

当前我国行政改革的难点主要有（）A.观念和利益问题

B.职能转变与政企分开问题 C.改革的配套与平衡问题 D.人员分流问题 E.行政法制建设问题 答案:A,B,C,D,E 标准答案：A|B|C|D|E 您的答案： 题目分数：2.0 此题得分：0.0

34．第23题

据公共危机产生的诱因，公共危机可以分类为（）A.外生型危机 B.内生型危机 C.政治性危机 D.社会性危机 E.经济危机 答案:A,B 标准答案：A|B 您的答案： 题目分数：1.0 此题得分：0.0

35．第24题

政府公关的实务主要有（）A.民意测验 B.信访工作 C.新闻发布 D.社会沟通

E.危机事件处理 答案:A,B,C,D,E 标准答案：A|B|C|D|E 您的答案： 题目分数：1.0 此题得分：0.0 36．第25题

深化行政体制改革的目标是（）

A.建立全能政府 B.建设责任政府 C.建设效能政府 D.建设法治政府 E.建立服务型政府 答案:B,C,D,E 标准答案：B|C|D|E 您的答案： 题目分数：1.0 此题得分：0.0

37．第26题

政府绩效管理的主要价值目标是（）

A.经济 B.效能 C.效率 D.公平E.民主

答案:A,B,C,D,E 标准答案：A|B|C|D|E 您的答案： 题目分数：1.0 此题得分：0.0

38．第38题

行政信息管理的基础标准包括（）A.数据元素标准 B.信息分类编码标准 C.用户视图标准 D.概念数据标准 E.逻辑数据标准 答案:A,B,C,D,E 标准答案：A|B|C|D|E 您的答案： 题目分数：2.0 此题得分：0.0

39．第39题 根据公共危机发生的领域，公共危机可以分类为（）A.政治性危机 B.社会性危机 C.生产性危机 D.宏观经济性危机 E.自然性危机 答案:A,B,C,D,E 标准答案：A|B|C|D|E 您的答案： 题目分数：2.0 此题得分：0.0

40．第41题

根据行政领导活动侧重点的不同，行政领导方式可以分为（）A.重人式 B.重事式

C.人事并重式 D.强制式 E.示范式 答案:A,B,C 标准答案：A|B|C 您的答案： 题目分数：1.0 此题得分：0.0

41．第42题

按行政领导者作用于下属的方式，行政领导方式具体有（）

A.强制式 B.说服式 C.激励式 D.示范式 E.重人式

答案:A,B,C,D 标准答案：A|B|C|D 您的答案： 题目分数：1.0 此题得分：0.0

42．第48题

从法制行政的角度来划分，行政执行即行政执法可分为（）A.行政决定 B.行政检查 C.行政处置

D.行政强制执行 E.行政弹性执行 答案:A,B,C,D 标准答案：A|B|C|D 您的答案： 题目分数：2.0 此题得分：0.0

43．第49题

在实践上，我国行政立法包括（）A.职权立法 B.授权立法 C.职位立法 D.委托立法 E.职务立法 答案:A,B 标准答案：A|B 您的答案： 题目分数：2.0 此题得分：0.0

44．第50题

影响政策执行效力的因素中的环境因素主要包括（）A.政府的整合程度 B.公共管理部门的威信 C.公众态度

D.执行机构的态度 E.国际势力的干预因素 答案:A,B,C,D,E 标准答案：A|B|C|D|E 您的答案： 题目分数：1.0 此题得分：0.0

45．第51题

我国政府职能关系表现为（）

A.中央与地方的政府间关系 B.政府与企业关系 C.政府与社会关系 D.政府与市场关系

E.政府内部各职能部门关系 答案:A,B,C,D,E 标准答案：A|B|C|D|E 您的答案： 题目分数：1.0 此题得分：0.0

46．第6题 行政立法

答案:指政府行政机关为执行宪法和法律，依据宪法、法律规定的权限和程序，制定有关公共行政事务或与公共行政活动有关的事务的、有一定法律效力的规范性文件的活动。

标准答案：指政府行政机关为执行宪法和法律，依据宪法、法律规定的权限和程序，制定有关公共行政事务或与公共行政活动有关的事务的、有一定法律效力的规范性文件的活动。您的答案： 题目分数：2.0 此题得分：0.0

47．第7题 行政信息公开

答案:指政府部门和法律法规授权具有管理公共事务职能的公共组织主动或根据公众申请公开行政信息，并方便公众获取政务信息的各种活动与制度的总称。

标准答案：指政府部门和法律法规授权具有管理公共事务职能的公共组织主动或根据公众申请公开行政信息，并方便公众获取政务信息的各种活动与制度的总称。您的答案： 题目分数：2.0 此题得分：0.0

48．第21题 行政组织伦理

答案:是针对行政建制的伦理规范而言的，是注重客观性的伦理规范。其基本内涵包括程序公正的基本准则、民主责任的伦理导向、行政组织信任三个方面的内容。

标准答案：是针对行政建制的伦理规范而言的，是注重客观性的伦理规范。其基本内涵包括程序公正的基本准则、民主责任的伦理导向、行政组织信任三个方面的内容。您的答案： 题目分数：2.0 此题得分：0.0

49．第22题 人事管理

答案:指组织运用一定的手段和方法，有效地把人的因素与物的因素合理地组合在一起，从而发挥他们各自的作用，实现组织管理目标。

标准答案：指组织运用一定的手段和方法，有效地把人的因素与物的因素合理地组合在一起，从而发挥他们各自的作用，实现组织管理目标。您的答案： 题目分数：2.0 此题得分：0.0

50．第36题 政策合法化

答案:就是使政策方案被公众认可、接受、遵从的过程，具体来说，包括决策者及其权力的合法化、政策程序的合法化、政策内容的合法化、政策内容法律化4个方面。

标准答案：就是使政策方案被公众认可、接受、遵从的过程，具体来说，包括决策者及其权力的合法化、政策程序的合法化、政策内容的合法化、政策内容法律化4个方面。您的答案： 题目分数：2.0 此题得分：0.0

51．第37题 管理幅度

答案:指一级行政机关或一名上级领导者直接领导和指挥的下级单位或工作人员数量。

标准答案：指一级行政机关或一名上级领导者直接领导和指挥的下级单位或工作人员数量。您的答案： 题目分数：2.0 此题得分：0.0

52．第46题 绩效

答案:是效率和效能的总和，其中效率就是投入与产出的比率，效能则是将实际成果与原定的预期成果进行比较，前者适用于能将投入和产出量化的场合，或者则可用于那些收益无法用货币来计量的场合。

标准答案：是效率和效能的总和，其中效率就是投入与产出的比率，效能则是将实际成果与原定的预期成果进行比较，前者适用于能将投入和产出量化的场合，或者则可用于那些收益无法用货币来计量的场合。您的答案： 题目分数：2.0 此题得分：0.0

53．第47题 行政职能

答案:是行政机关在管理活动中的基本职责和功能作用，主要涉及管什么、怎么管、发挥什么作用的问题。

标准答案：是行政机关在管理活动中的基本职责和功能作用，主要涉及管什么、怎么管、发挥什么作用的问题。您的答案： 题目分数：2.0 此题得分：0.0

54．第44题

结合我国实际，谈谈我国行政管理法治化的主要内容。

答案:提示：（1）我国行政法治化的主要内容：行政法治意识的培养（包括3个方面的内容）；行政职权法治；行政组织法治；行政程序法治。（2）结合我国当前的实际，具体分析上述4个方面的问题。

标准答案：提示：（1）我国行政法治化的主要内容：行政法治意识的培养（包括3个方面的内容）；行政职权法治；行政组织法治；行政程序法治。（2）结合我国当前的实际，具体分析上述4个方面的问题。您的答案： 题目分数：7.0 此题得分：0.0

55．第53题

请结合当前发生的世纪金融海啸，谈谈国际社会环境是如何影响一个国家行政系统的。

答 案:要点提示:(1)国际社会环境是指一国在于外国或各种国际组织交往过程中所形成的、影响该国行政系统及其功能的各种因素的总和，包括国际关系的发展、重大国际事件、战争与和平、国际组织与国际法、及共同关系的其它事务。（2）谈谈金融危机对国家行政系统的影响：如增设临时机构应对；国家间展开合作，成 立相应的职能机构等。

标准答案：要点提示:(1)国际社会环境是指一国在于外国或各种国际组织交往过程中所形成的、影响该国行政系统及其功能的各种因素的总和，包括国际关系的发展、重大国际事件、战争与和平、国际组织与国际法、及共同关系的其它事务。（2）谈谈金融危机对国家行政系统的影响：如增设临时机构应对；国家间展开合作，成立相应的职能机构等。您的答案： 题目分数：7.0 此题得分：0.0

56．第27题

简述行政领导的素质结构。

答案:政治素质（坚定的政治方向、为人民服务的思想境界、廉洁奉公的政治道德）；知识素质；能力素质（创新能力、综合能力）。

标准答案：政治素质（坚定的政治方向、为人民服务的思想境界、廉洁奉公的政治道德）；知识素质；能力素质（创新能力、综合能力）。您的答案： 题目分数：3.0 此题得分：0.0 教师未批改

57．第28题

简述行政环境的含义。

答案:行政环境是指影响行政系统生存与发展的要素总和，它包括外部环境和内部环境。外部环境是指行政系统界限之外的、直接或间接影响行政系统生存与发展的因素或条件的总称。内部环境是指行政系统界线之内的、影响其生存和发展的各种因素和条件的总和。标准答案：行政环境是指影响行政系统生存与发展的要素总和，它包括外部环境和内部环境。外部环境是指行政系统界限之外的、直接或间接影响行政系统生存与发展的因素或条件的总称。内部环境是指行政系统界线之内的、影响其生存和发展的各种因素和条件的总和。您的答案： 题目分数：3.0 此题得分：0.0 教师未批改

58．第29题

简述维护行政领导权威的原则。

答案:维护行政领导权威，首先取决于党中央和国务院的权威；必须加强组织纪律建设，形成下级服从上级、全党及地方服从中央的高效领导体制；必须在各层领导集体内加强团结、密切配合并形成坚强领导核心；必须与维护国家法律的权威统一；必须建立科学有序的权力分配体系。

标准答案：维护行政领导权威，首先取决于党中央和国务院的权威；必须加强组织纪律建设，形成下级服从上级、全党及地方服从中央的高效领导体制；必须在各层领导集体内加强团结、密切配合并形成坚强领导核心；必须与维护国家法律的权威统一；必须建立科学有序的权力分配体系。您的答案： 题目分数：3.0 此题得分：0.0 教师未批改

59．第43题

简述我国政府预算编制的主要原则。

答案:合法性原则；真实性原则；完整性原则；科学性原则； 稳妥性原则；重点性原则；透明性原则；绩效性原则；

标准答案：合法性原则；真实性原则；完整性原则；科学性原则； 稳妥性原则；重点性原则；透明性原则；绩效性原则； 您的答案： 题目分数：3.0 此题得分：0.0 教师未批改

60．第52题

简述公共危机应对机制包括的基本内容。

答案:公共危机应对机制包括的基本内容：信息报告；先期处置；应急响应；指挥与协调；应急结束。

标准答案：公共危机应对机制包括的基本内容：信息报告；先期处置；应急响应；指挥与协调；应急结束。您的答案： 题目分数：3.0 此题得分：0.0 教师未批改

作业总得分：0.0 作业总批注：

第二篇：VB期末考试题库及答案

试卷方案：201105 Visual Basic期末考试方案

一、单项选择_共50题（选：20题*1’=20分）第1题

以下有关对象属性的说法中，错误的是___________.A.工具箱中的控件并不是VB中所有的控件

B.若将Frame的Enabled属性设置为False，则不能使用放置在Frame里面的控件 C.对象的Name属性在运行时不能改变

D.对象的所有属性都可以在属性窗口中设置

第2题

xe3数学表达式 sin27的VB算术表达式为_______.|xy|A.Sin(27)+Sqr(x+Exp3)/(x+y)B.Sin(27*3.14159/180)+Sqr(x+Exp(3))/Abs(x+y)C.Sin(27*3.14159/180)+Sqr(x+e^3)/Abs(x+y)D.Sin(27*pi/180)+Sqr(x+Exp(3)/Abs(x+y)第3题

下列有关对象的叙述中,正确的是______ A.对象由属性，事件和方法构成

B.对象的所有属性既可以在属性窗口设置，又可以在程序运行时用赋值语句设置 C.对象的事件一定就是由VB预先设置好的人工干预的动作 D.对象的方法是对象响应某个事件后执行的一段程序代码

第4题

表达式CInt(4.5)+Cint(-4.51)+Int(4.9)+Int(-4.1)+Fix(-1.9)+0 Mod 2的运算结果是___.A.1 B.-1 C.–2 D.–3

第5题

下列关于菜单的说法中,错误的是__________.A.每一个菜单项就是一个对象，并且可设置自己的属性和事件 B.菜单项不可以响应DblClick事件 C.VB6.0允许创建超过四级的子菜单

D.程序执行时，如果要求菜单项是灰色，不能被用户选择，则应设置菜单项的Enabled属性为False 第6题

以下关于数组的说法中,错误的是__________.A.使用了Preserve 子句的Redim语句，只允许改变数组最后一维的上界 B.对于动态数组, Redim 语句可以改变其维界但不可以改变其数据类型 C.Erase语句的功能只是对固定大小的数组进行初始化 D.Lbound函数返回值是指定数组某一维的下界

第7题

设a=3,b=2,c=1,运行print a>b>c的结果是____________.A.True B.False

C.1 D.出错

第8题

以下说法不正确的是____________.A.使用不带关键字Preserve的ReDim语句可以重新定义数组的维数 B.使用不带关键字Preserve的ReDim语句可以改变数组各维的上、下界 C.使用不带关键字Preserve的ReDim语句可以改变数组的数据类型

D.使用不带关键字Preserve的ReDim语句可以对数组中的所有元素进行初始化

第9题

在列表框List1中有若干列表项,可以删除选定列表项的语句是__________.A.List1.text=“" B.List1.List(List1.ListIndex)=”“ C.List1.Clear D.List1.RemoveItem List1.ListIndex 第10题

x53数学表达式 e2lnxsin(2x)对应的VB表达式是__________.|sinxcosx2|A.(e^(2*π*x-5)*Log(x)+(Sin(2x))^3)/Sqr(Sin(x)-Cos(x^2))B.(Exp(2*3.14159*x-5)*Log(x)+(Sin(2*x))^3)/Sqr(Sin(x)-Cos(x^2))C.(Exp(2*π*x-5)*Ln(x)+(Sin(2*x))^3)/Sqr(Sin(x)-Cos(x^2))D.e^(2*3.14159*x-5)*Ln(x)+(Sin(2*x))^3)/Sqr(Sin(x)-Cos(x^2))第11题

以下有关数组参数的说明中，正确的是______ A.在过程中也可用Dim语句对形参数组进行说明

B.动态数组作为实参时，可用ReDim语句在过程中改变对应形参数组的维界 C.调用过程时，数组名不能作为实参 D.数组可以按地址传递也可以按植传递

第12题

下列有关过程的说法中,错误的是_____________.A.在Sub或 Function过程内部不能再定义其它Sub或 Function 过程

B.对于使用ByRef说明的形参,在过程调用时形参和实参只能按传址方式结合 C.递归过程既可以是递归Function过程,也可以是递归Sub过程 D.可以像调用Sub过程一样使用Call语句调用Function过程

第13题

要将焦点设置在某个控件上,以下四个选项中正确的是______.A.只能使用鼠标直接点击控件

B.只能使用Tab键将焦点移到该控件

C.只能在程序中调用该控件的SetFocus方法 D.A、B、C三选项中涉及的方法均可使用

第14题

以下Case语句中,能正确描述Y的绝对值大于6的是______.A.Case Abs(Y)>6

B.Case-6 To 6 C.Case Not(-6 To 6)

D.Case Is<-6,Is>6

第15题

以下关于变量作用域的叙述中,正确的是____________.A.窗体中凡用Private声明的变量只能在某个指定的过程中使用 B.模块级变量只能用Dim语句声明

C.凡是在窗体模块或标准模块的通用声明段用Public语句声明的变量都是全局变量 D.当不同作用域的同名变量发生冲突时，优先访问局限性小的变量

第16题

以下关于数值常量的说法中,错误的是______ A.八进制数的表示方法是在数字前面加&O B.十六进制数的表示方法是在数字前面加&H C.在浮点运算中使用D来分隔尾数和指数时，系统将把该数值作为单精度型数处理 D.32768是合法的数值常量

第17题

数学表达式 exsin330xy对应的VB表达式是___________.A.Abs(e^x+Sin(30)^3)∕Sqr(x+y))B.Abs(Exp(x)+Sin(30)^3)∕(Sqr(x+y))

C.Abs(e^x+Sin(30*3.14159∕180)^3)∕(Sqr(x+y))D.Abs(Exp(x)+Sin(30*3.14159∕180)^3)∕Sqr(x+y))

第18题

下面的4个表达式中,有关_________个能够对Single类型变量x(正数)的第3位小数正确地进行四舍五入计算.Format(x,″#.00″)Int(100*(x+0.005))/100 CInt(100*(x+0.005)/100 Fix(100*(x+0.005))/100 A.1个 B.2个 C.3个

D.4个

第19题

执行以下语句时,会出现错误提示的是__________.A.Print”2b3 “ +12.5 B.Print”12.5“+ 12

C.Print”12.5“ & 12.5

D.Print”2e3“+12 第20题

以下Case语句含有错误的是___________.A.Case 0 To 10 B.Case Is>10

C.Case Is>10 And Is<50

D.Case 3,5,Is>10 第21题

下列语句中,正确的是__________ A.Textl.SetFocus B.Forml.Clear C.Labell.SetFocus

D.Listl.Cls 第22题

下列选项中,所包含的所有表达式能够将两位整数x的个位数与十位数对调(如将78转换为87)的是_______________.①Val(Right(X,1)&Left(X,1))②Val(Right(Str(X),1)&Left(Str(X),1))

③Val(Right(CStr(X),1)&Left(CStr(X),1))④Val(Mid(X,2,1)+Mid(X,1,1))A.①② B.②③ C.②④

D.①③④

第23题

以下关于子过程或函数的定义中,正确的是______ A.Sub f1(n As String*1)

B.Sub f1(n As Integer)As Integer D.Function f1(ByVal n As Integer)

C.Function f1(f1 As Integer)As Integer 第24题

下列有关控件数组的说法中,错误的是______.A.控件数组由一组具有相同名称和相同类型的控件组成，不同类型的控件无法组成控件数组 B.控件数组中的所有控件不得具有各自不同的属性设置值 C.控件数组中的所有控件共享同一个事件过程

D.控件数组中每个元素的下标由控件的Index属性指定

第25题

以下对数组参数的说明中,错误的是___________.A.在过程中可以用Dim语句对形参数组进行声明 B.形参数组只能按地址传递

C.实参为动态数组时，可用ReDim语句改变对应形参数组的维界 D.只需把要传递的数组名作为实参，即可调用过程

第26题

要向文件datal.txt添加数据,正确的文件打开命令是_____________.A.Open”datal.txt“For Output As #1 B.Open”datal.txt“For Input As #1 C.Open”datal.txt“For Append As #5 D.Open”datal.txt“ For Write As #5 第27题

下面有关数组处理的叙述中，正确的是__________.A.在过程中使用ReDim语句可以改变动态数组数据的类型 B.在过程中，可以使用Dim、Private和 Static语句来定义数组

C.用ReDim语句重新定义动态数组时，可以改变数组的大小，但不能改变数组的维数 D.不可以用Public语句在窗体模块的通用处说明一个全局数组

第28题

下面的表达式中,运算结果为True的是__________.A.”abcrd“ <=”ABCRD“ C.3>2>1

B.Int(134.69)<=CInt(134.69)

D.Mid(”Visual“,1,4)=Right(”lausiV“,4)第29题

设计界面时,要使一个文本框具有水平和垂直滚动条,应先将其________属性置为True,再将ScrollBar属性设置为3.A.MultiLine B.AutoSize

C.Alignment

D.RightToLeft 第30题

下面有关数组的说法中,正确的是______ A.数组的维下界不可以是负数

B.模块通用声明处有Option Base 1，则模块中数组定义语句Dim A(0 To 5)会与之冲突 C.模块通用声明处有Option Base 1，模块中有Dim A(0 To 5),则A数组第一维维下界为0 D.模块通用声明处有Option Base 1，模块中有DimA(0 To 5),则A数组第一维维下界为1 第31题

下面有关数组的叙述中,不正确的是______.① 在过程中用ReDim语句定义的动态数组,其下标的上下界可以是变量 ② 数组作为形式参数时,传递的是每个数组元素的值

③ 在窗体模块的通用声明处可以用Public 说明一个全局数组

④ 数组定义语句中可以用负数或小数来指定某一维的维下界或维上界的值 A.②③ B.①③④ C.①②③④

D.③④

第32题

下列关于对象SetFocus与GotFocus的描述中,正确的是_____ A.SetFocus是事件,GotFocus是方法

C.Setfocus和GotFocus都是方法

B.Setfocus和Gotfocus都是事件 D.SetFocus是方法,GotFocus是事件

第33题

创建一个名为”文件“的菜单项,欲使其可用Alt+F方式访问,则在菜单编辑器的标题文本框中应输入_________.A.文件($F)B.文件(&F)

C.文件(#F)

D.文件(%F)第34题

在下列属性中,属于CommandButton控件、ListBox控件共有的是______.A.Caption、Text B.Visible、Font

C.Caption、Visible

D.List、Visible 第35题

下列能够正确表示条件”X≤Y

C.X≤Y OR Y

D.X<=Y

以下关于Function过程的说法中,错误的是___________.A.Function过程名可以有一个或多个返回值 B.在Function过程内部不得再定义Function过程 C.Function过程中可以包含多个Exit Function语句 D.可以像调用Sub过程一样调用Function过程

第37题

下面的关系表达式中,运算结果为True的是______.A.CInt(1.5)=Int(1.5)B.Fix(1.5)=Int(1.5)C.Fix(-1.5)=CInt(-1.5)

D.Fix(-1.5)=Int(-1.5)第38题

已知XB,则下列表达式中,结果为True的是______ A.Sgn(X-Y)+Sgn(A-B)=-1

B.Sgn(X-Y)+Sgn(A-B)=-2 C.Sgn(Y-X)+Sgn(A-B)=2

D.Sgn(Y-X)+Sgn(A-B)=0 第39题

执行__________语句时,会出现出错提示信息.A.Print 5+7=14

B.Print 16384*2 C.Print 32768*2

D.Print ”14“+32 第40题

数学表达式 sin30logxy2exy对应的Visual Basic表达式是______.A.Sin(30*3.14159/180)+Sqr(Log(x)+y)/2*3.14159+Exp(x+y)B.(Sin(30*π/180)+Sqr(Ln(x)+y))/(2*π+Exp(x+y))C.Sin(30*180/3.14159)+Sqr(Log(x)+y)/(2*3.14159+e^(x+y))D.(Sin(30*3.14159/180)+Sqr(Log(x)+y))/(2*3.14159+Exp(x+y))

第41题

在一个多窗体程序中,可以仅将窗体Form2从内存中卸载的语句是________.A.Form2.Unload C.Form2.End

B.Unload Form2 D.Form2.Hide 第42题

Print方法可在______上输出数据.①窗体 ②文本框 ③图片框 ④标签 ⑤列表框 ⑥立即窗口 A.①③⑥ B.②③⑤

C.①②⑤

D.③④⑥

第43题

若要使逻辑表达式x>y Xor y

3、y=

3、z=4 C.x=

1、y=

3、z=2

B.x=

2、y=

1、z=2 D.x=

2、y=

2、z=2 第44题

下列____________是合法的变量名.A.abs B.–al

C.cdc d

D.Abe_10 第45题

下列______是正确的VB常量.A.D-6 B.E-6

C.5D

D.5E-6 第46题

若在模块中用Private Function Fun(A as Single,B as Integer)As Integer 定义了函数Fun.调用函数Fun的过程中定义了I、J和K三个Integer型变量,则下列语句中不能正确调用函数Fun的语句是___________.A.Fun 3.14,J B.Call Fun(I,365)

C.Fun(I),(J)

D.K=Fun(”24“,”35“)第47题

若需要在同一窗体内安排两组相互独立的单选按钮(OptionButton),可使用______控件做容器将它们分开.①TextBox ②PictureBox ③ Image ④ Frame A.①或② B.②或③

C.②或④

D.③或④

第48题

以下关于文件的叙述中，错误的是__________。

A.用Output模式打开一个顺序文件，即使不对它进行写操作，原来的内容也被清除 B.可以用Print #语句或 Write# 语句将数据写到顺序文件中

C.若以Output、Append、Random、Binary 方式打开一个不存在的文件，系统会出错 D.顺序文件或随机文件都可以用二进制访问模式打开

第49题

窗体上有若干命令按钮和一个文本框,程序运行时焦点置于文本框中,为了在按下回车键时执行某个命令按钮的Click事件过程,需要将该按钮的_________属性设置为True.A.Enabled B.Default

C.Cancel

D.Visible 第50题

数学表达式 x5cos29(elny)5x 对应的VB表达式是______ A.(x^5-Cos(29))/Sqr(e^x+In(y))+5 B.(x^5-Cos(29))/(Sqr(Exp(x)+Log(y))+5)

C.(x^5-Cos(29*3.14159/180))/(Sqr(Exp(x)+Log(y))+5)D.(x^5-Cos(29*3.14159/180))/(Sqr(e^x+Log(y))+5

二、填空_共20题（选：15空*2’=30分）——阅读理解：填写程序的输出结果 第1题

运行下列程序，单击Command1, 在窗体上显示的第一行内容是______【1】____, 第二行的内容是_____【2】____, 第三行的内容是_____【3】______。Option Explicit Private Sub Command1_Click()Dim s As String s=”Basic“ Call trans(s)End Sub Private Sub trans(s As String)Dim j As Integer,t As String Dim k As Integer k=3 Do j=InStr(s,”a“)t=LCase(Right(s,j))s=Right(t,Len(s)-k)& Left(s,Len(t))k=k-1 Print s Loop Until k=0 End Sub 第2题

执行下面程序，单击Command1，则窗体上显示的第一行是＿【1】＿＿＿，第三行是＿＿【2】＿＿，最后一行是＿＿【3】＿＿。Option Explicit Private Sub Command1＿Click()Dim x As Integer,y As Integer x=12:y=0 Do While x> 0 If x Mod 4=0 Then y=y+x Else y=y-x End If x=x-3 Print x,y Loop End Sub 第3题

执行下面的程序，单击Command1,窗体上显示的第一行是______【1】_____，第二行是______【2】____,第四行是______【3】_____。Option Explicit

Private Sub Command1_Click()Dim a As Integer, b As Integer a=1 : b=1 Call sub1(a, b)Print a, b End Sub Private Sub sub1(a As Integer, b As Integer)a=a+b : b=b+a Print a, b If a>10 Then a=a+b b=b+a Else Call sub1(a, b)End If End Sub 第4题

运行下面的程序，单击Command1,在窗体上显示的变量a的值为____【1】______，变量b的值为_____【2】____,变量c的值为_____【3】______。Option Explicit Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer a=5: b=10: c=15 Print fun(a,b,c)+fun(a,b,c)Print a,b,c End Sub Private Function fun(x As Integer, y As Integer, z As Integer)As Integer z=x x=x+y y=y+z fun=x+y End Function 第5题

执行下面的程序，连续三次单击命令按钮Command1之后，A数组共有 【1】 个元素；数组元素A(2)的值 【2】，A(4)的值是 【3】。Option Explicit Option Base 1 Private Sub Command1_Click()Static A()As Integer,n As Integer Dim i As Integer,k As Integer k=n ' n=n + 2 ReDim Preserve A(n)For i=k+1 To n A(i)=i*n+1 Next i

For i=1 To n Print A(i);Next i Print End Sub 第6题

运行下面程序，单击Command1，在窗体上显示的变量A的值为___【1】____,变量B的值为____【2】______。Option Explicit Dim a As Integer Private Sub Command1_Click()Dim b As Integer b = 3 a = 4 b = fun(fun(a, b + 2), a)+ b Print a, b End Sub Private Function fun(n As Integer, k As Integer)n = n + a k = n2)Else Print ”OVER“ End If End Sub 第9题

运行下列程序，单击Command1，在窗体上显示的第一行内容是 【1】 ,第二行的内容是 【2】 ,第三行的内容是 【3】。（”A“的ASCII码是65，”Z“是90）Option Explicit Private Sub Command1_Click()Dim i As Integer, st As String, n As Integer, p As String * 1 p = ”B“ For i = 3 To 1 Step-1 n = Asc(p)j Else a(i, j)= jLen(s)s = ”0“ & s Next i '**********SPACE********** 【?】 End Function 第2题

'下面程序的功能是：统计存放在数组A中的N个数有多少个是不同的。'具体做法是：变量Left指向要被处理的数（从第2个元素开始），'Right指向数组最后一个元素。若A(Left)与排在它前面的某个数组元素值相同，'就用数组元素A(Right)的值来替换A(Left)的值，同时将变量Right的值减1；

'否则将变量Left的值加1，处理数组下一个元素，重复以上过程，直到Left>Right为止。'Right的值即为不同的数的个数。程序界面参见下图所示。Option Explicit Option Base 1 Private Sub Command1_Click()Dim A()As Integer, N As Integer, I As Integer Dim OP As Integer N = InputBox(”请输入数据个数“, , 10)ReDim A(N)Randomize For I = 1 To N A(I)= Int(Rnd * 10)+ 1 Text1 = Text1 & A(I)& ” “ Next I Call statistic(A, OP)Text2 = ”有 “ & OP & ” 个不同的数: “ For I = 1 To OP Text2 = Text2 & A(I)& ” “ Next I End Sub Private Sub statistic(A()As Integer, Right As Integer)Dim Left As Integer, K As Integer, I As Integer '**********SPACE********** Right=【?】 Left = 2 Do While Left <= Right '**********SPACE********** K= 【?】

For I = K To 1 Step-1 If A(Left)= A(I)Then Exit For Next I '**********SPACE********** If 【?】 Then

Left = Left + 1 Else A(Left)= A(Right)'**********SPACE********** 【?】 End If Loop End Sub 第3题

'下面程序的功能是随机生成小于100的诸素数组成的数据。程序界面如下图所示。Option Explicit Private Sub Command1_Click()Dim p()As Integer,i As Integer,n As Integer Dim st As String,k As Integer Randomize k =InputBox(”元素个数；“，20)ReDim p(k)Do n =Int(Rnd*90)+10 '**********SPACE********** If 【?】 Then i =i+1 p(i)=n End If '**********SPACE********** Loop Until【?】 For i =1 To UBound(p)st =st & Str(p(i))If i Mod 10 =0 Then st =st & vbCrLf Next i Text1 =st End Sub Private Function prime(n As Integer)As Boolean Dim i As Integer Prime =True For i =2 To Sqr(n)If n Mod i =0 Then '**********SPACE********** 【?】 Exit For End If Next i End Function 第4题

'用以下公式求f(x)的值。当通项的绝对值小于10^-7时停止计算，x的值由键盘输入。

'程序界面和公式参考图片所示： Option Explicit Private Sub Command1_Click()Dim x As Single, fx As Single Dim a As Single, a1 As Single, a2 As Single Dim t As Single a1 = 1: a2 = 2 x = Text1 '**********SPACE********** If 【?】Then MsgBox(”x必须在-1～1之间“)Exit Sub End If fx = a1 * x8)'**********SPACE********** 【?】

For J = 1 To Len(Anw)'**********SPACE********** If 【?】Then Scor = Scor + 1 End If Next J

List2.AddItem StudId & ” “ & Scor Next I End Sub 第11题

'下面程序的功能是：输入一个n位的整数（n≤10）,求出由这n个数字组成的n位的 '最小整数和最大整数。Option Explicit 0ption Base 1 Private Sub Command1_Click()Dim n As Long,a()As String n=Text1 Call change(n,a)Call sort(a)For i=1 To UBound(a)large=a(i)& large '**********SPACE********** small=【?】 Next i Text2=large For i=1 To Len(small)'**********SPACE********** If 【?】 Then Exit For Next i If i<>1 Then small =Mid(small, i ,1)& Left(small,i-1)& Right(small,Len(small)-i)End If Text3=small End Sub Private Sub sort(a()As Integer)'冒泡法排序 Dim i As Integer,j As Integer,t As Integer For i=1 To UBound(a)-1 For j=1 To UBound(a)-i '*********SPACE********** If 【?】 Then t =a(j)a(j)=a(j+1)a(j+1)=t End If Next j Next i End Sub '**********SPACE********** Private Sub change(【?】)Dim k As Integer Do k=k+1 ReDim Preserve a(k)

a(k)=n Mod 10 '**********SPACE********** n=【?】 Loop Until n=0 End Sub 第12题

'下面程序的功能是计算如图所示的值。请完善如下程序：

Option Explicit Private Sub Command1_Click()Dim n As Integer, st As String, i As Integer Dim k As Single, s As Single, j As Integer n=Text1 s=1 For i =2 To n '**********SPACE********** 【?】

For j =1 To i st=st & CStr(i)next j '**********SPACE********** k=【?】 s=s + k Next i Text2=s End Sub 第13题

' 在计算机中用一个字节(8位)来存储一个字符的ASCII码, ' 其中低7位二进制数对应字符的编码,每个字节的最高位一般保持为”0“，' 在数据传输时可用作奇偶校验位。传输时ASCII代码转换成传输码的方法是，' 若7位ASCII码有偶数个1，则最高位为1。有奇数个1，则最高位为0。' 例如字母”A“的ASCII码十进制表示为65，二进制表示为01000001。

' ”A“的传输码则为”1100 0001“。本程序的功能就是把ASCII代码转换成这种传输码。' 程序参考界面如下图所示。Option Explicit Private Sub Command1_Click()Dim i As Integer, s As String Dim str As String, ch As String str = Text1.Text For i = 1 To Len(str)'**********SPACE********** 【?】

Call convert(ch, s)List1.AddItem ch & ”==>“ & s

Next i End Sub Private Sub convert(ch As String, s As String)Dim m As Integer, k As Integer, n As Integer, i As Integer '**********SPACE********** s= 【?】 n = Asc(ch)Do While n > 0 '**********SPACE********** 【?】 s = m & s If m = 1 Then k = k + 1 End If n = n 2 Loop For i = 1 To 71 sum = a(idx)+ a(j)If Int(Sqr(sum))= Sqr(sum)Then Exit For Next j '**********FOUND********** If j <= idx1 Else idx = idx + 1 End If Loop End Sub 第2题

'【题目】本程序的功能是生成一组（10个）两位的互质'数。

'一组互质数是指其中任意两个数之间都不存在除1以外'的任何公约数。

Private Sub Command1_Click()Dim i As Integer, k As Integer, num(10)As Integer Dim flag As Boolean, n As Integer num(1)= Int(Rnd * 90)+ 10 k = 1 Do '**********FOUND********** flag =flase n = Int(Rnd * 90)+ 10 For i = 1 To k If gcd(num(i), n)<> 1 Then flag = False Next i If flag Then k = k + 1 num(k)= n End If Loop Until k = 10 For i = 1 To 10 Text1 = Text1 & Str(num(i))Next i End Sub '**********FOUND********** Private Function gcd(ByVal m%, ByVal n%)As Integer Dim r As Integer Do r = m Mod n m = n n = r Loop Until r = 0 '**********FOUND********** gcd = m End Function 第3题

'【题目】本程序的功能是：把10～20范围内的数分别表示成若干个质因子连乘的形式。Option Explicit Option Base 1 Private Sub Command1_Click()Dim j As Integer, pf()As Integer, i As Integer Dim st As String For i = 10 To 20 Call prime_f(i, pf)st = CStr(i)& ”=“ '**********FOUND********** For j = 1 To UBound(pf)-1 st = st & Str(pf(j))& ”*“ Next j st = st & Str(pf(j))List1.AddItem st Next i End Sub

'**********FOUND********** Private Sub prime_f(ByVal n As Integer, a()As Integer)Dim i As Integer, k As Integer i = 2 Do If n Mod i = 0 Then k = k + 1 ReDim Preserve a(k)a(k)= i n = n i Else i = i + 1 End If '**********FOUND********** Loop Until n <= 1 End Sub 第4题

'[题目]本程序的功能是：查找800-1200范围内的所'有具有两个相同数字的素数。

'例如811、877等都是符合要求的数据。Option Explicit Private Sub Command1_Click()Dim i As Integer For i = 800 To 1200 If validate(i)And prime(i)Then List1.AddItem i End If Next i End Sub '**********FOUND********** Private Function validate(n As Integer)As Boolean Dim num()As Integer, k As Integer Dim i As Integer, j As Integer Do k = k + 1 '**********FOUND********** ReDim preserve num(k)num(k)= n Mod 10 n = n 10 Loop Until n <= 0 k = 0 For i = 1 To UBound(num)1 For j = i + 1 To UBound(a)'**********FOUND********** If a(i)= a(j)Then Exit For Next j Next i fun = True

End Function 第6题

'[题目]本程序的功能是：随机生成一个有n个元素的数组（n由inputBox函数），'找出其中的最大元素并将它删除，再输出删除后的数组。Option Explicit Option Base 1 Dim a()As Integer, n As Integer Private Sub Command1_Click()Dim i As Integer n = InputBox(”请输入数组个数", , 10)ReDim a(n)For i = 1 To n a(i)= Int(Rnd * 100)+ 1 Text1 = Text1 & Str(a(i))Next i Call Lookup(a)'**********FOUND********** For i = 1 To n-1 Text2 = Text2 & Str(a(i))Next i End Sub Private Sub Lookup(a()As Integer)Dim Maxv As Integer, maxp As Integer, i As Integer Maxv = a(1): maxp = 1 For i = 2 To n If a(i)> Maxv Then Maxv = a(i): maxp = i End If Next i Call move_f(a, maxp)End Sub Private Sub move_f(a()As Integer, k As Integer)Dim i As Integer For i = k + 1 To UBound(a)'**********FOUND********** a(i-1)= a(i)Next i '**********FOUND********** ReDim preserve(UBound(a)1 For j = i + 1 To UBound(a)'**********FOUND********** If a(i)= a(j)Then Exit Function Next j Next i verify = True End Function

五、程序设计_共12题（选：共2题，1题为8分，另一题10分=18分）第1题

'--'【程序设计】

'--'【题目要求】

' 1)编写程序，生成一个4行5列的二维数组，其每''个数组元素是随机产生的两位数，' 求该数组的最大元素及其所在的行号、列号。'（若有多个相同的最大元素，则要一一标出其所在''行号、列号）

' [算法提示]首先找出最大元素，再将数组中的元素''与最大元素一一比较，' 若有相等元素则输出其所在位置。' 窗体设计界面参见已给出的参考界面。

'【编程要求】

' 1)运行程序，按“运行”按钮(Command1)，生成一个4行5列的两位随机整数数组，' 按参考界面格式显示在多行文本框Text1中，再调用求二维数组最大元素的通用过程，' 最后将结果输出到一个多行文本框Text2中；（注意代码中不得使用randomize语句）' 按“清除”按钮(Command2)，则将文本框与图片框清空；

' 2)程序中应定义一个名为maxele的通用函数过程，用于求二维数组的最大元素。'【代码书写要求】

'1)文本框、命令按钮的名称必须使用系统默认的名称，如Text1，Command1等 '2)请在“****Program*****”与“****End*****”之间添加程序代码 '3)请在指定区间

'(1)先写出自定义函数过程maxele的程序代码以及Command2的代码 '(2)最后完善Command1_Click()事件过程代码。'！！注意：

' Command1_Click()过程的结束语句 End Sub及其它已经给出的代码，' 均不得删除，否则无分。

第2题

'--'【程序设计】

'--'【题目要求】

' 编一程序，将一维数组中元素向右循环移位，移位次数键盘输入。' 例如，数组各元素的值依次为1，2，3，4，5，6，7，8，9，10； ' 位移3次后，各元素的值依次为8，9，10，1，2，3，4，5，6，7。' 窗体设计界面参见已给出的参考界面。

'【编程要求】

' 1)数组可定义为固定大小的10个元素的数组。

' 按“输入”按钮(Command1)，则用inputbox函数逐一输入 ' “1---10”10个数据，并显示在文本框Text1中。' 在文本框Text2中输入循环移位位数（请输入3）

' 按“移位”按钮，调用通用Sub过程rmove()，实现移位操作,同时将 ' 移位后10个数据显示在文本框Text3中。

' 按“清除”按钮Command2，则将3个文本框清空，将焦点置于Text2上； ' 按“退出”按钮Command3，结束程序运行

' 2)程序中应定义一个通用Sub过程rmove()，以实现移位操作。'【代码书写要求】

'1)文本框、命令按钮的名称必须使用系统默认的名称，如Text1，Command1等

'2)请在“****Program*****”与“****End*****”之间添加程序代码 '3)请在指定区间(1)先写出自定义Sub过程rmove()的程序代码

'(2)然后完成Command1_Click(),Command3_Click(),Command4_Click()过程代码。'(3)最后完善Command2_Click()过程代码 '！！注意：

' Command2_Click()过程的结束语句 End Sub及其它已经给出的代码，均不得删除，否则无分。

第3题

'--'【程序设计】

'--'【题目要求】

' 编写程序，随机生成一个4行5列由两位整数组成的数组，并找出其中所有的谷点元素。' 所谓谷点元素是指在本行内为最小，在本列内也为最小的元素。' 窗体设计界面参见已给出的参考界面。

'【编程要求】

' 1）按“生成数组”按钮(Command1)，生成随机数组并'显示到图片框(Picture1)中，' 按“查找谷点”按钮(Command2)，则找出谷点元素，' 并按图示的格式显示到多行文本框(Text1)中，' 按“清除”按钮Command3，清除图片框与文本框。' 2)程序中应定义一个名为cp的Sub过程，用于查找数组某行是否有谷点元素。

'（算法提示：先求出某行最小元素，再判断该元素是'否在该列也为最小，' 若是，则为谷点数，否则，谷点不存在。）'【代码书写要求】

'1)文本框、命令按钮的名称必须使用系统默认的名称，如Text1，Command1等 '2)请在“****Program*****”与“****End*****”之间添加程序代码 '3)请在指定区间

'(1)先写出自定义Sub过程cp的程序代码以及Command1,Command3的代码 '(2)最后完善Command2_Click()事件过程代码。'！！注意：

' Command2_Click()过程的结束语句 End Sub及其它已经给出的代码，' 均不得删除，否则无分。

第4题

'--'【程序设计】

'--'【题目要求】

'编写求前n项级数和的程序。求和公式参见已给出的参考图所示。

' 1）在文本框Text1中输入x值1，文本框Text2中输入n值5，' 按“计算”按钮(Command1)，则开始计算并在列表框List1中显示S1，S2，„，Sn；

' 按“清除”按钮(Command2)，则将两个文本框及列表框清空，焦点置于Text1上； ' 按“退出”按钮(Command3)，结束程序运行；

' 2）程序中应定义一个名为fact的函数过程，用于计算阶乘值。'【代码书写要求】

' 1)列表框、文本框、命令按钮的名称必须使用系统默认的名称，' 如List1，Text1，Command1等，否则扣分。' 2）窗体设计界面参见已给出的参考界面。

' 3)请在“****Program*****”与“****End*****”之间添加程序代码 ' 请在指定区间 1)先写出自定义函数fact及Command2,Command3的程序代码 ' 2)然后完善Command1_Click()过程代码。'！！注意：

' Command1_Click()过程的结束语句 End Sub及其它已经给出的代码，' 均不得删除，否则无分。

第5题

'--'【程序设计】

'--'【题目要求】

'编写程序，以给定的方式标记出方阵中每一行最小元素'的位置。

'如果某一行有多个数值相等的最小元素，也要同时标记'出来。

'标记方式为每一行的最小元素为 0，其他元素为 1。'窗体设计界面参见已给出的参考界面。

’【编程要求】

'1)在文本框Text1中输入 N 值（要求输入5），' 按“执行”按钮，则随机生成一个 N 行 N 列的由两位正整数组成的 N 阶方阵，' 并输出到多行文本框Text2 中，同时求出每一行的最小元素并生成标记矩阵 ' 输出到多行文本框Text3 中；

' 按“清除”按钮，则将3个文本框清空，将焦点置于文本框Text1上； ' 按“退出” 按钮，结束程序运行；

'2)程序中应定义一个求数组某一行的最小元素值的通用Sub过程minx()。'3)原始方阵数据由随机函数生成（注意：不要使用randomize语句）'【代码书写要求】

'1)文本框、命令按钮的名称必须使用系统默认的名称，如Text1，Text2，Command1等 '2)请在“****Program*****”与“****End*****”之间添加程序代码

'3)请在指定区间(1)先写出自定义Sub过程minx()的程序代码以及Command2_Click()、' Commnad3_Click()的代码

'(2)最后完善Command1_Click()过程代码。'！！注意：

' Command1_Click()过程的结束语句 End Sub及其它已经给出的代码，均不得删除，' 否则无分。

第6题

'--'【程序设计】

'--'【题目要求】

'从键盘上输入6名同学的成绩，分别为：87，72，56，89，92，66。将这些成绩 '显示在文本框Text1中（由Command1_Click()事件过程完成）。'然后按降序对这6个成绩进行排序，并将结果显示在文本框Text2中

'（由Command2_Click()事件过程完成）。窗体设计界面参见已给出的参考界面。

'【代码书写要求】

'1)文本框、命令按钮的名称必须使用系统默认的名称，如Text1，Text2，Command1等 '2)用inputbox函数输入成绩。原始成绩必须为上面给出的数据，否则扣分。'3)请在“****Program*****”与“****End*****”之间添加程序代码

第7题

'--'【程序设计】

'--'【题目要求】

' 编写程序，找出随机生成的30个无重复数的三位整数中的降序数。' 所谓降序数是指百位数大于十位数、且十位数大于个位数。' 窗体设计界面参见已给出的参考界面。

'【编程要求】

' 1）单击“执行”按钮(Command1)，随机生产30个无重复数的三位整数，' 按10个数一行的格式显示在多行文本框Text1中，再找出其中的降序数输出到列表框List1； ' 要求程序代码中不得使用Randomize语句，否则扣分。

' 如果数据中无降序数存在，则使用msgbox输出“无降序数”信息，' 按“清除”按钮(Command2)，将文本框及列表框清空。

' 2）程序中应定义一个名为jx的函数过程，用于判断一个整数是否为降序。'【代码书写要求】

'1)文本框、命令按钮的名称必须使用系统默认的名称，如Text1，Command1等 '2)请在“****Program*****”与“****End*****”之间添加程序代码 '3)请在指定区间

'(1)先写出自定义函数过程jx的程序代码以及Command2的代码 '(2)最后完善Command1_Click()事件过程代码。'！！注意：

' Command1_Click()过程的结束语句 End Sub及其它已经给出的代码，' 均不得删除，否则无分。

第8题

'--'【程序设计】

'--'【题目要求】

' 编写程序，找出100以内的所有素数，存放在数组P中，' 并将所找到的素数，按每行10个的形式显示在文本框'Text1中。

' 窗体设计界面参见已给出的参考界面。

'【编程要求】

'1)按“找素数”按钮(Command1)，则查找素数，并按格式要求显示在多行文本框Text1中。

'2)程序中应定义一个通用函数过程Prime(),以判断一个数是否为素数。'【代码书写要求】

'1)文本框、命令按钮的名称必须使用系统默认的名称，如Text1，Command1等 '2)请在“****Program*****”与“****End*****”之间添加程序代码 '3)请在指定区间(1)先写出自定义函数过程Prime()的程序代码

'(2)然后完善Command1_Click()过程代码 '！！注意：

' Command1_Click()过程的结束语句 End Sub及其它已经给出的代码，' 均不得删除，否则无分。

第9题

'--'【程序设计】

'--'【题目要求】

' 1)编写程序，本程序的功能是：首先按给定格式（数据以逗号分隔，-1表示数据结束）' 将输入到文本框Text1中的数据(12,22,15,25,17,22,19,11,-1)依次存入一个数组p，' 然后为该组数据建立一个按从大到小次序排列的索引表并显示在文本框Text2中。' 文本框Text2中的第一个数据4表示文本框1中第4个数最大； ' 文本框2中的最后一个数据8表示文本框1中第8个数最小。' 2)窗体设计界面参见已给出的参考界面。

'【编程要求】

' 1）在文本框Text1中输入测试数据，按“处理”按钮(Command1)，' 则按题目要求得到结果并显示在文本框Text2中；

' 按“清除”按钮(Command2)，则将2个文本框清空，将焦点置于文本框Text1上； ' 按“退出”按钮(Commnad3)，结束程序运行。

' 2）程序中应定义一个通用Sub过程lnum,用于把Text1中的原始数据放入数组p中。' 3)程序中应定义一个根据数组元素的大小从大到小取其排列号的通用Sub过程Ind。'【代码书写要求】

'1)文本框、命令按钮的名称必须使用系统默认的名称，如Text1，Command1等 '2)请在“****Program*****”与“****End*****”之间添加程序代码 '3)请在指定区间

'(1)先写出自定义Sub过程lnum()和Ind()的程序代码以及Command2、Command3的代码'(2)最后完善Command1_Click()事件过程代码。'！！注意：

' Command1_Click()过程的结束语句 End Sub及其它已经给出的代码，' 均不得删除，否则无分。

第10题

'--'【程序设计】

'--'【题目要求】

'编写程序，找出50以内的所有不可表示成两个平方数之和的整数。'窗体设计界面参见已给出的参考界面。

’【编程要求】

'1)按“执行”按钮Command1，则开始运行程序，按参考界面格式将符合条件的数 ' 显示在多行文本框中，每行显示5个数； ' 按“清理”按钮Command2，则将文本框清空； ' 按“结束”按钮Command3，结束程序运行；

'2)程序需创建一个通用Sub过程Sub1，该过程的功能是判断一个数是否是平方数； '3)显示在文本框中的数据必须按参考界面中的形式对齐。'【代码书写要求】

'1)文本框、命令按钮的名称必须使用系统默认的名称，如Text1，Command1等 '2)请在“****Program*****”与“****End*****”之间添加程序代码 '3)请在指定区间

'(1)先写出自定义Sub过程Sub1的程序代码以及Command2、Commnad3的代码 '(2)最后完善Command1_Click()过程代码。'！！注意：

' Command1_Click()过程的结束语句 End Sub及其它已经给出的代码，' 均不得删除，否则无分。

第11题

'--'【程序设计】

'--'【题目要求】

' 1)编写程序，找出由1，2，3，4四个不同数字组成的四位整数中的素数。

' 2)窗体设计界面参见已给出的参考界面。

'【编程要求】

' 1）单击“开始”按钮(Command1)，生成（或筛选出）由1，2，3，4 四个数字

' 组成的4位整数，并显示在列表框List1中，在列表框List2中显示其中的素数。

' 2）单击“清理”按钮(Command2)，则将两个列表框清空； ' 单击“退出”按钮(Command3)，结束程序运行。

' 3）程序中必须包含一个判断某数是否为素数的通用函数过程Prime。

' 4)程序中必须包含一个判断某数是否仅由1--4构成且各数字仅出现1次的 ' 通用函数过程Compare。'【代码书写要求】

'1)列表框、命令按钮的名称必须使用系统默认的名称，如List1，Command1等 '2)请在“****Program*****”与“****End*****”之间添加程序代码 '3)请在指定区间

'(1)先写出自定义函数过程Prime的程序代码以及Command2、Command3的代码 '(2)最后完善Command1_Click()事件过程代码。'！！注意：

' Command1_Click()过程的结束语句 End Sub及其它已经给出的代码，' 均不得删除，否则无分。

第12题

'--'【程序设计】

'--'【题目要求】

'编写程序，随机生成10个[10,99]区间的整数，并用选择法对这十个数进行排序。'窗体设计界面参见已给出的参考界面。

’【编程要求】

'1)按“生成”按钮(Command1)，则随机生成（注意：不要使用randomize语句）' 10个两位正整数组成的数列，并输出到文本框Text1中

' 按“排序”按钮(Command2)，则将10个数排序后显示在文本框Text2中 '2)程序中应定义一个通用Sub过程ssort(),以实现选择法排序过程。'【代码书写要求】

'1)文本框、命令按钮的名称必须使用系统默认的名称，如Text1，Text2，Command1等'2)请在“****Program*****”与“****End*****”之间添加程序代码 '3)请在指定区间

(1)先写出自定义Sub过程ssort()的程序代码以及Command1_Click()过程代码 '(2)最后完善Command2_Click()过程代码。'！！注意：

' Command2_Click()过程的结束语句 End Sub及其它已经给出的代码，' 均不得删除，否则无分。

第三篇：2021年《中国近现代史纲要》期末考试题库及答案

2021年《中国近现代史纲要》期末考试题库及答案

一、单选题

1.中国封建社会政治的基本特征是高度中央集权的（A）。

A．封建君主专制制度

B．封建宗法等级制度

C．君主立宪制

D．宗族家长制

2．在19

世纪中叶，被称为“海上霸主”、“日不落帝国”的殖民国家是（D）。

A．美国

B．德国

C．日本

D．英国

3.提出“师夷长技以制夷”的思想的是

（C)。

A.林则徐

B.严复

C.魏源

D.康有为

4.关于近代中国半殖民地半封建社会性质的叙述，不正确的是