房屋租赁合同.ppt

《房屋租赁合同.ppt》由会员分享，可在线阅读，更多相关《房屋租赁合同.ppt（70页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、第第 4 4 章章程序控制结构与算法根底程序控制结构与算法根底1 114.1 根本语句根本语句24.1.1 4.1.1 代码行的书写规那么代码行的书写规那么 语句体语句体 用于规定语句的功能用于规定语句的功能说明信息的具体内容或说明信息的具体内容或执行的具体操作执行的具体操作1.语句语句2.语句是构成语句是构成VB程序的最根本成分。语句用于程序的最根本成分。语句用于向系统提供某些必要的信息，或规定系统执向系统提供某些必要的信息，或规定系统执行一定的操作。行一定的操作。3.语句的一般形式：语句的一般形式：例例:Print“OK!3n 按行书写按行书写n 一行一句一行一句n 在同一行上可以书写多条

2、语句，语句间用在同一行上可以书写多条语句，语句间用:(:(西文冒西文冒号号)分隔。分隔。n单行语句可分假设干行书写，在本行后参加续行符空单行语句可分假设干行书写，在本行后参加续行符空格和下划线格和下划线“_“_。n例如：例如：nX=10:Y=20:Z=30X=10:Y=20:Z=30nDim Name As StringDim Name As String，Age As IntegerAge As Integer，Sex As _Sex As _n Boolean Boolean，ID As StringID As String2.书写标准书写标准4n VB代码中不区分字母大小写代码中不区分字

3、母大小写n 为了提高程序的可读性，为了提高程序的可读性，VB对用户程对用户程序代码进行自动转换。序代码进行自动转换。n对于对于VB中的关键字，首字母总被自动转换中的关键字，首字母总被自动转换成大写，并在其前后自动加上空格。成大写，并在其前后自动加上空格。n假设关键字由多个英文单词组成，自动将假设关键字由多个英文单词组成，自动将每个单词的首字母转换成大写。每个单词的首字母转换成大写。54.1.2 4.1.2 赋值、暂停与结束语句赋值、暂停与结束语句6一、赋值语句一、赋值语句1.1.赋值语句的一般形式赋值语句的一般形式 var=var=var var 可以是变量名或属性，可以是变量名或属性，例如：

4、例如：x=“This is a flower.x=“This is a flower.number%=72 number%=72 Label.Caption=“Filename is:Label.Caption=“Filename is:Text.FontSize=12 Text.FontSize=12 y=(a+b)/2 y=(a+b)/2 var=Label.Caption var=Label.Caption7说明：说明：变量有类型，属性也有类型，赋变量有类型，属性也有类型，赋值时要注意类型匹配。值时要注意类型匹配。执行赋值语句时执行赋值语句时,首先计算出表达首先计算出表达式的值式的值,然

5、后将该值赋予变量然后将该值赋予变量.变量可以屡次被赋值变量可以屡次被赋值,最终取最后最终取最后一次所赋予的值一次所赋予的值.在程序中在程序中,赋值语句及各种操作对赋值语句及各种操作对象的方法象的方法,都是顺序执行的都是顺序执行的.82.2.不同数据类型数据的赋值不同数据类型数据的赋值n变量和表达式的值都是数值型变量和表达式的值都是数值型先求出表先求出表达式的值，然后将该值转换成变量类型。达式的值，然后将该值转换成变量类型。n如：如：Private Sub Form_Click()Dim a As Integer,b As Singleb=2.2a=2*b+1print a运行结果为运行结果为

6、5(四舍五入四舍五入)End Sub9变量为字符型，表达式为数值类型算术表变量为字符型，表达式为数值类型算术表达式达式把表达式的值转换成字符型。把表达式的值转换成字符型。n如：nPrivate Sub Form_Click()nDim a As String,b As Singlenb=2.2na=2*b+1n a=a&asdnprint a运行结果为 5.4(“5.4asd)nEnd Sub10变量为逻辑型，表达式为数值型变量为逻辑型，表达式为数值型所有所有非非0值转换成值转换成True；0值转换成值转换成False.n如：如：Private Sub Form_Click()Dim a As

7、 Booleana=10print a运行结果为运行结果为 Truea=0print a运行结果为运行结果为 FalseEnd Sub11n变量是整型，表达式是逻辑值变量是整型，表达式是逻辑值True/False变变量量值为值为-1/0n如：如：Private Sub Form_Click()Dim a As Integera=Trueprint a运行结果为运行结果为-1a=Falseprint a运行结果为运行结果为 0End Sub12变量是字符型，表达式是逻辑值变量是字符型，表达式是逻辑值True/False 值为值为“True/“False.n如：nPrivate Sub Form_

8、Click()nDim a As Stringna=Truenprint a运行结果为 True(“True)na=Falsenprint a运行结果为 False(“False)nEnd Sub13变量是数值型，表达式是字符型变量是数值型，表达式是字符型系统系统提示出错数据类型不匹配！提示出错数据类型不匹配！n如：如：nPrivate Sub Form_Click()nDim a As Integerna=“abcd“类型不匹配！类型不匹配！nprint anEnd Subn但如：但如：a=“-123.4系统仍能接受系统仍能接受n用函数用函数 TypeName(Var)可测试可测试Var的类

9、型的类型n如上例中如上例中 TypeName(a)的值为的值为:Integer14 在赋值语句执行过程中所产生的数据类在赋值语句执行过程中所产生的数据类型转换，有时侯会出现不可预期的结果。为型转换，有时侯会出现不可预期的结果。为保险起见，建议在赋值语句中采用转换函数保险起见，建议在赋值语句中采用转换函数对数据进行强制转换。对数据进行强制转换。注注 意：意：15n数据类型转换举例：数据类型转换举例：nPrivate Sub Form_Click()nDim b as Boolean,n as Integer,s as Stringnb=1nPrint bTruenb=0nPrint bFalse

10、nb=3nPrint bTruenn=bnPrint n-1ns=bnPrint sTtuenn=“asds类型不匹配！类型不匹配！nPrint nnEnd Sub例如：例如：16二、暂停与结束语句二、暂停与结束语句暂停语句：暂停语句：StopStop 当执行当执行StopStop语句时，语句时，VBVB进入中进入中断模式，且立即翻开断模式，且立即翻开“立即窗口。立即窗口。StopStop语句被执行后，并不退出语句被执行后，并不退出VBVB系系统，如果在可执行文件统，如果在可执行文件.EXE.EXE中中含有含有StopStop语句，那么将会关闭文件。语句，那么将会关闭文件。结束语句：结束语句：

11、EndEnd用于结束用于结束VBVB程序执行。程序执行。17注释内容仅供用户阅读，系统并不执行，注释内容仅供用户阅读，系统并不执行，注释有利注释有利于程序的于程序的维护和调试维护和调试维护和调试维护和调试，方法有：，方法有：Rem 必须单独一行书写必须单独一行书写 可单独一行，也可在语句后书写可单独一行，也可在语句后书写4.1.3 注释语句注释语句Private Sub CmdOK_Click()Rem 2003年年1月编写如下代码月编写如下代码 假设用户单击了确认按钮，那么执行以下代码假设用户单击了确认按钮，那么执行以下代码 End Sub184.2 4.2 算法根底与流程图算法根底与流程图

12、19 算算 法法n程序程序=数据结构数据结构+算法算法n算法是解决问题的方法、步骤，是程序的核心。算法是解决问题的方法、步骤，是程序的核心。n算法的特性算法的特性确定性确定性能行性能行性有穷性有穷性输入输入输出输出20传统流程图传统流程图图形符号图形符号名称名称含义含义起止框表示一个算法的开始或结束输入/输出框在框中指定输入或输出的数据处理框表示一种处理判断框框中指出判断条件，框外可连接两条流程线，分别指明条件为真（True）时或条件为假（False）时的处理流向流程线用于连接各个图形框，表示处理流向21流程图例如n输入两个数A与B，求出其中大的数并输出。开始结束输入A,BAB?Max=AMa

13、x=B输出MaxTrueFalse22n目前公认的具有目前公认的具有“良好风格良好风格的程序设计方法的程序设计方法叫做叫做“结构化程序设计方法结构化程序设计方法.其核心是规定了其核心是规定了算法的三种根本结构：算法的三种根本结构：n顺序结构顺序结构 n分支结构分支结构n循环结构循环结构n从理论上讲从理论上讲,无论多复杂的问题无论多复杂的问题,都是由这三种最都是由这三种最根本的算法结构组合而成。根本的算法结构组合而成。根本算法结构根本算法结构23ABeABTFeAAeTFTF顺顺序序结结构构分分支支结结构构当当型型 循循环环直直到到型型 循循环环244.3 4.3 顺序结构程序设计顺序结构程序设

14、计语句A语句B25例如n输入正方形边长，求其周长与面积。开始输入边长AL=4*AS=A2输出L、S结束Private Sub Command1_Click()Dim A As Single,L As Single,S As Single A=Val(Text1.Text)获取Text1中的内容 L=4*A S=A 2 Text2.Text=L在Text2中输出周长 Text3.Text=S在Text3中输出面积End Sub264.1 4.1 根本语句根本语句4.2 4.2 算法根底与流程图算法根底与流程图4.3 4.3 顺序机构程序设计顺序机构程序设计4.4 4.4 分支结构程序设计分支结构

15、程序设计4.5 4.5 循环结构设计循环结构设计274.4 4.4 分支结构程序设计分支结构程序设计 If-End If If-End If 结构语句结构语句 Select-Case-End SelectSelect-Case-End Select结构语句结构语句284.4.1 If-Then-Else-End If 结构语句结构语句n语句格式语句格式:If e ThenA组语句组语句 ElseB组语句组语句 End IfeABTF执行过程：执行过程：计算计算e的值并转换成的值并转换成Boolean类型。类型。假设假设e为为True那么执那么执行行A组语句，否那组语句，否那么执行么执行B组语句

16、。组语句。29If If X0 X0 then then x=x+1x=x+1ElseElse x=x-1x=x-1End IFEnd IF单语句也可以写成：单语句也可以写成：If If x0 x0 then then x=x+1 x=x+1 ElseElse x=x-1 x=x-1(注意：此时不要再写注意：此时不要再写End If)End If)X0?x=x+1x=x-1yn举例：举例：30例4-3输入一个整数，假设为偶数，那么输出“偶数，否那么输出“奇数。开始X0输入A偶数FalseTrue结束奇数Private Sub Form_Click()Dim X As Integer X=Val

17、(InputBox(“请输入一个整数A)If X Mod 2=0 Then Print 偶数 Else Print 奇数End Sub 31输出输出S结束结束输入输入a,b,c两边之和大于第三边？两边之和大于第三边？P=(a+b+c)/2S=Sqr(p(p-a)(p-b)(p-c)数据错误数据错误开始开始YN【例例4-4】计算三角形面积计算三角形面积If a+b c And a+c b And b+c a Then p=(a+b+c)/2 s=Sqr(p*(p-a)*(p-b)*(p-c)Text4.Text=CStr(s)Else Text4.Text=数据错误End If32eATF举例：

18、举例：If X0 thenIf X0 then Print “x0 Print “x0End IFEnd IFIf x0 Then Print “x0If x0 Then Print “x033If e1 ThenA1组语句组语句ElseIf e2 ThenA2组语句组语句ElseIf e3 T henA3组语句组语句ElseAn+1组语句组语句End IfIf-Then-Else-End If If-Then-Else-End If 结构语句的另一种变形结构语句的另一种变形结构语句的另一种变形结构语句的另一种变形例：例：If x0 ThenIf x0 Then print “x0 print

19、 “x0 Print “x0End IfEnd If34开始开始输入整数输入整数XX11=X=10输出输出X1输出输出1=X10结束结束NYNY例例4-4b1判别整数判别整数X的值范围的值范围35【例例4-4b1】判别整数判别整数X的值范围的值范围Private Sub Command1_Click()Private Sub Command1_Click()Dim x As Integer Dim x As Integer x=Val(Text1.Text)x=Val(Text1.Text)If x 1 Then If x 1 Then Text2.Text=Text2.Text=这是小于这是

20、小于1 1的数的数 ElseIf x=10 Then ElseIf x 0 And Y 0 Then S=位于第一象限 ElseIf X 0 Then S=位于第二象限 ElseIf X 0 And Y 0 And Y 20,Is3039例如：Private Sub Command1_Click()Dim x As Integerx=Val(Text1.Text)Select Case xCase Is1 Text2.Text=“X1Case 1 to 10 Text2.Text=“1=X10End SelectEnd Sub开始开始输入整数输入整数XX11=X=10输出输出X1输出输出1=X

21、10结束结束NYNY40例4-6n输入一个成绩，输出此成绩相应的等级。CJ=90TrueFalseDJ=”良好良好”TrueFalseTrueFalseDJ=”中等中等”开始开始CJ=80CJ=70CJ=60TrueDJ=”及格及格”DJ=”不及格不及格”FalseDJ=”优秀优秀”输出输出DJ结束结束输入输入CJPrivate Sub Command1_Click()Dim CJ As Single,DJ As String CJ=Val(Text1.Text)获取成绩 Select Case CJ 判断等级 Case Is=90 DJ=优秀 Case Is=80 DJ=良好 Case Is

22、=70 DJ=中等 Case Is=60 DJ=及格 Case Else DJ=不及格 End Select Text2.Text=DJ 输出等级End Sub注意注意在在Select Case语句中，各测试项执行的顺序是自上而下依次语句中，各测试项执行的顺序是自上而下依次判断的，如果执行到判断的，如果执行到“Case Is=80，说明，说明“Is=90已已经不经不成立，一定要注意书写的顺序，如果顺序混乱，可能导致成立，一定要注意书写的顺序，如果顺序混乱，可能导致结果不正确。结果不正确。411 1：输入一个年份，判断其是否是闰年。：输入一个年份，判断其是否是闰年。程序程序说明：能被说明：能被4

23、整除，但不能被整除，但不能被100整除，或者能被整除，或者能被400整除的年份为闰年。如整除的年份为闰年。如1980年、年、1996年、年、1600年年2 2：输入一个月份，输出该月有多少天。：输入一个月份，输出该月有多少天。程序程序例例4-73 3：编写一个简单计算器，只要能实现加减乘：编写一个简单计算器，只要能实现加减乘除运算即可。除运算即可。程序程序课堂编程练习课堂编程练习42作作 业业一、书面作业：一、书面作业：:1、完成课本和实验书上与、完成课本和实验书上与4.1、4.2、4.3节内容相节内容相关的习题关的习题二、实验作业：二、实验作业：1、实验书、实验书P 132136页页 实验实

24、验3-1实验实验3-3建立形如建立形如sy3-1、sy3-2、sy3-3的文件夹的文件夹2、输入一个月份，输出该月有多少天。程序、输入一个月份，输出该月有多少天。程序建立文件夹建立文件夹lx4-13、编写一个简单计算器，只要能实现加减乘除运算、编写一个简单计算器，只要能实现加减乘除运算即可。即可。建立文件夹建立文件夹lx4-2434.4.3 IIf函数函数n格式：格式：IIf(逻辑表达式逻辑表达式,值值1,值值2)nIIfIIf函数的功能类似于有两个分支的函数的功能类似于有两个分支的IfIf语句。语句。当逻辑表达式的值为当逻辑表达式的值为TrueTrue时，函数返回值时，函数返回值1 1，当逻

25、辑表达式的值为当逻辑表达式的值为FalseFalse时，函数返回值时，函数返回值2 2。If AB Then MaxData=AElse MaxData=BEnd If可以简化为：可以简化为：MaxData=IIf(AB,A,B)444.5 循环结构程序设计45 For-Next For-Next 循环循环For v=e1 To e2 Step e3 Exit For Next v循环控制变量循环控制变量初值初值终值终值步长步长ForFor循环也叫计次循环，格式为：循环也叫计次循环，格式为：46计算计算e1,e2,e3v=e1V超过超过e2?Av=v+e3TFFor-Next循环语句执行流程循

26、环语句执行流程For v=e1 To e2 Step e3 A语句组 Next v47说 明-1:V:循环控制变量,应为Integer或Single型e1,e2,e3为控制循环参数:分别是初值,终值,步长e3的步长，缺省值是1For 和Next 语句之间是“循环体For和Next 必须成对出现For-Next 语句执行过程如以下图:48说明-2nFor-NextFor-Next循环遵循循环遵循“先检查后循环的原那么。先检查后循环的原那么。n步长为正，循环变量初值大于终值时，不循环；步长为正，循环变量初值大于终值时，不循环；n步长为负，循环变量初值小于终值时，不循环。步长为负，循环变量初值小于终

27、值时，不循环。49例例:Private Sub Form_Click()Private Sub Form_Click()For I=1 to 10 Step 2For I=1 to 10 Step 2Print I;Print I;Next INext IPrint“I=“;IPrint“I=“;IEnd SubEnd Sub显示结果显示结果 1 3 5 7 9 I=11 1 3 5 7 9 I=11循环结束后循环结束后I=？50例例4-8 设计设计“累加器累加器程序:Private Sub Form_Click()Dim I As Integer,S As Integers=0For I=1

28、 to 100s=s+INext IPrint“s=“;sEnd Sub注意注意S初值的设置及初值的设置及其语句的位置其语句的位置注意注意I的初值，的初值，终值和步长设置终值和步长设置I=1I100?FalseTrueS=S+II=I+1开始开始S=0输出输出S结束结束目的：求目的：求1+2+3+10051例例4-9 设计设计“累乘器累乘器的根本方法的根本方法目的：求 1*2*3*n 程序:Private Sub Form_Click()Dim I As Integer,p As IntegerDim n AS Integer n=InputBox(输入一个整数,求阶乘)p=1For I=1

29、to np=p*INext IPrint“p=“;pEnd Sub注意注意p初值的设置初值的设置及其语句的位置及其语句的位置注意注意I的初值，终值的初值，终值和步长设置和步长设置52说明和注意点说明和注意点总循环次数总循环次数:Int(e2-e1)/e3)+1:Int(e2-e1)/e3)+1 e1,e2,e3e1,e2,e3的值如果在循环过程中发生变化，的值如果在循环过程中发生变化，不会影响循环执行的次数。不会影响循环执行的次数。如果在循环过程中使循环控制变量如果在循环过程中使循环控制变量v v 发生发生变化，那么有可能使循环次数发生变化。变化，那么有可能使循环次数发生变化。循环控制变量循环

30、控制变量v v尽量采用整型数据，减小尽量采用整型数据，减小产生误差的可能。产生误差的可能。53举例1：问：如下程序循环多少次？问：如下程序循环多少次？Dim A As Integer,B As Integer Dim C As Integer,I As Integer A=1:B=10:C=1 For I=A To B Step C A=A+1 B=B-1 C=C+1 Next答案：10次举例2：Dim i As IntegerDim n1 As IntegerDim n2 As Integern1=7:n2=32For i=n1 To n2 Step 3 Print i；i=i+2 n1=n

31、1+2Next i答案：7 12 17 22 27 3254例例4-10 输入一个整数输入一个整数N，判断其是否是素数。，判断其是否是素数。素数：只能被素数：只能被1 1和自身整除的数。和自身整除的数。第一种方法：例第一种方法：例4-10-14-10-1统计该整数的所有因子个数，假设因子总个数为统计该整数的所有因子个数，假设因子总个数为2 2，那么该整数为素数；，那么该整数为素数；第二种方法：例第二种方法：例4-10-2 4-10-2 用除了用除了1 1与此整数本身与此整数本身N N以外的整数即以外的整数即2 2到到N-1N-1去逐个测试，假设有因子，那么此数肯定不是素去逐个测试，假设有因子，

32、那么此数肯定不是素数，假设一个因子都没有，那么此数为素数。数，假设一个因子都没有，那么此数为素数。55举例：举例：字符串转换及逆序输出字符串转换及逆序输出n将给定字符串大写转小写，小写转大写，其余字符转成将给定字符串大写转小写，小写转大写，其余字符转成*号。号。For i=1 To Len(st)ch=Mid(st,i,1)char=ch+charNextSelect Case ch Case A To Z ch=LCase(ch)Case a To z ch=UCase(ch)Case Else ch=*End Select56找出找出100999中所有的水仙花数。中所有的水仙花数。程序程序

33、水仙花数：一个数等于它各个数位的立方和。水仙花数：一个数等于它各个数位的立方和。如：如：153=13+53+33For N=100 To 999 A=N 100 C=N Mod 10 B=N 10 Mod 10 If N=A 3+B 3+C 3 Then Print NNext574.5.2 Do-Loop 循环结构语句循环结构语句当型循环当型循环当条件成立就当条件成立就执行循环体。执行循环体。直到型循环直到型循环执行循环体直到执行循环体直到条件成立结束。条件成立结束。条件条件e循环体循环体TF条件条件e循环体循环体TF条件条件e循环体循环体FT条件条件e循环体循环体FT58Do-Loop循环

34、(4种形式)Do While e Exit Do LoopDo Exit Do Loop While eDo Until e Exit Do LoopDo Exit Do Loop Until e条件条件e循环体循环体TF条件条件e循环体循环体TF条件条件e循环体循环体FT条件条件e循环体循环体FT当型循环当型循环直到型循环直到型循环常用常用常用常用59说明说明:Do 和和 Loop 语句之间局部为语句之间局部为“循环体循环体循环体中可插入多条循环体中可插入多条 Exit Do 语句语句一种常用的形式一种常用的形式:If e Then Exit Do60求两个自然数的最大公约数算法：求两个自然

35、数的最大公约数算法：S1.S1.输入自然数输入自然数M,N;M,N;S2.S2.求求MM除以除以NN的余数的余数R;R=M MOD NR;R=M MOD NS3.S3.使使M=N,M=N,即用即用NN代换代换MMS4.S4.使使N=R,N=R,即用即用R R代换代换NNS5.S5.假设假设R0,R0,那么重复执行那么重复执行S2S2、S3S3、S4(S4(循环循环),),否那么转否那么转S6;S6;S6.S6.输出输出M,MM,M即为即为MM和和NN的最大公约数的最大公约数.*这一算法称为欧几里德算法这一算法称为欧几里德算法例例4-11，P-92。求两个整数的最大公约数。求两个整数的最大公约数

36、61欧几里得算法举例欧几里得算法举例循环次数循环次数MNR=M Mod N6424161241682168038064和和24的最大公约数是的最大公约数是862开始开始输入输入M,N输出输出M结束结束 R=M MOD NM=N“数据错误！数据错误！R=0？YN数据合法？数据合法？NN=RY63求两个自然数的最大公约数求两个自然数的最大公约数-欧几里得算欧几里得算法法需要熟记欧几里得算法需要熟记欧几里得算法1、输入两个自然数、输入两个自然数m,n2、r=m mod n3、m=n，n=r4、直到、直到r=0，那么，那么m 为的最大公约为的最大公约数数5、假设、假设r0，那么重复执行第二步，那么重复

37、执行第二步64例例4-11-1Do Loop Until例例4-11-2Do While Loop m=Val(Text1.Text)n=Val(Text2.Text)If m 1 Or n 1 Then Text3.Text=数据错误数据错误!Else Do r=m Mod n m=n n=r Loop Until r=0 Text3.Text=CStr(m)65例例4-12：随机生成十个能被：随机生成十个能被3整除但不能被整除但不能被5整整除的三位整数。除的三位整数。5个一行个一行Do n=Int(Rnd*900+100)If n Mod 3=0 And n Mod 5 0 Then c=

38、c+1 Print n;End IfLoop Until c=1066输入一个正整数，判断其是否是完全数。程序输入一个正整数，判断其是否是完全数。程序完全数：该数的因子不包含本身之和等于其本身，完全数：该数的因子不包含本身之和等于其本身，如：如：28=1+2+4+7+1467课堂练习1：求：求N！2：输入一个整数，判断其是否为素数。：输入一个整数，判断其是否为素数。素数：一个整数除了素数：一个整数除了1与本身之外再无其他因子。与本身之外再无其他因子。3：随机生成：随机生成10个两位整数并输出。个两位整数并输出。4：输入一个字符串，将其中的大写字母改为：输入一个字符串，将其中的大写字母改为小写字

39、母，小写字母改为大写字母。小写字母，小写字母改为大写字母。程序程序5：生成：生成20个个1到到100之间的随机数，统计其中之间的随机数，统计其中1位数、位数、2位数和位数和3位数的个数。位数的个数。程序程序68作作 业业一、书面作业：一、书面作业：完成课本和实验书相关习题二、实验作业：二、实验作业：实验书P 136141页 实验3-4实验3-6课本P 101页 完成 练习题 第4、6、7、8题69编程练习n输入一个整数，判断其是否为素数。程序输入一个整数，判断其是否为素数。程序n 素数：只能被素数：只能被1和自身整除的数。和自身整除的数。n如：如：3、13、19n输入一自然数，判断其是否为回文数。程序输入一自然数，判断其是否为回文数。程序n 回文数：左右数字完全对称的自然数。回文数：左右数字完全对称的自然数。n如：如：121 12321n找出找出100之内的所有勾股数。程序之内的所有勾股数。程序n勾股数：满足条件勾股数：满足条件a2+b2=c2(a不等于不等于b)n如：如：3 4 5n输入一个正整数，判断其是否是完全数。程序输入一个正整数，判断其是否是完全数。程序n完全数：该数的因子不包含本身之和等于其完全数：该数的因子不包含本身之和等于其本身，本身，n如：如：28=1+2+4+7+1470