asp中实现随机分组程序的代码

代码如下:

Function makegroup(teams() As String) As String 
  '函数功能:对teams数组中的32支球队进行随机分组.(注:teams数组下标从0开始) 
  '函数的变量定义. 
  '显示变量声明是一个好习惯. 
  Dim tvar As Integer, returnstr As String, tmove As Integer, temp As Integer 
  '初始化随机数产生器实现真正的随机性. 
  Randomize (Timer) 
  For tvar = 1 To 32 '共有32支球队 
    If (tvar - 1) Mod 4 = 0 Then 
      '将分组球队名称及组名存入returnstr变量中. 
      returnstr = returnstr & vbCrLf & Chr(Asc("A") + (tvar \ 4)) & "组:" 
    End If 
    tmove = Int(Rnd * (33 - tvar)) 
    returnstr = returnstr & teams(tmove) & "." 
    For temp = tmove To 30 
      '将数组的部分前移避免组中存在同名球队. 
      teams(temp) = teams(temp + 1) 
    Next temp 
  Next tvar 
  '返回值为分组后的结果. 
  makegroup = returnstr 
End Function

赞 (0)

相关推荐

  • asp中实现随机分组程序的代码

    复制代码 代码如下: Function makegroup(teams() As String) As String    '函数功能:对teams数组中的32支球队进行随机分组.(注:teams数组下标从0开始)    '函数的变量定义.    '显示变量声明是一个好习惯.    Dim tvar As Integer, returnstr As String, tmove As Integer, temp As Integer    '初始化随机数产生器实现真正的随机性.    Random

  • asp分页生成html的程序脚本代码

    这是asp分页列表生成静态页面得asp小程序脚本 复制代码 代码如下: <!--#include file="conn.asp"-->  <html><head><TITLE>分页测试</TITLE><LINK href="inc/style.css" type=text/css rel=stylesheet></head>  <%strHead=strHead&&qu

  • java中UDP简单聊天程序实例代码

    java中UDP简单聊天程序实例代码

    学过计算机网络通信的都知道,计算机之间传送数据由两种,即TCP通信和UDP通信.TCP是可靠的面向连接的通信协议,二UDP是不可靠的面向无连接的通信协议. java中有基于TCP的网络套接字通信,也有基于UDP的用户数据报通信,UDP的信息传输速度快,但不可靠! 基于UDP通信的基本模式: (1)将数据打包,称为数据包(好比将信件装入信封一样),然后将数据包发往目的地. (2)接受别人发来的数据包(好比接收信封一样),然后查看数据包中的内容. 客户机 复制代码 代码如下: package com

  • js 按照指定间隔 向字符串中插入随机字符串的实现代码

    var getNewString = function (){ var getIc = function (ic){ var arric = ic.split(","); randomIc = arric[Math.floor(Math.random()*(arric.length))]; return randomIc }; return function (oc,ic,re){ var reStr = "(.{"+re+"}|.*)"; va

  • ASP中解决“对象关闭时,不允许操作。”的诡异问题……

    在ASP中进行数据库操作时 复制代码 代码如下: rs.Open strsql,conn,1,3 while not rs.eof //对象关闭时,不允许操作. 找了好久,最后在strsql中发现问题所在-- 原因是: 这个strsql = "exec ***",用的是存储过程,而这个***存储过程中的最后加了一句"print @sql",导致这个问题,注释掉就OK了--

  • ASP所有的Session变量获取实现代码

    复制代码 代码如下: Dim strName, iLoop For Each strName in Session.Contents Response.Write strName & " - " & Session.Contents(strName)& "[BR]" Next 一般情况下,上面的代码可以工作得很好.但当Session变量是一个对象或者数组时,打印的结果就不正确了. 这样我们修改代码如下: 复制代码 代码如下: '首先看看有多少

  • Devexpress中Gridcontrol查找分组

    Devexpress中Gridcontrol查找分组 ,具体代码如下所述: private void button1_Click(object sender, EventArgs e) { DataTable dt = new DataTable(); dt.Columns.Add("Group"); dt.Columns.Add("idex"); dt.Columns.Add("name"); for (int i = 0; i < 5;

  • asp.net 4.0+ webform程序中集成mvc4

    asp.net 4.0+ webform程序中集成mvc4

    本文为大家分享了asp.net 4.0+ webform程序中集成mvc4的方法,供大家参考,具体内容如下 1.新建packages.config文件,里面加上必要的程序集 <?xml version="1.0" encoding="utf-8"?> <packages> <package id="Microsoft.AspNet.Mvc" version="4.0.20710.0" target

  • ASP.NET中画图形验证码的实现代码

    本文给大家分享一段asp.net代码实现画图形验证码功能,代码简单易懂,具体代码如下所示: context.Response.ContentType = "image/jpeg"; //生成随机的中文验证码 string yzm = "人口手大小多少上中下男女天地会反清复明杨中科小宝双儿命名空间语现在明天来多个的我山东河北南固安北京南昌东海西安是沙河高教园学" + "木禾上下土个八入大天人火文六七儿九无口日中了子门月不开四五目耳头米见白田电也长山出飞马鸟云

  • asp中COM组件中如何连接数据库的代码

    VB- 工程 -引用 - ADO 2.0 ,建一个类DB,工程名设为 SQLCONN 以下是偶程序中的部分代码,大家有空可以试试 Option Explicit Public strError As String Public Conn As New ADODB.Connection Public Rs As New ADODB.Recordset Public Property Get ErrorString() As String ErrorString = strError End Pro

随机推荐