VisualBasic教程：优化的Do…Loop循环结构

·前测型Do…Loop循环结构,首先判断条件,根据条件决定是否执行循环体,执行循环体的最少次数为0。其语法为:

Do While…Loop是(前测型)当型循环语句,当条件为真(True)时执行循环体,条件为假(False)时,终止循环。

Do Until…Loop是(前测型)直到型循环语句,条件为假时执行循环体,直到条件为真时,终止循环。

·后测型Do…Loop循环结构,首先执行循环体,然后判断条件,根据条件决定是否继续执行循环,因此执行循环的最少次数为1。其语法为:

Do…Loop While是(后测型)当型循环语句,当条件为真(True)时继续执行循环体,条件为假(False)时,终止循环。

Do…Loop Until是(后测型)直到型循环语句,条件为假时继续执行循环体,直到条件为真时,终止循环。

【案例4-6】判断素数。

【案例要求】

任意输入一个正整数,判断其是否为素数,并输出结果。

【案例操作】

新建一个窗体,打开窗体的Click事件代码窗口,输入相应代码。

代码:

【案例4-7】计算最大公约数。

【案例要求】

任意输入两个正整数,求出它们的最大公约数,程序运行后初始状态如图4-4所示,当用户在“m=”和“n=”后的两个文本框内各输入一个正整数后,鼠标单击“计算”按钮,则将输入的两数的最大公约数显示在“最大公约数=”后的文本框内,当用户单击“清空”按钮后则界面回到初始状态。

【案例操作】(www.xing528.com)

(1)界面设置

新建窗体,在窗体中创建如图4-4所示的控件,包括四个标签、三个文本框和两个命令按钮,并将这些控件拖放到指定的位置。

(2)控件说明

·窗体:设置其标题栏上显示的文本,即修改其Caption属性值。

图4-4　计算最大公约数运行图

·四个标签:根据图示分别修改Label对象的Caption属性,同时修改其Font属性来改变标签显示文本的字体、字号、字形等。

·三个文本框:将文本框的Text属性设为空,同样设置其Font属性。

·两个命令按钮:按图示修改其Caption属性。

(3)代码编写

·“计算”按钮的单击事件代码

计算最大公约数,我们用到的是欧几里得算法,也叫辗转相除法。其过程是:求出m、n的余数p,若p=0,n即为最大公约数;若p非0,则把原来的分母n作为新的分子m,把余数p作为新的分母n继续求解。

·“清空”按钮的单击事件代码

(4)运行程序

按F5键运行程序。