第5章vb 控制结构与算法 - 山东外贸职业学院.ppt

 Visual Basic 程 序 设 计 第5章 循环结构 本章主要内容 1、For …Next 循环 2、While……Wend 循环 3、Do……While 循环 4、循环嵌套 5、其它辅助语句 6、综合举例 循环结构 循环结构： 所谓循环，就是重复执行某些操作。 循环结构主要包括：当型循环和直到型循环。 VB 提供了三种不同风格的循环语句 ： 1、 For …Next 循环 2、While……Wend 循环 3、Do……While 循环 例 5.2 判断用户输入的数是否为素数 li5_2.vbp 应用程序界面如图： 编写代码： Private Sub Command1_Click() Dim m as integer ,k as integer Dim n As Long If Val(Text1.Text) 2147483647 Then MsgBox 数据溢出，请重新输入, vbOKCancel + vbInformation, “数据错误” Text1.Text = Else n = CLng(Text1.Text) k =Int(Sqr(n) ) m = 0 ‘ m是一个标记 ：1—否，0—是 For i=2 To k If n Mod k = 0 Then m = 1 Next i If m = 0 Then Label2.Caption = “是一个素数” Else Label2.Caption = “不是一个素数” End If End If Text1.SetFocus End Sub 例5.3：求∏的值。计算公式见P67 练习1：写出下面程序的运行结果 Private Sub Form_Click() Dim a As Integer, i As Integer, j As Integer a = 0 For i = 1 To 5 For j = -2 To 2 a = a + i + j Next j Print a; Next i Print Print i, j, a End Sub 练习2：编程显示如图所示的乘法九九表 编写command1_click事件的代码如下： Private Sub Command1_Click() Dim I%, j% Dim expss As String For i = 1 To 9 For j = 1 To i expss = i × j = i * j Picture1.Print Tab((j - 1) * 10 + 1); expss; Next j Picture1.Print Next i End Sub Do 循环举例 例 5.6 求 s=1+2+3+……+100 的和 例 5.7 求两自然数m,n 的最大公约数和最小公倍数 其设计思路是： 最大公约数----辗转相除法 （1）假设m大于n； （2）m除以n，得余数r。 （3）若r=0，则n即为所求的最大公约数，结束； 否则，执行步骤（4）； （4）令m←n，n←r再转到（2）执行。 最小公倍数：两数的乘积除以最大公约数 见 li5_7.vbp 5.5 其他辅助语句 With语句 With语句的功能是在一个单一对象或一个用户定义类型上执行一系列的语句。 其语法结构为： With 对象 [语句块] End With