全国计算机等级考试二级VB程序设计模拟试题四【完善程序题】

全国等级考试资料网 2019-01-17 02:43:40 54

完善程序题(每空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

首页 1 2 3 尾页 相关资料

相关阅读