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

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

中华IT学院   【 】  [ 2017年1月19日 ]

完善程序题(每空1分,共10分)

 1.求两个自然数m,n的最大公约数

    Private Sub Form_Click()   

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

     m=InputBox(“输入m”)

     n= InputBox(“输入n”)

     If  m<n   then

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