运动会开了M天，发了N枚金牌，第一天发了一加剩下的七分之一，第二天发了两枚加剩下的七分之一……到第M天正好发完，求M,N。 
要求：用顺推，尽量用DO循环。  
 

根本就不需要do循环给你两种代码QB和VB QB是 input m: m = val(m): Y = 0: for x = m to 1: N =N  * 7 + x: ?N: next: ?"N = " & N: end

VB的是 private sub command1_click(): M = val(text1):N = 0: for x = m to 1: N = N * 7 + m: label1.caption = label1.caption & N & chr(10) & chr(13): next: label1.caption = label1.caption & "N = " & n: end sub