全国计算机等级考试二级VB程序设计模拟试题四【完善程序题】
完善程序题(每空1分,共10分) 1.求两个自然数m,n的最大公约数 Private Sub Form_Click() Dim m%,n%,t%,r% m=InputBox(“输入m”) n= InputBox(“输入n”) If m t=m:m=n:n=t [ 1 ] Do r= [ 2 ] If r=0 then [ 3 ] m=n [ 4 ] Loop Print “m和n的最大公约数是:”, [ 5 ] End Sub |