lx5_1.htm

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

HTM
37 行
字号 
<HEAD><TITLE>随机取号</TITLE></HEAD>
  <BODY bgcolor=LightYellow>
    <FONT size=6 face=方正舒体 color= blue>随机取号</FONT><HR>
    &nbsp;&nbsp;有编号1～10的10个球，在其中随机抽取6个球<P>
    <INPUT type=button value=抽取 NAME=Button1>
    <SCRIPT FOR=Button1 EVENT=onClick LANGUAGE=VBScript>
      s=10
      redim t(s),c(6)
      for each j in t
        j=0
      next
        ' 随机抽取编号
      Randomize timer
      for j=1 to 6
        k=int(rnd*s+1)
        do while t(k)<>0
          k=int(rnd*s+1)
        loop
        t(k)=1    ' 第k号被选中
      next
      i=1
      for j=1 to s
        if t(j)=1 then
          c(i)=j
          i=i+1
        end if
      next
      p="6个球的编号分别是：" & chr(13)
      for i=1 to 5
        p=p & c(i) & "," 
      next
      p=p & c(6)
      msgbox p
    </SCRIPT>
  </BODY>
</HTML>

lx5_1.htm - 源码说明

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

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

⌨️ 快捷键说明

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