📄 5_13.htm

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

💻 HTM

字号:

<HTML>
  <HEAD><TITLE>验证哥德巴赫猜想</TITLE>
    <SCRIPT LANGUAGE="VBScript">
      Sub Prime(m, f)
        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
      End Sub
    </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
        Call Prime(x, p)
        If p Then
          y = n - x: Call Prime(y, p)
          If p Then MsgBox  n & " = " & x & "+" & y : Exit For
        End If
      Next
    </SCRIPT>
  </BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -