5_14.htm

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

HTM
33 行
字号 
<HTML>
  <HEAD><TITLE>最大公约数</TITLE>
    <SCRIPT LANGUAGE="VBScript">
      Function Hcf(k, h)
        If k < h Then c = k: k = h: h = c
        r = k Mod h
        Do While r <> 0
          k = h: h = r: r = k Mod h
        Loop
        Hcf = h
      End Function
    </SCRIPT>
  </HEAD>
  <BODY><H3>求3个数的最大公约数</H3><HR>
    请输入3个自然数：
    <input name="Text1" TYPE="TEXT" SIZE="6">&nbsp;&nbsp;
    <input name="Text2" TYPE="TEXT" SIZE="6">&nbsp;&nbsp;
    <input name="Text3" TYPE="TEXT" SIZE="6"><P>
    <INPUT TYPE="Button" NAME="Button1"  VALUE="确定">
    <SCRIPT FOR="Button1" EVENT="onClick" LANGUAGE="VBScript">
      l = Text1.value
      m = Text2.value
      n = Text3.value
      If IsNumeric(l) And IsNumeric(m) And IsNumeric(n) Then
      If l * m * n = 0 Then Exit Sub
        MsgBox "3个数的最大公约数是:" & Hcf(Hcf(l, m), n)
      Else
        MsgBox "您输入的不是数值数据"
      End If
    </SCRIPT>
  </BODY>
</HTML>

5_14.htm - 源码说明

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

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

⌨️ 快捷键说明

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