📄 5_8.htm

📁 ASP 网页数据库短训教程源码

💻 HTM

字号:

<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>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -