lx5_3.htm

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

HTM

32 行

<HTML>
  <HEAD><TITLE>验证哥德巴赫猜想</TITLE>
    <SCRIPT LANGUAGE="VBScript">
      Function Prime(m)
        f = True
        If m > 3 Then
          For i = 3 To Sqr(m)
            If m Mod i = 0 Then f = False: Exit For
          Next
        End If
        Prime = f
      End Function
    </SCRIPT>
  </HEAD>
  <BODY><H3>验证哥德巴赫猜想：一个不小于6的偶数可以表示为两个素数之和</H3><HR>
    请输入一个不小于6的偶数：
    <input name="Text1" TYPE="TEXT" SIZE="10"><P>
    <INPUT TYPE="Button" NAME="Button1"  VALUE="确定">
    <SCRIPT FOR="Button1" EVENT="onClick" LANGUAGE="VBScript">
      n = Text1.value
      If Not IsNumeric(n) Then MsgBox "您输入的不是数值数据" : Exit Sub
      If n < 6 Or n Mod 2 <> 0 Then MsgBox "必须输入大于6的偶数,请重新输入!" : Exit Sub
      For x = 3 To n / 2 Step 2
        If Prime(x) Then
          y = n - x
          If Prime(y) Then MsgBox  n & " = " & x & "+" & y : Exit For
        End If
      Next
    </SCRIPT>
  </BODY>
</HTML>

lx5_3.htm - 源码说明

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

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

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?