可视化程序设计第5章 循环结构程序设计.ppt

《可视化程序设计第5章 循环结构程序设计.ppt》由会员分享，可在线阅读，更多相关《可视化程序设计第5章 循环结构程序设计.ppt（49页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第5章 循环结构程序设计5.1 5.1 循环结构程序设计的概念循环结构程序设计的概念循环结构程序设计的概念循环结构程序设计的概念通常循环结构有通常循环结构有“当型循环当型循环”（先判断条件，后执行循环）和（先判断条件，后执行循环）和“直到型循环直到型循环”（先执行循环，再判断条件）。（先执行循环，再判断条件）。在在Visual Basic程序设计中，实现循环结构的语句主要有下列程序设计中，实现循环结构的语句主要有下列4种：种：DoLoop语句语句 ForNext语句语句 WhileWend语句。语句。For each Next语句语句 5.25.2 DoLoop DoLoop语句语句语句语句5

2、.2.1 前测型前测型DoLoop循环循环(先判断先判断,后执行后执行)其语法为其语法为Do While|Until 条件条件 语句列语句列1 Exit Do 语句列语句列2LoopDo WhileLoop是是(前测型前测型)当型循环语句当型循环语句Do UntilLoop是（前测型）直到型循环语句是（前测型）直到型循环语句说明：说明：（1）当使用）当使用While构成循环时，当条件为构成循环时，当条件为“真真”，则反复执行循环体，当条件为，则反复执行循环体，当条件为“假假”，则退出循环。，则退出循环。（2）当使用）当使用Until 构成循环时，当条件为构成循环时，当条件为“假假”，则反复执行

3、循环体，直到条件成立，即为，则反复执行循环体，直到条件成立，即为“真真”时，时，则退出循环。则退出循环。（3）在循环体内一般应有一个专门用来改变条件表达式）在循环体内一般应有一个专门用来改变条件表达式中变量的语句，以使随着循环的执行，条件趋于不成立中变量的语句，以使随着循环的执行，条件趋于不成立（或成立），最后达到退出循环。（或成立），最后达到退出循环。（4）语句）语句Exit Do的作用是退出它所在的循环结构，它只的作用是退出它所在的循环结构，它只能用在能用在DO/Loop结构中，并且常常是同选择结构一起出结构中，并且常常是同选择结构一起出现在循环结构中，用来实现当满足某一条件时提前退出现在

4、循环结构中，用来实现当满足某一条件时提前退出循环。循环。设计步骤如下：设计步骤如下：窗体界面的设计参见前面章节，这里仅给出命令按钮的窗体界面的设计参见前面章节，这里仅给出命令按钮的Click事件代码：事件代码：Private Sub Command1_Click()Dim s As Integer,n As Integer s=0:n=1 Do While n 100 s=s+n n=n+1 Loop Label2.Caption=1+2+3+100=&sEnd Sub【例例5-2】输入一个正整数，利用输入一个正整数，利用“当型当型”循环判断是否素数。循环判断是否素数。设计步骤如下：设计步骤如

5、下：窗体界面的设计参见前面章节，这里给出命令按钮的窗体界面的设计参见前面章节，这里给出命令按钮的Click事件代码：事件代码：Private Sub Command1_Click()Dim n As Long Select Case Val(Text1.Text)Case Is 2147483647 MsgBox 此数太大此数太大!,vbInformation+vbOKOnly,注意注意 Case Else n=Val(Text1.Text)s=0:i=2 Do While i=Sqr(n)And s=0 If n Mod i=0 Then s=1 Else i=i+1 End If Loop

6、 If s=0 Then a=是一个素数是一个素数 Else a=不是素数不是素数 End If Label1.Caption=Str(n)&a End Select Text1.SetFocusEnd Sub 另另外外，为为了了使使用用文文本本框框得得到到焦焦点点后后，文文本本立立即即被被选选中中，编编写写Text1的的GotFocus事件代码如下：事件代码如下：Private Sub Text1_GotFocus()Text1.SelStart=0 Text1.SelLength=Len(Text1.Text)End Sub5.2.2 后测型后测型DoLoop循环循环(先执行先执行,后判断

7、后判断)其语法为其语法为Do 语句列语句列1 Exit Do 语句列语句列2Loop While|Until 条件条件【例例5-3】输输入入有有效效数数字字的的位位数数，利利用用下下述述公公式式计计算算圆圆周周率率的的近似值近似值：设计步骤如下：设计步骤如下：(1)建立应用程序用户界面与设置对象属性。建立应用程序用户界面与设置对象属性。(2)编写程序代码。编写程序代码。根据流程图，可以写出命令按钮根据流程图，可以写出命令按钮Command1的的Click事件代码为事件代码为Private Sub Command1_Click()Dim m As Integer m=Val(Text1.Text

8、)p=0#:s=2#:e=0.1 m Do t=s:p=Sqr(2+p):s=s*2/p Loop Until Abs(t s)0.1 m f=String(m 1,#)Text2.Text=Format(s,0.&f)Text1.SetFocusEnd Sub文本框文本框Text1的的GotFocus事件代码：事件代码：Private Sub Text1_GotFocus()Text1.SelStart=0 Text1.SelLength=Len(Text1.Text)End Sub【例例5-4】输入两个正整数，求它们的最大公约数。输入两个正整数，求它们的最大公约数。设计步骤如下。设计步骤如

9、下。窗体界面的设计如图窗体界面的设计如图5-10所示，这里给出命令按钮的所示，这里给出命令按钮的Click事件代码：事件代码：Private Sub Command1_Click()m=Val(Text1.Text)n=Val(Text2.Text)If n*m=0 Then MsgBox 两数都不能为两数都不能为0!Exit Sub End If If m n Then t=m:m=n:n=t End If Do r=m Mod n m=n n=r Loop While r 0 Text3.Text=mEnd Sub5.3 For.Next语句语句 其语法为其语法为:For循循环环变变量量=

10、初初值值To终终值值Step步步长长 语句列语句列1 Exit For 语句列语句列2 Next 循环变量循环变量【例例5-5】利利用用For循循环环结结构构显显示示1000以以内内的的所所有有能能被被37整整除除的的自自然然数数（如图（如图5-13所示）。所示）。设计步骤如下：设计步骤如下：(1)窗体界面的设计与属性设置。窗体界面的设计与属性设置。(2)编写代码。编写代码。0 初值初值终值终值 =1 时时,可省可省略略终值终值=0 死循环死循环 步长步长编写命令按钮的编写命令按钮的Click事件代码：事件代码：Private Sub Command1_Click()a=For n=1 To

11、1000 If n Mod 37=0 Then a=a&Str(n)&vbCrLf End If Next Text1.Text=aEnd Sub【例例5-6】求从求从1000到到1100之间的所有素数。之间的所有素数。窗体界面的设计参见图窗体界面的设计参见图5-15，这里给出命令按钮的，这里给出命令按钮的Click事件代码：事件代码：Private Sub Command1_Click()a=For n=1001 To 1100 Step 2 s=0 For i=2 To Int(Sqr(n)If n Mod i=0 Then s=1 Exit For End If Next If s=0

12、Then a=a&Str(n)&vbCrLf Next Text1.Text=aEnd Sub5.4 列表框与组合框列表框与组合框一、用途一、用途 列表框控件（列表框控件（ListBox）用于显示项目列表，用户可从中）用于显示项目列表，用户可从中选择一个或多个项目。如果项目总数超过了可显示的项目数，选择一个或多个项目。如果项目总数超过了可显示的项目数，VB会自动加上滚动条。会自动加上滚动条。列表框有两种风格：标准和复选列表框。通过它的列表框有两种风格：标准和复选列表框。通过它的Style属性来设置。如下图：属性来设置。如下图：组合框控件（组合框控件（ComboBox）将文本框和列表框的功能结合

13、）将文本框和列表框的功能结合在一起，用户可以在列表中选择某项（只能选取一项）。在一起，用户可以在列表中选择某项（只能选取一项）。或在编辑区域中直接输入文本内容来选定项目。组合框共或在编辑区域中直接输入文本内容来选定项目。组合框共三种风格：下拉式组合框、简单组合框和下拉式列表框三种风格：下拉式组合框、简单组合框和下拉式列表框（见下图）。（见下图）。二、主要属性二、主要属性1Style属性属性 该值用来指示控件的显示类型和行为。在该值用来指示控件的显示类型和行为。在运行时运行时是只读的。是只读的。对于列表框控件或组合框控件都有对于列表框控件或组合框控件都有Style属性，但它们的含属性，但它们的含

14、义是不同的义是不同的2List、ListCount和和ListIndex属性属性 List：字符型数组，存放列表框的项目数据，下标是从字符型数组，存放列表框的项目数据，下标是从0开始的。开始的。例如：例如：List(0)表示第一项（表示第一项（Listindex=0）的内容）的内容 列表框项目可在设计模式下一项一项输入。列表框项目可在设计模式下一项一项输入。ListIndex：为整型值，选中的项目的序号，如果列表框：为整型值，选中的项目的序号，如果列表框可多选，则为最后一次选中项目的序号，可多选，则为最后一次选中项目的序号，没有项目选中没有项目选中时为时为-1。ListCount：为整型值，表

15、示项目的数量，：为整型值，表示项目的数量，ListCount-1是是最后一项的下标。最后一项的下标。3MultiSelect属性属性 用于指示是否能够在列表框控件中进行复选以及如何进行复用于指示是否能够在列表框控件中进行复选以及如何进行复选，在运行时是只读的。注意，组合框控件无此属性。选，在运行时是只读的。注意，组合框控件无此属性。MultiSelect 属性设置值及含义属性设置值及含义设置值含 义0（缺省值）不允许复选1简单复选。鼠标单击或按下空格键在列表中选中或取消选中项。箭头键移动焦点2扩展复选。按下 SHIFT 并单击鼠标将在以前选中项的基础上扩展选择到当前选中项。按下 CTRL 并单

16、击鼠标来在列表中选中或取消选中项4Selected属性属性 该属性返回或设置列表框控件中的一个项目的选择状态。该属性返回或设置列表框控件中的一个项目的选择状态。该属性是一个逻辑类型的数组，数组元素个数与列表框中该属性是一个逻辑类型的数组，数组元素个数与列表框中的项目数相同，其下标的变化范围与的项目数相同，其下标的变化范围与List属性相同。属性相同。例如：例如：List1.Selected（0）=True表示列表框表示列表框List1的第一的第一个项目被选中，此时个项目被选中，此时ListIndex的值设置为的值设置为0。Selected属性属性在在设计时设计时是不可用的，即无法在属性窗口中设

17、置属性值。是不可用的，即无法在属性窗口中设置属性值。5Sorted属性属性 返回一个逻辑值，当返回一个逻辑值，当Sorted属性为属性为True时列表框控件或时列表框控件或组合框控件的项目自动按字母表顺序（升序）排序，为组合框控件的项目自动按字母表顺序（升序）排序，为False时项目按加入的先后顺序排列显示。该属性只能在设时项目按加入的先后顺序排列显示。该属性只能在设计时设置，不能在程序代码中设置。计时设置，不能在程序代码中设置。6Text属性属性 对于组合框：（对于组合框：（Combo1）下拉式组合框与简单组合框（下拉式组合框与简单组合框（Style=0和和1）：）：Text属性返回编辑区域

18、中的文本。属性返回编辑区域中的文本。下拉列表框，下拉列表框，Text属性的返回当前被选中的项，值总与属性的返回当前被选中的项，值总与combo1.List（combo1.ListIndex）的值相同。）的值相同。对于列表框对于列表框：（：（List1）Text属性选中的文本，如果列表框可多选，则为最后一次属性选中的文本，如果列表框可多选，则为最后一次选中项目。选中项目。Text属性值总与属性值总与List1.List（List1.ListIndex）的值相同。的值相同。列表框、组合框各主要属性的值：列表框、组合框各主要属性的值：List1.List(List1.ListIndex)=“abc”

19、ListCount=6 ListIndex=3 (下标从0开始的)Selected(3)=True，其余为False。Sorted=False，没有排序。Text=“abc”，Combo1.List(Combo1.ListIndex)=“abc”3 方法方法1AddItem方法方法 用于将项目添加到列表框控件或组合框控件。语法格式：用于将项目添加到列表框控件或组合框控件。语法格式：对象名对象名.AddItem item,index 其中：其中：item:为字符串表达式，表示要加入的项目。为字符串表达式，表示要加入的项目。Index:决定新增项目的位置，缺省，则添加在最后。决定新增项目的位置，缺

20、省，则添加在最后。2RemoveItem方法方法 用于从列表框控件或组合框控件中删除一项。用于从列表框控件或组合框控件中删除一项。语法格式：语法格式：对象名对象名.RemoveItem index 对对index参数的规定同参数的规定同AddItem方法。方法。3Clear方法方法 用于清除列表框控件或组合框控件中的所有项目。语法格用于清除列表框控件或组合框控件中的所有项目。语法格式：式：对象名对象名.Clear 例如，删除列表框（例如，删除列表框（List1）中所有项目，可使用：）中所有项目，可使用：List1.Clear4、事件、事件（1）Click事件事件 当单击某一列表项目时，将触发列

21、表框与组合框控件的当单击某一列表项目时，将触发列表框与组合框控件的Click事件。该事件发生时系统会自动改变列表框与组合事件。该事件发生时系统会自动改变列表框与组合框控件的框控件的ListIndex、Selected、Text等属性，无需另行编等属性，无需另行编写代码。写代码。（2）DblClick事件事件 当双击某一列表项目时，将触发列表框与简单组合框控当双击某一列表项目时，将触发列表框与简单组合框控件的件的DblClick事件。事件。（3）Change事件（列表框没有此事件）事件（列表框没有此事件）当用户通过键盘输入改变下拉式组合框或简单组合框控当用户通过键盘输入改变下拉式组合框或简单组合

22、框控件的文本框部分的正文，或者通过代码改变了件的文本框部分的正文，或者通过代码改变了Text属性的属性的设置时，将触发其设置时，将触发其Change事件。事件。【例例5-7】将例将例5-6中的文本框改为列表框（如图中的文本框改为列表框（如图5-16所示）。所示）。将窗体中的文本框换为列表框，无需修改列表框的属性，只需修改命令按将窗体中的文本框换为列表框，无需修改列表框的属性，只需修改命令按钮的钮的Click事件代码：事件代码：Private Sub Command1_Click()List1.Clear For n=1001 To 1100 Step 2 s=0 For i=2 To Int(

23、Sqr(n)If n Mod i=0 Then s=1:Exit For End If Next If s=0 Then List1.AddItem n 使用列表框的使用列表框的Add方法增加列表项方法增加列表项 NextEnd Sub【例例5-8】“同构数同构数”是指这样的整数：它恰好出现在其平方数的右端，是指这样的整数：它恰好出现在其平方数的右端，例如例如1和和5就是这样的数。试找出就是这样的数。试找出19999之间的全部之间的全部“同构数同构数”（如图（如图5-17所示）。所示）。窗体界面的设计参见图窗体界面的设计参见图5-17，这里给出命令按钮的，这里给出命令按钮的Click事件代码：

24、事件代码：Private Sub Command1_Click()List1.Clear For n=1 To 9999 Select Case n Case n 2 Mod 10 List1.AddItem Format(n,)&Format(n 2,)Case n 2 Mod 100 List1.AddItem Format(n,)&Format(n 2,)Case n 2 Mod 1000 List1.AddItem Format(n,)&Format(n 2,)Case n 2 Mod 10000 List1.AddItem Format(n,)&Format(n 2,)End Sel

25、ect NextEnd Sub【例例5-9】小小学学生生做做加加减减法法的的算算术术练练习习程程序序。计计算算机机连连续续地地随随机机给给出出两两位位数数的的加加减减法法算算术术题题，要要求求学学生生回回答答，答答对对的的打打“”，答答错错的的打打“”。将将做做过过的的题题目目存存放放在在列列表表框框中中备备查查，并并随随时时给给出出答答题题的的正正确确率（如图率（如图5-19所示）。所示）。设计步骤如下：设计步骤如下：(1)建立应用程序用户界面。建立应用程序用户界面。(2)设置对象属性设置对象属性 (3)编写代码。编写代码。出题部分由窗体的激活（出题部分由窗体的激活（Activate）事件代

26、码完成：事件代码完成：Private Sub Form_Activate()Randomize(Time)a=Int(10+90*Rnd)b=Int(10+90*Rnd)p=Int(2*Rnd)Select Case p Case 0 Label1.Caption=a&+&b&=Text1.Tag=a+b 将本题答案放入将本题答案放入Text1.Tag中中 Case 1 If a b Then t=a:a=b:b=t Label1.Caption=a&b&=Text1.Tag=a b 将本题答案放入将本题答案放入Text1.Tag中中End Select Form1.Tag=Form1.Tag

27、+1 Text1.SelStart=0 Text1.Text=End Sub“关闭关闭”按钮的按钮的Click事件代码：事件代码：Private Sub Command1_Click()Unload MeEnd Sub答题部分由文本框的按健（答题部分由文本框的按健（KeyPress）事件代码完成事件代码完成：Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii=13 Then fm=!If Val(Text1.Text)=Text1.Tag Then Item=Format(Label1.Caption&Text1.Text,fm

28、)&List1.Tag=List1.Tag+1 Else Item=Format(Label1.Caption&Text1.Text,fm)&End If List1.AddItem Item,0 将题目和回答插入到列表框中的第将题目和回答插入到列表框中的第1项项 Label2.Caption=共共&Form1.Tag&题，题，&Chr(13)&正确率为正确率为:Label3.Caption=Format(List1.Tag/Form1.Tag,#0.0#%)Form_Activate 调用出题代码调用出题代码 End IfEnd Sub【例例5-10】利用循环结构和列表框控件，设计的利用循环

29、结构和列表框控件，设计的“选项移动选项移动”窗体。窗体。设计步骤如下：设计步骤如下：(1)建立应用程序用户界面与设置对象属性。建立应用程序用户界面与设置对象属性。(2)编写事件代码。编写事件代码。编写命令按钮的编写命令按钮的Click事件代码：事件代码：Private Sub Command1_Click()i=0 Do While i List1.ListCount If List1.Selected(i)=True Then List2.AddItem List1.List(i)List1.RemoveItem i Else i=i+1 End If LoopEnd SubPrivate

30、Sub Command2_Click()For i=0 To List1.ListCount-1 List2.AddItem List1.List(i)Next List1.ClearEnd SubPrivate Sub Command3_Click()i=0 Do While i List2.ListCount If List2.Selected(i)=True Then List1.AddItem List2.List(i)List2.RemoveItem i Else i=i+1 End If LoopEnd SubPrivate Sub Command4_Click()For i=0

31、To List2.ListCount-1 List1.AddItem List2.List(i)Next List2.ClearEnd Sub5.4.2 组合框组合框【例例5-11】将将例例5-9算算术术练练习习中中的的列列表表框框改改为为组组合合框框（下下拉拉列列表表框框），如如图图5-22所示。所示。设计步骤如下：设计步骤如下：(1)建立应用程序用户界面与设置对象属性。建立应用程序用户界面与设置对象属性。(2)编写程序代码编写程序代码 修改文本框修改文本框Text1的按健（的按健（KeyPress）事件代码：事件代码：Private Sub Text1_KeyPress(KeyAscii

32、As Integer)If KeyAscii=13 Then Fm=!If Text1.Text=Text1.Tag Then Item=Format(Label1.Caption&Text1.Text,Fm)&Combo1.Tag=Combo1.Tag+1 Else Item=Format(Label1.Caption&Text1.Text,Fm)&End If Combo1.AddItem Item,0 Combo1.ListIndex=0 Label3.Caption=共共&Form1.Tag&题，正确率为题，正确率为:Label2.Caption=Format(Combo1.Tag/F

33、orm1.Tag,#0.0#%)Form_Activate End IfEnd Sub编写命令按钮编写命令按钮Command2的的Click事件代码：事件代码：Private Sub Command2_Click()Form1.Tag=0#Combo1.Tag=0#Combo1.Clear Label3.Caption=欢迎重新开始欢迎重新开始!Label2.Caption=Form_Activate Text1.SetFocusEnd Sub 其他代码同例其他代码同例5-9。2.简单组合框简单组合框【例例5-12】“简简易易抽抽奖奖机机”。在在组组合合框框中中输输入入号号码码，按按“开开始始

34、”按钮可以得到中奖的号码（如图按钮可以得到中奖的号码（如图5-23所示）。所示）。设计步骤如下：设计步骤如下：(1)建立应用程序用户界面与设置对象属性。建立应用程序用户界面与设置对象属性。(2)编写事件代码。编写事件代码。编写组合框编写组合框Combo1的按健（的按健（KeyPress）事件代码：事件代码：Private Sub Combo1_KeyPress(KeyAscii As Integer)If KeyAscii=13 Then 按回车键后，接收输入的选项按回车键后，接收输入的选项 Combo1.AddItem Combo1.Text,0 Combo1.SelStart=0 Comb

35、o1.SelLength=Len(Combo1.Text)End If If KeyAscii=27 Then 按按Esc键后，移去选项键后，移去选项 If Combo1.ListIndex -1 Then Combo1.RemoveItem Combo1.ListIndex End If End IfEnd Sub 编写命令按钮编写命令按钮Command1的的Click事件代码，使之可以随机地抽取奖号：事件代码，使之可以随机地抽取奖号：Private Sub Command1_Click()Randomize n=Combo1.ListCount a=Int(Rnd*n)Combo1.Lis

36、tIndex=a MsgBox 中奖的号码是中奖的号码是:&Chr(13)&Combo1.Text,0,恭喜！恭喜！End Sub3.下拉组合框下拉组合框【例例5-13】在例在例5-12中使用下拉组合框，可以更加节省空间（如图中使用下拉组合框，可以更加节省空间（如图5-25所示）。所示）。设计步骤如下：设计步骤如下：(1)建立应用程序用户界面与设置对象属性。建立应用程序用户界面与设置对象属性。(2)编写事件代码。编写事件代码。Private Sub Combo1_KeyPress(KeyAscii As Integer)If KeyAscii=13 Then 按回车键后，接收输入的选项按回车键

37、后，接收输入的选项 Combo1.AddItem Combo1.Text,0 Combo1.SelStart=0 Combo1.SelLength=Len(Combo1.Text)Text1.Text=Combo1.ListCount End If If KeyAscii=27 Then 按按Esc键后，移去选项键后，移去选项 If Combo1.ListIndex -1 Then Combo1.RemoveItem Combo1.ListIndex Text1.Text=Combo1.ListCount End If End IfEnd Sub 编编写写命命令令按按钮钮Command1的的C

38、lick事事件件代代码码，使使之之可可以以随随机机地地抽抽取奖号：取奖号：Private Sub Command1_Click()Randomize n=Combo1.ListCount a=Int(Rnd*n)Combo1.ListIndex=a Label1.Caption=中奖的号码是中奖的号码是:&Combo1.TextEnd Sub5.5 算法举例算法举例【例例5-14】“水水仙仙花花数数”是是指指一一个个3位位数数，其其各各位位数数的的立立方方和和等等于于该数，如：该数，如：153=13+53+33窗体界面的设计参见前面例子，这里给出命令按钮的窗体界面的设计参见前面例子，这里给出命

39、令按钮的Click事件代码：事件代码：Private Sub Command1_Click()Dim p As Integer List1.Clear For n=100 To 999 a=Int(n/100)b=Int(n a*100)/10)c=n-(a*100+b*10)p=a 3+b 3+c 3 If p=n Then List1.AddItem p NextEnd Sub【例例5-15】马马克克思思曾曾经经做做过过这这样样一一道道趣趣味味数数学学题题：有有30个个人人在在一一家家小小饭饭馆馆里里用用餐餐，其其中中有有男男人人、女女人人和和小小孩孩。每每个个男男人人花花了了3先先令令，

40、每每个个女女人人花花了了2先先令令，每每个个小小孩孩花花了了1先先令令，一一共共花花去去50先先令令。问问男男人人、女女人人以以及及小孩各有几人？如图小孩各有几人？如图5-28所示。所示。窗体界面的设计参见前面例子，这里给出命令按钮的窗体界面的设计参见前面例子，这里给出命令按钮的Click事件代码：事件代码：Private Sub Command1_Click()List1.Clear For x=1 To 16 For y=1 To 24 z=30 x y If 3*x+2*y+z=50 Then p=Format(x,)&Format(y,)&Format(z,)List1.AddItem

41、 p End If Next NextEnd Sub习题五习题五 5.1 输出输出101500之间的所有奇数，奇数之和。之间的所有奇数，奇数之和。5.2 输出输出100200之间不能被之间不能被3整除的数。整除的数。5.3 输入初始值，输出输入初始值，输出100个不能被个不能被3整除的数。整除的数。5.4 设设计计程程序序，求求s=1+(1+2)+(1+2+3)+(1+2+3+n)的值。的值。5.5 设设s=123n，求，求s不大于不大于400000时最大的时最大的n。5.6 设设s=112233nn，求，求s不大于不大于400000时最大的时最大的n。5.7 找出找出11000之间的全部之间

42、的全部“同构数同构数”。5.8 “完完备备数数”是是指指一一个个数数恰恰好好等等于于它它的的因因子子之之和和，如如6的的因因子子为为1、2、3，而而6=1+2+3，因因而而6就就是是完完数数。编编制制程程序序，找找出出11000之之间间的的全全部部“完备数完备数”。5.9 编编制制程程序序，求求出出所所有有小小于于或或等等于于100的的自自然然数数对对。自自然然数数对对是是指指两两个个自自然然数数的的和和与与差差都都是是平平方方数数，如如8与与17的的和和8+17=25与与其其差差17 8=9都都是平方数，则是平方数，则8和和17称自然数对。称自然数对。5.10 我我国国古古代代数数学学家家张

43、张丘丘建建在在“算算经经”里里提提出出一一个个世世界界数数学学史史上上有有名名的的百百鸡鸡问问题题：鸡鸡翁翁一一，值值钱钱五五，鸡鸡母母一一，值值钱钱三三，鸡鸡雏雏三三，值值钱钱一一，百钱买百鸡，问鸡翁、母、雏各几何？百钱买百鸡，问鸡翁、母、雏各几何？5.11 利用利用ex的下述近似公式计算的下述近似公式计算e（直到最后一项小于直到最后一项小于10-6为止）。为止）。5.12 编程序在窗体上输出的图形如图编程序在窗体上输出的图形如图5-30所示。所示。5.13 编程序在窗体上输出的图形如图编程序在窗体上输出的图形如图5-31所示。所示。图图5-30 题题5.12 图图5-31 题题5.13 5

44、.14 求下述数列的前求下述数列的前n项之和：项之和：，5.15 验证验证“哥德巴赫猜想哥德巴赫猜想”。1742年年6月，德国数学家哥德巴赫月，德国数学家哥德巴赫（C.Goldbah 1690-1764）在给彼得堡的大数学家欧拉的信中提出一个问题：在给彼得堡的大数学家欧拉的信中提出一个问题：任何大于任何大于6的偶数均可以表示为两个素数之和吗？欧拉复信道：的偶数均可以表示为两个素数之和吗？欧拉复信道：“任何大任何大于于6的偶数均可以表示为两个素数之和，这一猜想我还不能证明，但我确的偶数均可以表示为两个素数之和，这一猜想我还不能证明，但我确信无疑地认为这是完全正确的定理。信无疑地认为这是完全正确的定理。”这就是至今尚未被证明的哥德巴赫这就是至今尚未被证明的哥德巴赫猜想。猜想。5.16 输出输出1100之间的平方、平方根、自然对数、之间的平方、平方根、自然对数、e指数的数学用表。指数的数学用表。