新Visual Basic程序设计教程 项目式 教学课件 陈秀莉 王体英 项目三Visual Basic基本程序控制结构.pptVIP

If TxtPas.Text = 987654 Then MsgBox 输入正确 Else n = MsgBox(密码错误, 5 + vbExclamation, 重新输入密码) If n 4 Then End Else TxtPas.Text = TxtPas.SetFocus End If End If 上机练习 0＜x≤1 1＜x≤2 2＜x≤3 Private Sub Command1_Click() s=0 For i=3 To 99 Step 2 For j=2 To Sqr(i) If i mod j =0 Then Exit For Next j If jSqr(i) Then s=s+i End If Next i Text1.Text=CStr(s) End Sub Public Sub calculate() Dim char As String Dim i As Integer, j As Integer form1.Print form1.Print Tab(33); 九九乘法表 form1.Print Tab(31); *************** For i = 1 To 9 For j = i To 9 char = j × i = (i*j) form1.Print Tab((j - 1) * 8 + 2); char; Next j Next i End Sub Dim m As Long, n As Long, t As Long, r As Long Private Sub Command1_Click() m=Val(Text1.Text) n=Val(Text2.Text) t=m*n Do r = m Mod n m=n n=r Loop Until r=0 t=t/m Text3.Text=t End Sub Private Sub Command1_Click() Dim F(30) As Long Dim i As Integer Cls F(1)=1: F(2)=1 For i=3 To 30 F(i)=F(i-1)+F(i-1) Next i For i=1 To 30 Print F(i); If i mod 5=0 Then print Next i Text1.Text=F(30) End Sub Public Sub calculate() Dim char As String Dim i As Integer, j As Integer form1.Print form1.Print Tab(33); 九九乘法表 form1.Print Tab(31); *************** For i = 1 To 9 For j = i To 9 char = j × i = (i*j) form1.Print Tab((j - 1) * 8 + 2); char; Next j Next i End Sub 四、随堂练习 1、计算两个数的最大公约数和最小公倍数。 2、设计程序，按如图3-18所示格式打印九九乘法表。 图3-18. 九九乘法表 五、任务小结 1、在循环体内一般应有一个专门用来改变条件表达式中变量的语句，以使随着循环的执行，条件趋于不成立（或成立），最后达到退出循环。 2、语句Exit Do的作用是退出它所在的循环结构，它只能用在DO/Loop结构中，并且常常是同选择结构一起出现在循环结构中，用来实现当满足某一条件时提前退出循环。 使用while语句设计循环结构程序3 在循环体内再进行其他循环操作，在内嵌的循环中还可以再包括循环，这种在一个循环的循环体内又含有另外一个循环的循环结构称之为多重循环，也称为循环的嵌套。 在嵌套结构中，对嵌套的层数没有限制，有几层嵌套，就说是几重循环。通常我们把嵌套在一个循环体内部的循环部分称之为内循环，把嵌套了其他内循环的循环部分称之为外循环。嵌套时，内层循环必须完全包含在外层循环之内，不能