05 第05章 VB程序设计循环结构

VB程序设计PDF清晰教程。

大学计算机基础教程

TaiYuan University of Technology

第5章

设计循环结构程序Visual Basic程序设计教程

VB程序设计PDF清晰教程。

循环结构又称重复结构。本章主要介绍：逻辑表达式 For/Next语句 Do/Loop语句 While/Wend语句循环的嵌套使用。

2

Visual Basic程序设计教程

VB程序设计PDF清晰教程。

循环结构是根据条件来决定某段代码是否重复执行。循环结构中一种常用的流程可以表示如图：条件满足就执行a块程序段然后再进行条件判别如果满足条件，则继续执行a块程序段直到条件不满足，才执行a块后面的程序。

3

Visual Basic程序设计教程

VB程序设计PDF清晰教程。

其中的a程序块段称为循环体。条件使用逻辑表达式。循环的另一种形式是把判断条件放在循环体之后。

4

Visual Basic程序设计教程

VB程序设计PDF清晰教程。

循环结构中有两个基本问题需要考虑： (1)条件必须明确，能使循环过程正常结束 (2)循环体内，必要时可改变控制循环的条件改变可能导致循环结束改变也可能导致循环进入无休止的状态(死循环)。

5

Visual Basic程序设计教程

VB程序设计PDF清晰教程。

循环有两种类型：计数控制控制累计执行循环体的次数次数已到则结束循环如1+2+3+…+100或98+96+94+…+4+2事态控制由某些条件决定循环结束。如计算一系列正整数之和，遇负数停止循环。也可以在一个循环过程中同时使用这两种类型6 Visual Basic程序设计教程

VB程序设计PDF清晰教程。

【例5-1】设计一个判断素数的程序。若不是素数，要求分解为a*b的形式控件：1个文本框和1个命令按钮事件：命令按钮的Click。首先要了解什么是素数。素数是指除了1和自身外，不能被其它整数整除的正整数。

判断A是否为素数的基本方法是：将A分别除以2、3、……、A-1,若都不能整除，则它为素数。

判断A被i整除可以采用表达式：A Mod i= 0或：A/ i= A\ i或：A/ i= Int(A/i) 7 Visual Basic程序设计教程

VB程序设计PDF清晰教程。

Option Explicit Private Sub Command1_Click() Dim A As Long, i As Integer 'A存放要判断的数。i取值为2~A-1 Dim Flag As Boolean ' Flag作素数标志，False时，表示不是素数 A= Val(Text1.Text) Flag= True '先设A是素数，当A<2或能被i整除时，再置为False If A< 2 Then Flag= False 'A<2,不是素数 Else i=2 Do While i<= A-1 If A Mod i= 0 Then Flag= False: Exit Do 'A能被i整除,则不是素数 i=i+1 Loop End If If Flag Then MsgBox A&"是素数",,"信息" Else ' A表示成两数之积 MsgBox A&"不是素数"& Chr(13)& A&"="& i&"*"& A/i,,"信息" End If End Sub

8

Visual Basic程序设计教程

VB程序设计PDF清晰教程。

说明：程序中，也可以不设标志变量，在最后判断i是否超过终值A1,若超过终值则表示直到循环完成，还没遇到一个能被整除的整数，即它是素数；否则它就不是素数。当A能被其中一个i整除时，A肯定不是素数，所以没有必要再测试下一个i,

因此使用Exit Do退出循环。在使用Exit Do退出循环的时候，没有改变i的值，故A能被该 i整除，即A可以表示成A=i*(A/i)。事实上只要判断A能否被2、3、……、Sqr(A)整除即可。

9

Visual Basic程序设计教程

VB程序设计PDF清晰教程。

逻辑运算使用逻辑运算符 VB提供了多个逻辑运算符，有：非(Not)、与(And)、或(Or)异或(Xor)、等价(Eqv)、蕴含(Imp)。 1.基本格式Not为一元运算符，其它均为二元运算符。格式： Not表达式表达式1逻辑运算符表达式2 (除Not外)

一个逻辑表达式可用一个或多个逻辑运算符。如：A>0 And B>0 And C>0 2.数据类型逻辑运算的数据及结果均为布尔类型。

10

Visual Basic程序设计教程

VB程序设计PDF清晰教程。

3.运算方式

4.优先级算术运算符→关系运算符→逻辑运算符字符串运算符

Not→ And→ Or→ Xor→ Eqv→ Imp11 Visual Basic程序设计教程

VB程序设计PDF清晰教程。

5.逻辑表达式举例 (1)设变量Name1的值为“王小华”、变量Addr的值为“上海”,则表达式：Name1=“王小华” Or Addr="杭州"值：True表达式： Name1=“王小华” And Addr="沪"值： False (2)写出数学表达式0<x<10对应的VB表达式。 VB表达式应为： x> 0 And x< 10

12

Visual Basic程序设计教程

VB程序设计PDF清晰教程。

(3)描述Name1的值不等于“王小华”的表达式。该表达式可写为： Name1<>"王小华"或： Not Name1="王小华" (4)X=3、Y=4、Z=5,求表达式X>2 Xor Y<0 Or Z>X+1的值。执行次序如图所示，最终值为False。

13

Visual Basic程序设计教程

VB程序设计PDF清晰教程。

【例5-2】设计程序，要求对文本框的年份判断是否为闰年，并在标签中显示相应的信息。闰年的条件是：能被4整除，但不能被100整除；或能被400整除。设变量Y存放年份，则该逻辑表达式应为： Y Mod 4=0 And Y Mod 100<>0 Or Y Mod 400=014 Visual Basic程序设计教程

VB程序设计PDF清晰教程。

程序代码如下： Option Explicit Private Sub Command1_Click() Dim Y As Integer If Command1.Caption="闰年判断" Then '闰年判断 Y= Val …… 此处隐藏：1012字，全部文档内容请下载后查看。喜欢就下载吧 ……