【一、程序改错题（要求,改错题,改正的部分以红色显示）程序功能：计算两个数的最大公约数.程序中有一行有错误,改正错误,使程序能输出正确结果PrivateSubCommand1_Click()Printfun(1107,2889)EndSu】

　　一、程序改错题（要求,改错题,改正的部分以红色显示）

　　程序功能：计算两个数的最大公约数.程序中有一行有错误,改正错误,使程序能输出正确结果

　　PrivateSubCommand1_Click()

　　Printfun(1107,2889)

　　EndSub

　　PrivateFunctionfun(u,v)AsInteger

　　While(v0)

　　t=uModv

　　u=v

　　v=t

　　Wend

　　fun=v

　　EndFunction