zoukankan      html  css  js  c++  java
  • VB洗牌算法产生随机数组

    算法图示:

    运行效果:

    详细代码:

    Option Explicit
    '洗16张牌(0-15),方便用十六进制显示
    Private Const CARDMAX = 15
    Dim Card() As Long
    
    Private Sub 洗牌()
        Dim i&, l&, r&, t&
        l = CARDMAX
        For i = 0 To CARDMAX
            r = Rnd * l
            t = Card(l)
            Card(l) = Card(r)
            Card(r) = t
            l = l - 1
        Next i
    End Sub
    
    Private Sub Command1_Click()
        Call 洗牌
        '输出洗牌结果和牌点总和
        Dim i As Long
        Dim n As Long
        For i = 0 To CARDMAX
            Print Hex(Card(i));
            n = n + Card(i)
        Next i
        Print " - SUM:" & n
    End Sub
    
    Private Sub Form_Load()
        Randomize
        '初始化牌
        ReDim Card(CARDMAX)
        Dim i As Long
        For i = 0 To CARDMAX
            Card(i) = i
        Next i
    End Sub
  • 相关阅读:
    prayer OJ M
    51nod1295
    纪念第一次ak。。。
    noip2007-4
    51nod1344
    51nod1079
    51nod1537
    51nod1269Devu and Flowers
    python基本数据类型之列表list
    Python基本数据类型
  • 原文地址:https://www.cnblogs.com/xiii/p/7215728.html
Copyright © 2011-2022 走看看