算法基础及VB的基本语句教学资料.ppt

63 在该例中我们使用了三个变量分别表示被除数m除数n及余数r Do r=m Mod n m=n n=r Loop Until r=0 最大公约数是 64 由于输入的数据M和N要求是自然数在程序中应加入对数据的合法性进行检验的部分 考虑到程序的应用范围数据类型可选用长整型 问题分析及界面设计 65 Private Sub Command1_Click) Dim m As Long, n As L