VB语言程序设计循环结构程序设计.ppt

上传人:小飞机 文档编号:5451996 上传时间:2023-07-08 格式:PPT 页数:54 大小:566.50KB
返回 下载 相关 举报
VB语言程序设计循环结构程序设计.ppt_第1页
第1页 / 共54页
VB语言程序设计循环结构程序设计.ppt_第2页
第2页 / 共54页
VB语言程序设计循环结构程序设计.ppt_第3页
第3页 / 共54页
VB语言程序设计循环结构程序设计.ppt_第4页
第4页 / 共54页
VB语言程序设计循环结构程序设计.ppt_第5页
第5页 / 共54页
点击查看更多>>
资源描述

《VB语言程序设计循环结构程序设计.ppt》由会员分享,可在线阅读,更多相关《VB语言程序设计循环结构程序设计.ppt(54页珍藏版)》请在三一办公上搜索。

1、循环结构程序设计,本章内容,5.1 循环语句 5.2 多重循环5.3 列表框与组合框 5.4 常用算法 5.5 程序举例,循环结构,循环三要素:(1)初始化:决定循环的初始状态,即与循环相关的变量的初始值;(2)循环体:循环中反复执行的部分;(3)循环的条件:决定循环结束的条件。三种循环结构:for、while、do。,FOR 循环,格式:For 循环变量初值 To 终值 Step 步长循环体Exit ForNext 循环变量功能:按循环变量的初值、终值和步长所确定的次数执行循环体。,5.2 多重循环,在一个循环结构的循环体内含有另一个完整的循环结构,称之为多重循环或嵌套循环。说明:内外循环之

2、间必须完整包含,不得交叉。内循环变量与外循环变量不能同名。,多重循环,正例:for i=1 to 10for j=1 to 10 next j next i,内循环 j,外循环 i,错例:for i=1 to 10for j=1 to 10 next i next j,例5.9 多重循环程序示例 Private Sub Form_Load()Show For i=1 To 3 外循环 For j=5 To 7 内循环 Print i,j Next j Next i End Sub 注意内、外循环层次要分清,不能交叉,本例可采用两重循环来实现。外循环控制输出7行,内循环控制每行输出要求的字符数。

3、在进入内循环之前,使用Print Tab()来对起始输出位置定位,退出内循环后,使用Print来控制换行。,例5.10 编一程序,输出下列所示的图形,Private Sub Form_Load()Show For i=1 To 7 Print Tab(10-i);输出位置 For j=1 To 2*i-1 Print Chr(i+48);Next j Print Next i End Sub 注意:Print Chr(i+48)与 Print i 有所不同,(1)分析:设1元硬币为a枚,2元硬币为b枚,5元硬币为c枚,可列出方程 a+b+c=10 a+2b+5c=25采用两重循环,外循环变量a

4、从010,内循环变量b从010(2)创建应用程序的用户界面,例5.11 取1元、2元、5元的硬币共10枚,付给25元钱,有多少种不同的取法?,Private Sub Form_Load()Show CurrentX=0:CurrentY=1500 Print,“5元,“2元,“1元 n=0 记录解的组数 For a=0 To 10 For b=0 To 10 c=10-b-a If a+2*b+5*c=25 And c=0 Then n=n+1 Print(;n;),c,b,a End If Next b,a 合并两个Next语句End Sub,例 题,打印九九乘法表。,思考:,程序如何改动,

5、可以得到如下结果。,列表框(ListBox),列表框(ListBox),如果列表项数量超过列表框所能显示的数目,VB会自动为列表框加上滚动条。列表框只能从其中选择,而不能直接修改其中的内容(不像文本框Text)。,列表框的属性,For i=0 to List1.ListCount-1 step 1 Print List1.List(i)Next i,列表框的属性,Print List1.List(List1.ListIndex),Print List1.Text,列表框的属性,Multiselect和Style属性举例,列表框举例,列表框各主要属性的值:List1.ListIndex=3(下标

6、从0开始的)List1.ListCount=5 List1.Selected(3)=True,其余为False。List1.Text 为“cox”,与List1.List(List1.ListIndex)相等,List1,基本方法,1.AddItem方法格式:Object.AddItem 列表项,索引功能:AddItem方法用于在程序代码中添加列表项。说明:默认索引时,在列表框的最后添加新列表项,有索引时,则在索引指定的位置添加。,例如:在城市名称列表框(List1)的第一个位置前添加“广州市”:List1.AddItem“广州市,0,2.RemoveItem方法格式:Object.Remov

7、eItem 索引功能:用于删除指定的列表项。,例如:删除“重庆市”列表项,索引号为2,则:List1.RemoveItem 2,例如:删除选中的列表项:List1.RemoveItem List1.ListIndex,例如:添加选中的列表项:List2.AddItem List1.Text,3.Clear方法格式:Object.Clear功能:用于删除所有列表项。例如:从List1中删除所有列表项:List1.Clear,采用以下方法,可为列表框List1赋值(添加列表项):(1)在属性窗口中设置(Ctrl+Enter)(2)利用AddItem赋值(3)利用List属性赋值 List1.Add

8、Item“教授”List1.List(0)=“教授”List1.AddItem“副教授”List1.List(1)=“副教授”List1.AddItem“讲师”List1.List(2)=“讲师”List1.AddItem“助教”List1.List(3)=“助教”,列表框列表项的输出(1)用鼠标单击列表框内某一表项,则该表项值存放在Text属性中。例如:x=List1.Text 把表项值存放在x变量中(2)指定索引号来取表项的内容,例如:List1.ListIndex=3 x=List1.Text(3)直接从数组List()中读取,例如:x=List1.List(5),(1)分析:判别条件为

9、(n Mod 16=0)And(Sqr(n)=Int(Sqr(n)。(2)创建应用程序的用户界面和设置对象属性,例5.12 设计程序,找出4位数中能被16整除的完全平方数,把这4位数显示在列表框中,其个数显示在标签中。,(3)编写程序代码Private Sub Form_Load()Label1.Caption=按“显示”按钮,可以在列表框中显示4位数中 _&能被16整除的完全平方数End SubPrivate Sub Command1_Click()List1.Clear For n=1000 To 9999 If(n Mod 16=0)And(Sqr(n)=Int(Sqr(n)Then L

10、ist1.AddItem n End If Next n Label1.Caption=符合条件的4位数的个数为:&List1.ListCountEnd Sub,(1)创建应用程序的用户界面和设置对象属性 用户先在左列表框(List1)选择一个或多个选修课,当单击“显示”按钮时,在右列表框(List2)中将显示出用户选中的所有课程。单击“清除”按钮时,将清除右列表框中的内容(2)编写程序代码,例5.13 设计一个选课程序,MultiSelect属性值为2,Private Sub Form_Load()List1.AddItem 电子商务 List1.AddItem 网页制作 List1.Add

11、Item Internet简明教程 List1.AddItem 计算机网络基础 List1.AddItem 多媒体技术“End SubPrivate Sub Command1_Click()List2.Clear For i=0 To List1.ListCount-1 If List1.Selected(i)Then List2.AddItem List1.List(i)End If Next iEnd Sub,组合框(ComboBox),组合框结合了文本框和列表框的特性。用户可以从文本框中输入文本,也可以从列表框中选择列表项。,组合框(ComboBox),列表框中列出可供用户选择的选项,当

12、用户选定某项后,该项内容自动装入文本框中。除下拉式列表框(其Style属性值为2)之外都允许在文本框中用键盘输入,但输入的内容不会自动添加到列表框中。,组合框特有的重要属性,组合框举例,组合框各主要属性的值:combo1.ListIndex=0 combo1.ListCount=8 combo1.Text 为“李宁”combo1没有Selected(i)和MultiSelect属性,Combo1,(1)创建应用程序的用户界面和设置对象属性,例5.14 在窗体上设置3个组合框,用于选择微机部分配置,包括CPU/主频、硬盘及内存。,图片框,设计界面,(2)编写程序代码 Private Sub Fo

13、rm_Load()Combo1.Text=Combo1.List(0)Combo2.Text=Combo2.List(0)Combo3.Text=Combo3.List(0)End Sub Private Sub Command1_Click()“确定”按钮的事件过程 Picture1.Cls Picture1.Print 微机的基本配置 Picture1.Print String(20,=)Picture1.Print CPU:;Combo1.Text;GB Picture1.Print 硬盘(GB):;Combo2.Text Picture1.Print 内存(MB):;Combo3.Te

14、xt End Sub,(1)创建应用程序的用户界面(2)设置对象属性 组合框的Style属性为0,TabIndex(键序)为0 两个标签;四个命令按钮;一个文本框Text1,用来显示当前的选修课总课程数,例5.19 编制程序,把一批课程名放入组合框中,再对组合框进行项目显示、添加、删除、全部删除等操作,例5.20,(3)编写程序代码 Private Sub Form_Load()Combo1.AddItem 电子商务 Combo1.AddItem 网页制作 Combo1.AddItem Internet简明教程 Combo1.AddItem 计算机网络基础 Combo1.AddItem 多媒体

15、技术 Combo1.Text=置空值 Text1.Text=Combo1.ListCount 表项个数 End Sub Private Sub Command1_Click()”添加”If Len(Combo1.Text)0 Then Combo1.AddItem Combo1.Text Text1.Text=Combo1.ListCount End If Combo1.Text=Combo1.SetFocus End Sub,Private Sub Command2_Click()“删除”Dim ind As Integer ind=Combo1.ListIndex If ind-1 The

16、n-1表示无表项 Combo1.RemoveItem ind 删除已选定的表项 Text1.Text=Combo1.ListCount End If End Sub Private Sub Command3_Click()“全清”Combo1.Clear Text1.Text=Combo1.ListCount End Sub Private Sub Command4_Click()End End Sub,54、在考生文件夹下有一个工程文件sj82.vbp,相应的窗体文件为sj82.frm,包含了所有控件和部分程序,如图所示。要求:1)利用属性窗口向列表框添加四个项目:Visual Basic,

17、Turbo C,C+,Java;2)请编写适当的程序完成以下功能:当选择列表框中的一项和单选按钮Option1,然后单击确定命令按钮,则文本框中显示XXX笔试;当选择列表框中的一项和单选按钮Option2,然后单击确定命令按钮,则文本框中显示XXX上机。其中XXX是在列表框中所选择的项目。注意:考生不得修改窗体文件中已经存在的程序,退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前,必须至少要进行一次选择操作(包括列表框和单选按钮),否则不得分。最后把修改后的文件按原文件名存盘。,Private Sub Command1_Click()If Option1.Value Then T

18、ext1=List1.Text&Option1.Caption+Else Text1=List1.Text&Option2.Caption+End IfEnd Sub 注意:text1中显示“Turbo c上机”才会得满分。,43、在名称为Form1的窗体上画一个名称为Label1、标题为添加项目:的标签;画一个名称为Text1的文本框,没有初始内容;画一个名称为Combo1的下拉式组合框,并通过属性窗口输入若干项目(不少于3个,内容任意);再画两个命令按钮,名称分别为Command1、Command2,标题分别为添加、统计。在运行时,向Text1中输入字符,单击添加按钮后,则Text1中的内

19、容作为一个列表项被添加到组合框的列表中;单击统计按钮,则在窗体上显示组合框中列表项的个数,如图所示。请编写两个命令按钮的Click事件过程。*注意:程序中不得使用变量,也不能使用循环。存盘时必须存放在考生文件夹下,工程文件名为sj27.vbp,窗体文件名为sj27.frm。,Private Sub Command1_Click()Combo1.AddItem Text1.TextEnd SubPrivate Sub Command2_Click()Print Combo1.ListCountEnd Sub,5.4 常用算法,算法是对某个问题求解过程的描述。常用的算法有:穷举法、递推法、排序法、

20、查找法、递归法等。1.累加、连乘和计数 累加(如s=s+k)是在原有和的基础上一次一次地每次加一个数,连乘(如t=t*c)则是在原有积的基础上一次一次地每次乘一个数。计数通常每次增加的值是1(n=n+1)。课后题 找出3位数中的“水仙花”数,计算其个数。所谓水仙花数,是指各位数字立方和等于该数本身,如153是一个水仙花数,因为153=13+53+33。程序中采用计数方法n=n+1(或称“计数器”)来记录有多少个“水仙花”数。,Private Sub Form_Load()找水仙花数 Dim k As Integer,a As Integer,b As Integer Dim c As Inte

21、ger,n As Intege Show n=0 Print 三位数的水仙花数是:For k=100 To 999 a=Int(k/100)求百位数 b=Int(k-100*a)/10)求十位数 c=k Mod 10 求个位数 If k=a3+b3+c3 Then Print k 输出水仙花数 n=n+1 对满足条件的数进行计数 End If Next k Print 一共有&n&个水仙花数End Sub,2穷举法,“穷举法”也称为“枚举法”,它是计算机解题常用的一种方法。其做法是:从所有可能解中,逐个进行试验,若满足条件,就得到一个解,否则不是。直到条件满足或判别出无解为止。例5.15 用1

22、00元买100只鸡,母鸡3元1只,小鸡1元3只,问各应买多少只?下面采用穷举法来解此题。对于此题,令母鸡为x只,小鸡为y只,根据题意可知y=100-x,开始先让x初值为1,以后逐次加1,求x为何值时,条件3x+y/3=100成立。如果当x达到30时还不能使条件成立,则可以断定此题无解。因为买的母鸡数不可能超过30,超过30就不能买到100只鸡。,100元买100只鸡,Private Sub Form_Load()Dim x As Integer,y As Integer Show For x=1 To 30 y=100-x If 3*x+y/3=100 Then Print“母鸡只数为:”;x

23、,Print“小鸡只数为:”;y End If Next xEnd Sub,程序运行结果是:母鸡只数为:25小鸡只数为:75,例 题,“百鸡百钱”问题。要求用100元钱买100只鸡,已知一只公鸡5元,一只母鸡3元,3只小鸡1元。现有100元钱,要买100只鸡,求公鸡、母鸡和小鸡各买多少只。,Private Sub Form_Load()Dim x As Integer,y As Integer,z%,k%Show print 公鸡,母鸡,雏鸡 For x=0 To 20 For y=0 To 33 z=100 x-y If 5*x+3*y+z/3=100 Then Print x,y,z k=

24、k+1 End If Next y Next x print 可能方案有:;k;种End Sub,3.递推法,“递推法”也称为“迭代法”,其基本思想是把一个复杂的计算过程转化为简单过程的多次重复。每次重复都从旧值的基础上递推出新值,并由新值代替旧值。通过InputBox函数输入a值,并以a作为x的初值。要求前后两次求出的x的差的绝对值小于10-5。分析:这是一个“递推”问题,先从a推出第一个x值 即(a+a/a)/2x,再以该x值(旧值)推出x的新值 即(x+a/x)/2x,依次向前推,每次以x旧值推出x的新值 即(x+a/x)/2x。当x旧值与新值之差的绝对值小于10-5时,此时的x新值为所

25、求。,Private Sub Form_Load()Dim a As Single,xn0 As Single,xn1 As Single Show 用xn0表示旧值,xn1表示新值 a=Val(InputBox(请输入一个正数)xn1=a 以a作为x的初值 Do xn0=xn1 确定旧值 xn1=(xn0+a/xn0)/2 计算新值 Loop While Abs(xn0-xn1)=0.00001 判断 Print a;的平方根为;xn1End Sub 如果输入的a值为3,程序运行结果是:3的平方根为 1.732051,例5.18 从键盘输入一个正整数,然后把该数的每位数字按逆序输出。例如:输

26、入3485,则输出5843;输入100000,则输出000001。以下采用两种不同解法。(1)数值处理方法 通过表达式x Mod 10取出该整数x的个位数并输出,如对于x=3485,则取出5;利用赋值语句x=x 10截去x的个位数,如对于x=3485,处理后x=348;重复执行和,直到x=10 Print x Mod 10;x=x 10 Loop Print x,(2)字符串处理方法,把该整数作为一个数字字符串,从字符串后部往前逐个取出字符,即可实现按逆序输出。Dim x As String x=InputBox(请输入一个正整数)把该数以字符串方式赋给变量x For k=Len(x)To 1

27、 Step-1 Print Mid(x,k,1);从后部往前逐个取出字符并显示 Next k,例5.19 求解s=1!+2!+3!+10!的值,采用两种不同解法(1)解法一:采用两重循环,外循环10次,每次循环计算一次阶乘,把每次阶乘值累加起来,即得求解结果。Dim s As Long,t As Long s=0 For j=1 To 10 计算10个阶乘 t=1 计算1个阶乘前,先赋初值 For k=1 To j 计算j!,需要循环j次 t=t*k 连乘j次 Next k s=s+t 把每次计算得到的阶乘值t累加 Next j Print s,(2)解法二 求解s=1!+2!+3!+10!的值,这10个阶乘有一个特点,后一个阶乘为上一个阶乘再乘以一个数,如2!=1!*2,3!=2!*3,4!=3!*4,k!=(k-1)!*k。根据这一特点,程序只须采用单重循环就可以求解。Dim s As Long,t As Long s=0 t=1 For k=1 To 10 循环10次,每次求1个阶乘 t=t*k 求k!,其值等于(k-1)!*k,即t*k s=s+t 每次加入一个阶乘值t Next k Print s,

展开阅读全文
相关资源
猜你喜欢
相关搜索
资源标签

当前位置:首页 > 生活休闲 > 在线阅读


备案号:宁ICP备20000045号-2

经营许可证:宁B2-20210002

宁公网安备 64010402000987号