📄 lx5_1.htm

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

💻 HTM

字号:

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

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -