VisualBasic程序设计第3版电子教案第5章.pptVIP

【例5.6】求。 我们用格式1实现，程序如下： Private Sub Form_Click() Dim s%, I% I = 1 s = 0 Do While I = 100 s = s + I I = I + 1 Loop Print s=; s End Sub 单击窗体，输出程序的运行结果为： s=5050 【例5.7】求两自然数m，n的最大公约数。 设计思想：（1）m除以n得到余数r； （2）若r=0，则n为要求的最大公约数，算法结束；否则执行（3）； （3）n→m，r→n，再转到（1）执行。 程序如下： Private Sub command1_Click() Dim m%, n%, r% m = Val(Text1.Text) n = Val(Text2.Text) r = m Mod n Do Until r = 0 m = n n = r r = m Mod n Loop Print