5_8.htm

来自「ASP 网页数据库短训教程源码」· HTM 代码 · 共 22 行

HTM
22 行
字号 
<HTML>
  <HEAD><TITLE>求最大公约数</TITLE></HEAD>
  <BODY><H3>求最大公约数</H3><HR>
    请输入两个自然数：<P>
    <input name="Text1" TYPE="TEXT" SIZE="10"><P>
    <input name="Text2" TYPE="TEXT" SIZE="10"><P>
    <INPUT TYPE="Button" NAME="Button1"  VALUE="判断">
    <SCRIPT FOR="Button1" EVENT="onClick" LANGUAGE="VBScript">
      m = Text1.value
      n = Text2.value
      If Not (IsNumeric(m) And IsNumeric(n)) Then MsgBox "输入的不是数值" : Exit Sub
      If n * m = 0 Then MsgBox "两数都不能为0!" : Exit Sub
      If m < n Then t = m: m = n: n = t
      Do
        r = m Mod n
        m = n : n = r
      Loop While r <> 0
      MsgBox "最大公约数是" & m
    </SCRIPT>
  </BODY>
</HTML>

5_8.htm - 源码说明

本页面展示了「ASP 网页数据库短训教程源码」中的 5_8.htm 源码文件，采用 HTM 编程语言编写，共 22 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与ASP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?