用户登录

试题库导航

教案库导航

课件库导航

素材库导航

相似资源下载


资源类别: 素材库 > 其它素材 > 其它素材
教材版本:
文件格式: WORD文档
文件大小: 133KB
地        区:
年        份:
更新时间: 2010-11-16
所需积分: 3
上传用户: swt19871026
下载地址: 点击下载(不支持迅雷等软件,请关闭相关下载软件后直接点击下载)
下载次数:
      友情提醒:(1)新用户注册、激活成功后一律免费赠送5个积分。点击这里注册。(2)下载成功后,12小时内本资源可免费多次下载。

获取积分的办法:
      1.上传教学资源得积分或兑换现金,详情请见:考试周刊杂志社会员上传教学资源奖励办法(试行)
      2.购买积分,具体请见:考试周刊杂志社积分购买办法(暂行)
      
  资源简介
    最大公约数
    Private Sub sub1( byval a As Integer, byval b As Integer, m As Integer)
    Dim i As Integer, max As Integer, min As Integer, r As Integer
    If a > b Then
    max = a: min = b
    Else
    max = b: min = a
    End If
    Do
    r = max Mod min
    max = min
    min = r
    Loop Until r = 0
    m = max
    end sub

    求最小公倍数(aPrivate Function fun(ByVal a As Integer, ByVal b As Integer) As Long
    Dim large As Integer, small As Integer, k As Integer
    Do Do while a mod b<>0
    fun = fun + a k=k+1
    If fun Mod a = 0 And fun Mod b = 0 Then a=a+a/k
    Exit Do
  免责申明
           1、[考试周刊杂志社-教学资源库]上的所有教学资料均属作者自愿提供和网友间收集整理推荐,仅限本站网友或注册用户间的相互讨论、交流、学习和研究之用,本网站不承担任何形式的版权、著作权和民事责任。如发现某项教学素材、教学课件或教学资料确有侵犯你的版权,请来信(admin_kszk@vip.163.com)指出,本站负责立即改正或删除。
           2、访问[考试周刊杂志社-教学资源库]的用户必须明白,[考试周刊杂志社-教学资源库]对提供下载的教学资源不拥有任何权利,其版权归该资源的合法拥有者所有。
           3、[考试周刊杂志社-教学资源库]保证站内提供的所有可下载资源都是按“原样”提供,本站未做过任何改动;但本网站不保证本站提供的下载资源的准确性、安全性和完整性;同时本网站也不承担用户因使用这些下载资源对自己和他人造成任何形式的损失或伤害。
           4、未经[考试周刊杂志社]的明确许可,任何人不得大量链接本站下载资源;不得复制或仿造本网站。本网站对其自行开发的或和他人共同开发的所有内容、技术手段和服务拥有全部知识产权,任何人不得侵害或破坏,也不得擅自使用。