选择结构作业 (2)
结构力学(二) ( 复习资料汇总 )
第1次作业（结构力学二）一、单项选择题（本大题共40分，共 20 小题，每小题 2 分）1. 位移法的基本结构是( )A. 静定刚架；B. 单跨静定梁的组合体；C. 单跨超静定梁的组合体D. 铰结体系2. ：以下关于影响线的说法不正确的一项为( )A. 影响线指的是单位力在结构上移动时所引起的结构的某一内力(或反力)变化规律的图形B. 利用影响线可以求结构在固定荷载作用下某个截面的内力C. 利用影响线可以求结构某个截面内力的最不利荷载位置D. 影响线的横坐标是截面位置，纵坐标为此截面位置处的截面内力值3.A. B. C. D. 仅由平衡条件不能确定4. 不计杆的分布质量，图示体系的动力自由度为( )A. 1；B. 2；C. 3；D. 45. 用力法计算超静定结构时，其基本未知量为A. 杆端弯矩；B. 结构角位移；C. 结点线位移；D. 多余未知力6. 单元坐标转换矩阵是（） A. 奇异矩阵 B. 对称三对角矩阵 C. 对称非奇异矩阵 D. 正交矩阵7. 位移法的基本未知量包括（）A. 独立的角位移B. 独立的线位移C. 独立未知的结点角位移和线位移D. 结点位移8. 图乘法计算位移的公式中( )A. A和yC 可取自任何图形B. A和yC必须取自直线图形C. 仅要求A必须取自直线图形D. 仅要求yC必须取自直线图形9. 已知材料屈服极限 =300MPa,结构截面形状如图所示，则极限弯矩Mu=（）A. 20kN•mB. 25kN•mC. 30kN•mD. 35kN•m.10. 整体坐标系下单元刚度矩阵与下面的哪一个因素无关A. 局部坐标与整体坐标的选取B. 结构的约束信息C. 单元的几何参数D. 杆端位移与杆端力之间的变换关系11. 欲减小图示结构的自振频率，可采取的措施有（）A. 减小质量mB. 增大刚度EIC. 将B支座改为固定端D. 去掉B支座12. 图（b）为图（a）所示结构MK影响线，利用该影响线求得图（a）所示固定荷载作用下的MK值为（）A. 4kN•mB. 2kN•mC. -2kN•mD. -4kN•m13. 图示为三自由度体系的振型，其相应的频率是ωa 、ωb、ωc，它们之间的大小关系应是( )A. B. C. D.14. 图（a）所示一组移动荷载作用在图（b）所示的梁上，则C截面弯矩的最不利位置为（）A. P1作用在C点上 B. P2作用在C点上 C. P3作用在C点上 D. P3作用在B点上15. 平面杆件自由单元(一般单元)的单元刚(劲)度矩阵是( )A. 非对称、奇异矩阵B. 对称、奇异矩阵C. 对称、非奇异矩阵D. 非对称、非奇异矩阵16. 对称结构在反对称荷载作用下，内力图中为正对称的是( )A. 弯矩图B. 剪力图C. 轴力图D. 弯矩图、剪力图和轴力图17. 由于温度改变，静定结构（） A. 会产生内力，也会产生位移； B. 不产生内力，会产生位移； C. 会产生内力，不产生位移； D. 不产生内力，也不产生位移。
《2.2 做出判断的分支》作业设计方案-高中信息技术教科版19必修1
《做出判断的分支》作业设计方案（第一课时）一、作业目标通过本次作业，学生将能够：1. 理解和掌握分支结构的基本概念；2. 熟练使用条件语句，实现根据不同条件做出决策；3. 掌握循环语句的基本用法，实现重复操作。
二、作业内容1. 选择结构练习：为学生提供一组问题，问题中包含一些选择结构的使用，如“判断一个数是否为偶数”、“判断一个数是否在指定范围内”等。
学生需要使用条件语句（if-else语句）来回答这些问题，并给出正确的答案。
2. 循环结构练习：为学生提供一组需要重复执行的任务，如“计算一组数字的总和”、“统计一组数据的出现次数”等。
学生需要使用循环语句（for、while循环）来实现这些任务，并给出正确的结果。
三、作业要求1. 学生需独立完成作业，不得抄袭；2. 作业完成后，学生需提交电子版作业至教师指定的平台；3. 作业应符合课程要求，不得出现与课程无关的内容；4. 提交的作业应清晰、规范，格式正确。
四、作业评价1. 教师将对学生的作业进行批改，并给出相应的分数；2. 评价标准包括：学生对条件语句和循环语句的掌握情况、解题的正确性、完成质量等；3. 评价结果将作为学生平时成绩的参考之一。
五、作业反馈1. 学生可针对作业中遇到的问题与教师进行沟通，寻求帮助；2. 教师将收集学生反馈，对教学方案进行调整，以更好地满足学生的学习需求。
具体作业内容及要求如下：一、理解和掌握分支结构的基本概念。
请学生通过查阅资料或与同学讨论的方式，理解什么是分支结构，并举例说明分支结构在实际生活中的应用。
完成这部分作业时，请注意表述清晰、逻辑明确。
二、使用条件语句（if-else语句）来回答问题。
教师为学生提供一组问题，问题中包含一些选择结构的使用。
学生需独立完成回答，并注意表达的准确性和逻辑性。
请将回答以电子版形式提交。
三、使用循环语句（for/while循环）实现重复操作。
教师为学生提供一组需要重复执行的任务，学生需使用循环语句来实现这些任务。
2020-2021学年 新人教版 选择性必修2 生态系统的结构 作业
课时跟踪检测( 七)生态系统的结构一、选择题：每小题给出的四个选项中，只有一个选项是最符合题目要求的。
1．下列组合中，依次属于种群、群落、生态系统的一组是()①一块稻田中所有三化螟卵、幼虫、蛹和成虫②某一池塘的全部生物③亚马逊丛林的全部生物及其非生物环境④长白山上的全部动物及绿色植物A．③④①B．②③④C．①②③D．①②④解析：选C种群是指在一定的自然区域内，同种生物的全部个体的总和，①符合种群的概念；群落是指同一时间内聚集在一定区域中各种生物种群的集合，②符合群落的概念；生态系统是在一定空间内，由生物群落与它的非生物环境相互作用而形成的统一整体，③符合生态系统的概念；C正确。
2．在生态系统中能将太阳能转化到生物群落中的是()A．蚯蚓B．硅藻C．硝化细菌D．酵母菌解析：选B生态系统中生产者可通过光合作用将太阳能转化到生物群落中，上述生物中，只有硅藻能进行光合作用；硝化细菌虽然是生产者，但不能进行光合作用，只能进行化能合成作用；蚯蚓和酵母菌都是分解者。
3．下列四项中的圆分别表示：a—生产者、b—分解者、c—原核生物，d—蓝细菌、e—腐生细菌。
能正确表示它们之间相互关系的是()解析：选A蓝细菌属于生产者，腐生细菌属于分解者，蓝细菌和腐生细菌均属于原核生物，原核生物还有属于消费者的，故a包含d，b包含e，d和e属于c，A正确；B、C、D错误。
4．成语“螳螂捕蝉，黄雀在后”所隐含的食物链中，至少具有的营养级数目和螳螂在此食物链中所处的营养级分别是()A．3个、第二营养级B．3个、第三营养级C．4个、第二营养级D．4个、第三营养级解析：选D食物链的第一营养级是生产者，该成语中隐含的食物链是植物→蝉→螳螂→黄雀，故该食物链至少有4个营养级，螳螂是第三营养级。
5．在生态系统的营养结构中，食物网可使()A．每种生物都能将能量传递到下一营养级B．每种生物都限定在一条食物链的固定位置上C．很多互有联系的食物链连接成复杂的营养关系D．生态系统营养结构的复杂程度不断增加解析：选C处于最高营养级的生物不能将能量传递给下一营养级，A错误；在食物网中，各种动物所处的营养级并不是一成不变的，可以同时存在多种种间关系，B错误；很多互有联系的食物链连接成复杂的营养关系，C正确；生态系统营养结构的复杂程度不是不断增加的，D错误。
建筑结构作业答案 (2)
《建筑结构》作业1一、填空题（每小题2分，共20分）1．对于有明显流幅的钢筋(俗称软钢)，一般取（屈服强度）作为钢筋设计强度的依据。
2．混凝土强度等级的表示方法为，符号C代表（混凝土），C后面的数字表示以（2/mmN）为单位的立方体抗压强度标准值。
3．结构的极限状态分（承载能力极限状态）和（正常使用极限状态）两种。
4．混凝土和钢筋的强度设计值，定义为强度标准值（除以）相应的材料强度分项系数。
5．（纵向受力钢筋）的外边缘至（混凝土）表面的垂直距离，称为混凝土保护层厚度，用c表示6、钢筋混凝土从加荷至构件破坏，梁的受力存在着三个阶段，分别为弹性工作阶段、（带裂缝工作阶段）和（破坏阶段）阶段。
7、受拉钢筋首先到达屈服，然后混凝土受压破坏的梁，称为（适筋）梁，这种破坏称为（延性）破坏。
8、影响有腹筋的斜截面破坏形态的主要因素是（剪跨比）和（配箍率）。
9、钢筋混凝土梁的斜截面破坏的三种形式中，只有（剪压）破坏是斜截面承载力计算的依据。
10、T型截面梁按中和轴位置不同分为两类：第一类T型截面中和轴位于（翼缘内）,第二类T型截面中和轴位于（梁肋内）。
二、选择题（每小题2分，共20分）1．对于无明显屈服点的钢筋，其强度标准值取值的依据是（D）A.最大应变对于的应力B.极限抗拉强度C. 0.9倍极限抗拉强度D.条件屈服强度2.我国规范采用（A）作为确定混凝土强度等级的依据。
A．立方体抗压强度标准值B．轴心抗压强度C．轴心抗拉强度D．劈拉强度3. 建筑结构在其设计使用年限内应能满足预定的使用要求，有良好的工作性能，称为结构的（B）A．安全性B．适用性C．耐久性D．可靠性4.当结构或构件出现下列状态（A）时，即认为超过了承载能力极限状态。
A．结构转变为机动体系B．出现了影响正常使用的过大振动C．挠度超过允许值D．裂缝超过了允许值5.截面尺寸和材料强度一定时，钢筋混凝土受弯构件正截面承载力与受拉区纵筋配筋率的关系是（C）。
《程序设计基础》作业二答案（12秋）
《程序设计基础》作业二答案（12秋）作业二答案一、选择题1、C语言中，使用变量的要求是______。
AA 要先定义后使用B 要先使用后定义C 不需要定义，可以直接使用D 没有明确的要求2、不是C语言的基本数据类型是______。
DA intB doubleC charD bool3、编程语言提供的三种基本控制结构是______。
DA 输入、处理和输出结构B 常量、变量和表达式结构C 表达式、语句和函数结构D 顺序、选择和循环结构4、在C语言中，决定int数的表示范围的因素是______。
AA int类型占用的字节数量B 人为事先的约定和习惯C 所存储的数据是否有符号D 数在内存中的编码方式5、C语言中，关于运算符的正确概念是_____。
DA 运算符具有优先级，同优先级的运算符由括号决定运算次序B 在不同优先级运算符进行混合运算时，运算的先后次序取决于结合性C 在同优先级的运算符参与运算时，先计算左侧的运算符D 运算符具有优先级和结合性6、在C语言中关于循环语句的结论中，错误的是______。
DA do-while语句构成的循环至少要执行一次B while语句和for语句可以相互替代C for和while语句的循环控制条件都是当条件成立时执行循环体D do-while语句的循环控制条件是当条件不成立时继续执行循环体二、填空题1、最基本的程序控制有三种，它们是______，______和______。
这三种执行控制的任意组合和重复、嵌套就可以描述任意复杂的程序。
顺序执行、分支控制和循环控制2、C语言中分支语言是______语句和______语句。
if，switch3、C语言中循环语言是______语句，______语句和______语句。
while，for和do-while4、C语言中自增运算符是______，求余数的运算符号是______。
++，%5、C语言中要改变循环语句的流程可以使用语句______，______和______。
实验报告(选择结构)
深圳大学实验报告课程名称：程序设计基础
实验项目名称：选择结构
学院：计算机与软件学院
专业：
指导教师：朱映映
报告人：文成学号：2011150259 班级： 5 实验时间：2011-10-31
实验报告提交时间：2011-11-1
教务处制
2. 程序（1）的流程图：
3. 程序（1）的流程图：
程序代码如下：
#include<iostream.h>
#include<conio.h>
void main()
{
int menu;
cout<<"菜单如下，请选择。
"<<endl;
cout<<"1. 字符输出"<<endl
实验结果达到实验要求。
实验结果达到实验要求。
实验结果达到实验要求。
2、教师批改学生实验报告时间应在学生提交实验报告时间后10日内。
11。
C语言_实验二、选择结构程序设计
实验二 选择结构程序设计一、实验目的1. 掌握关系表达式和逻辑表达式的使用。
2. 熟悉选择结构程序设计。
3. 熟练使用if 语句进行程序设计。
4. 使用switch 语句实现多分支选择结构。
二、实验内容（1 计算a+|b| 2 判断一个整数是否可以被3和5整除）1．[目的]掌握判断一个字符型数据是否数字字符的方法，以及数字字符转换为相应整数的方法。
[题目内容]从键盘输入一个字符型数据，若输入一个数字字符（'0'-'9'），则将其转换成相应的整数显示出来；若输入其它字符，则显示出错信息。
[输入]一个字符型数据[输出]整数或出错信息[提示] 根据字符型数据的ASCII 码值是否在‘0’字符与‘9’字符之间进行判断。
使用if …else …语句和复合语句。
2．[目的]掌握条件表达式的使用[题目内容] 编写一个程序，其功能为：从键盘输入三个数x 、y 、z ，判断x+y=z 是否成立，若成立输出‚x+y=z ‛的信息，否则输出‚x+y!=z ‛的信息。
[输入] 三个数x 、y 、z[输出] ‚x+y=z ‛或‚x+y!=z ‛[提示] 条件判断表达式x+y==z3．[目的]掌握求最大值最小值的方法。
[题目内容] 编写一个程序，其功能为：输入三个整数，输出最大数和最小数。
[输入] 三个整数[输出] 最大值和最小值[提示] 设置最大值变量max 和最小值变量min ；首先比较a,b 的大小，并把大数存入max ， 小数存入min ；然后最大值变量max 和最小值变量min 再与c 比较，若c 大于max ，则max 取值c ，否则保持不变；如果c 小于min ，则min 取值c ，否则保持不变。
最后输出max 和min 的值。
使用if …else …语句、if 语句以及复合语句。
4．[目的]运用已学知识解决实际问题。
[题目内容]如下两个线性方程组的两个未知数为x1和x2：ax 1+bx 2=mcx 1+dx 2=n该方程的唯一解为（ad-cb 不等于零时）：cb ad bn md x --=1 bcad mc na x --=2 请编写一个程序，读取a 、b 、c 、d 的值，计算x1和x2的值。
选择结构作业解答(3)
选择结构作业解答（3）一、选择题：1.判断char型变量ch是否位数字的表达式的是：a)‘0’ < = ch <= ’9’ b) (ch > ‘0’)&&( ch <’9’)c) (ch >= ‘0’)&&( ch <= ’9’) d) (ch >= ‘0’)||( ch <= ’9’)答案：b）2.能正确表示a和b不同时为0的逻辑表达式的是：a) a*b==0 b) (a==0)||( b==0)c) (a==0&&b!=0)&&( b==0&&a!=0) d)(a! = 0)||( b != 0)答案：d）解答：3.能表示a不能被2整除且a、b不相等，但a、b的和等于0的C语言逻辑表达式是：a) a==-b && a%2==0 b) a!=b && a+b==0 && a%2c) !(a%2)&&a==-b d) a%2==0 a+b==0答案：d）解答：4.有以下程序：#include<stdio.h>void main{ int x=2，y=3，z；char ch=‘a’;z=(x||!y)&&(ch>’A’);}程序运行后z的值是a)true b)false c)0 d)15.关于if后面一对圆括号中的表达式，叙述正确的是a) 只能用关系表达式 b) 只能用逻辑表达式c) 只能用关系表达式或逻辑表达式 d) 可以使用任意合法的表达式6.对switch后面一对圆括号中的表达式，叙述正确的是a) 只能用数字 b) 可以是浮点数c) 只能用整型数据或字符型数据 d)以上叙述都不对7.以下不正确的if语句是a) if (a<b) t=a; b) if (a!=b && b);c) if (a=b) printf(“equal”); c)if (a>b)&&(b>c) printf(“max=%d”， a);8.有以下程序：#include<stdio.h>void main(){ int m=-2;if(m=0) printf(“@@@”);else printf(“%%%”); }程序运行后的输出结果是：a）@@@ b)%%% c)%% d)@@@%%% 9.有以下程序：#include<stdio.h>void main(){ int a=12,b=20,t=18;if(a>b) t=a;a=b;b=t;printf(“a=%d,b=%d,t=%d”,a,b,t); }程序运行后的输出结果是：a）a=12,b=20,t=18 b)a=20,b=18,t=18c) a=20,b=12,t=12 d)a=20,b=18,t=1210.有以下程序：#include<stdio.h>void main(){ int t=65;if(t>45) printf(“%d”,t);else printf(“%d”,t);if(t>35) printf(“%d”,t);else printf(“%d”,t);if(t>25) printf(“%d”,t); }程序运行后的输出结果是：a）65 b)6565 c) 656565 d)不确定的值11.有以下程序：#include<stdio.h>void main(){ int t=8;if(t-->=8) printf(“%d\n”,t--);else printf(“%d\n”,t++); }程序运行后的输出结果是：a）9 b)8 c) 7 d)612.有以下程序：#include<stdio.h>void main(){ int a=2,b=5,c=3,d=2,x;if(a%3>b)if(c>d)if(b<d) x=++b;else x=++d;else x=--c;else x=++b; }程序运行后的x的值是：a ）6 b)3 c) 2 d)713. 与“y=(x>0?x:x<0?-x:0)”的功能相同的if 语句是b) if (x>0) y=x; else if(x<0) y=-x; else y=0;14. 若a 、b 、c1、c2均是整型变量，x ，y 是浮点型变量，则以下正确的switch 语句是15. 以下关于switch 和break 语句的说法中正确的是a) break 语句只能用在switch 语句中；b) 在switch 语句中，可以根据需要决定是否使用break 语句； c) 在switch 语句中必须使用break 语句； d) 以上选项都不正确； 16. 有以下程序：#include<stdio.h> void main(){ int c;c=getchar （）； switch(c-‘2’) { case 0:case 1: putchar(c+4);case 2: putchar(c+4);break; case 3: putchar(c+3);a) switch (c1+c2){case 1:y=a+b;break ； case 2:y=a-b;break; case 1:y=b-a;break;}b ） switch (x+y){ case 1:case 2:printf(“%d ”,a+b);break; }d ）switch (a-b){default: y=a*b;break; case 10:case 9: x=a+b;break; case 7:case 5: y=b-a;break;}c ） switch (c1+c2)； {case c1:y=a-b;break ； case c2:x=a*b;break; default:x=a+b;}b ）if (x) if(x>0) y=x; else if(x<0) y=-x; else y=0;c) y=-x;if (x) if(x>0) y=x; else if(x==0) y=0; else y=-x; a) if (x) if(x>0) y=x; else if(x<0) y=-x; else y=0; d) y=0; if (x>=0) if(x>0) y=x; else y=-x;case 4: putchar(c+2);break;}}程序运行后,输入2<回车>，输出结果是：a）66 b)6 c）6654 d)没有输出内容二、填空题：1.关系运算符、逻辑运算符、算术运算符和赋值运算符的运算优先级顺序由高到低的排列顺序是算术运算符、关系运算符、逻辑运算符、赋值运算符。
《第12课 算法的控制结构》作业设计方案-初中信息技术浙教版2020七年级下册自编模拟
《算法的控制结构》作业设计方案（第一课时）一、作业目标本作业旨在帮助学生理解和掌握算法的控制结构，包括顺序结构、选择结构和循环结构。
通过完成作业，学生将能够在实际编程中运用这些控制结构，提高算法设计和实现的能力。
二、作业内容1. 编写一个简单的程序，实现顺序结构。
例如，程序要求用户输入两个数字，并按照从小到大的顺序输出这两个数字。
2. 编写一个程序，实现选择结构。
例如，程序要求用户选择是要打印大写字母还是小写字母，根据用户的选择输出不同的结果。
3. 编写一个程序，实现循环结构。
例如，程序要求用户输入一系列数字，并将这些数字累加求和。
可以使用循环语句（如for 或while）来实现循环结构。
三、作业要求1. 独立完成：学生需独立完成作业，不得抄袭或借助他人完成。
2. 代码规范：要求代码规范、整洁，注释清晰易懂。
3. 提交作业：学生需将完成的程序以附件形式提交，并附上一段简短的说明，阐述程序的实现思路和功能。
四、作业评价1. 评价标准：根据代码规范性、程序功能实现情况、问题解决能力等方面进行评价。
2. 评价方式：教师对学生提交的作业进行评阅，给出评价结果。
3. 评价反馈：对于普遍存在的问题，将在课堂上进行讲解和指导，帮助学生更好地理解和掌握算法的控制结构。
五、作业反馈在作业提交后的几周内，我们将对所有提交的作业进行反馈。
对于表现优秀的学生和优秀作品，我们将给予适当的奖励和表扬，并在班级内进行展示和推广。
同时，我们也将在课堂上对普遍存在的问题进行讲解和指导，帮助学生更好地理解和掌握算法的控制结构。
此外，我们还将根据学生作业的完成情况，对教学内容和方法进行反思和调整，以更好地满足学生的学习需求。
我们希望通过这样的作业设计方案，帮助学生更好地理解和掌握算法的控制结构，提高他们的编程能力和问题解决能力。
我们鼓励学生在完成作业的过程中积极思考、敢于尝试、不怕失败。
我们相信通过这样的学习和实践，学生们将在算法设计和实现方面取得更大的进步。
C语言程序设计第四次作业-选择结构（2）
C语⾔程序设计第四次作业-选择结构（2）（⼀）改错题输出三⾓形的⾯积和周长，输⼊三⾓形的三条边a、b、c，如果能构成⼀个三⾓形，输出⾯积area和周长perimeter（保留2位⼩数）；否则，输出“These sides do not correspond to a valid triangle”。
输⼊输出样例1： Enter 3 sides of the triangle: 5 5 3 area = 7.15； perimeter = 13.00输⼊输出样例2： Enter 3 sides of the triangle: 1 4 1 These sides do not correspond to a valid triangle源程序（有错误的程序）#include <stdio.h>#include <math.h>int main(void){double a,b,c;double area,perimeter,s;printf("Enter 3 sides of the triangle: ");scanf( "%lf%lf%lf",&a,&b,&c );if( a + b > c || b + c > a || a + c > b)s = ( a + b + c ) / 2;area = sqrt( s * ( s - a ) * ( s - b ) * ( s - c );perimeter = a + b + c;printf("area = %.2f; perimeter = %.2f\n",area,perimeter);elseprintf("These sides do not correspond to a valid triangle\n");return 0;}错误信息1：错误原因：少⼀个右括号。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
选择结构作业
1、在购买某物品时，若所花钱x在下述范围内，所
付钱y按对应折扣支付
Y= x x<1000
0.9x 1000<=x<2000
0.8x 2000<=x<3000
0.7x x>=3000
程序代码为：
Private Sub Command1_Click()
Dim x!, y!
x = Val(InputBox("输入X的值"))
If x < 1000 Then
y = x
ElseIf x < 2000 Then
y = 0.9 * x
ElseIf x < 3000 Then
y = 0.8 * x
Else
y = 0.7 * x
End If
Print "x="; x; "y="; y
End Sub
3、输入x,y,z三个数，按从大到小次序显示，如图：
X y z
排序前23 676 67
排序后676 67 23
程序代码为：
Private Sub Command1_Click()
Dim x!, y!, z!
x = InputBox("输入x")
y = InputBox("输入y")
z = InputBox("输入z")
Print " x y z"
Print "排序前"; x; ""; y; ""; z
If x < y Then
t = x
x = y
y = t
End If
If x < z Then
t = x
x = z
z = t
End If
If y < z Then
t = y
y = z
z = t
End If
Print "排序后" & x & " " & y & " " & z End Sub
4、完成如图所示的计算器程序
程序代码如下：
Private Sub Command1_Click()
Dim x!, y!, z!
x = Val(Text1.Text)
y = Val(Text2.Text)
c = Trim(Text3.Text)
Select Case c
Case "+"
z = x + y
Case "-"
z = x - y
Case "*"
z = x * y
Case "/"
z = x / y
End Select
Text4.Text = z
End Sub
7、判断输入文本框中的表达式的左括号“（”和右括号“）”的配对情况
程序代码为：
Dim n%
Private Sub Command1_Click()
n = 0
Text1 = ""
Form1.Cls
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) <> "=" Then
If Chr(KeyAscii) = "(" Then
n = n + 1
ElseIf Chr(KeyAscii) = ")" Then
n = n - 1
End If
Else
If n = 0 Then
Print "配对正确，恭喜发财"
ElseIf n > 0 Then
Print "左括号多于右括号" & n & "个，按“重置”
以重新输入"
Else
Print "右括号多于左括号" & Abs(n) & "个，按“重置”以重新输入"
End If
End If
End Sub
1、输入年份，判断是否为闰年
（year 是闰年，即year 能被4 整除但不能被100 整除，或year 能被400 整除）程序代码如下：
Private Sub Command1_Click()
Dim x!
x = Val(Text1.Text)
If x Mod 400 = 0 Then
Label2.Caption = "此年份是闰年"
Else
If x Mod 4 = 0 Then
If x Mod 100 > 0 Then
Label2.Caption = "此年份是闰年"
End If
Else
Label2.Caption = "此年份不是闰年"
End If
End If
End Sub
2、编写程序，输入一元二次方程的系数a，b，c，计算方程的根（判断两个实根，两个虚
根和两个相等根的各种情况）
程序代码如下：
Private Sub Command1_Click()
Dim a!, b!, c!, x!, y!, z!, h!
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
x = b ^ 2 - 4 * a * c
If x < 0 Then
Label4.Caption = "此方程无实数根"
Else
If x = 0 Then
y = (-1) * b / 2
Label4.Caption = "此方程有一个实数根" & y
Else
z = ((-1 * b) + (b ^ 2 - 4 * a * c) ^ (0.5)) / (2 * a)
h = ((-1 * b) - (b ^ 2 - 4 * a * c) ^ (0.5)) / (2 * a)
Label4.Caption = "此方程有两个实数根" & z & "和" & h
End If
End If
End Sub。