📄 5_9.htm

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

💻 HTM

字号:

<HTML>
  <HEAD><TITLE>计算圆周率π</TITLE></HEAD>
  <BODY><H3>计算圆周率π</H3><HR>
    <INPUT TYPE="Button" NAME="Button1"  VALUE="计算">
    <SCRIPT FOR="Button1" EVENT="onClick" LANGUAGE="VBScript">
      k = 1: s = 1: t = 1: m = 1
      While Abs(t) > 0.0000001
        k = k + 2
        m = -m
        t = m / k
        s = s + t
      Wend
      MsgBox "圆周率π=" & 4 * s
    </SCRIPT>
  </BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -