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

程序设计题（10分）

 输入任意两个正整数m和n，求这两个数的最大公约数（单击窗体执行程序）。

Private sub Form_click( )

Dim m%，n％，t％，r%

m=Inputbox(“输入m”)        (1’)

n= Inputbox(“输入m”)        (1’)

If  m

  t=m：m=n：n=t            (1’)

End If

r=m mod n                  (1’)

Do While r<>0              (1’)

  m=n                      (1’)

  n=r                       (1’)

 r=m mod n                 (1’)

Loop

Print “最大公约数为：”；n    (1’)

End Sub

• 2018年—2011年岩土工程师考试真题汇总
• 2019造价工程师《土建工程》模拟试题及答案（2）
• 2019年英语四级阅读理解专项练习（十六）
• 2019年英语四级阅读理解专项练习（十七）
• 2019年英语四级阅读理解专项练习（十八）
• 2020年二级建造师《市政实务》预习题及参考答案（10）
• 2019年房地产估价师考试制度与政策章节精讲题：城镇土地使用税
• 2020考研英语：暑期复习六大注意事项
• 2019年全国公共英语考试二级词汇和语法专项练习（3）
• 2020年监理工程师考试《案例分析》备考试题（9）