考试首页 | 考试用书 | 培训课程 | 模拟考场 | 考试论坛  
全国  |             |          |          |          |          |         
  当前位置:计算机等级 > 二级考试 > Visual Basic > VB模拟试题 > 文章内容
  

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

中华IT学院   【 】  [ 2017年2月4日 ]

程序设计题(10

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

 

Private sub Form_click( )

Dim m%,n%,t%,r%

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

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

If  m<n then                (1’)

  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

 

分享到:
本文纠错】【告诉好友】【打印此文】【返回顶部
将考试网添加到收藏夹 | 每次上网自动访问考试网 | 复制本页地址,传给QQ/MSN上的好友 | 申请链接 | 意见留言 TOP
关于本站  网站声明  广告服务  联系方式  站内导航  考试论坛
Copyright © 2006-2017 中华考试网(Examw.com) All Rights Reserved  营业执照