歡迎~ 程式設計學生作業專題製作程式外包家教...

(1)ASP.NET C# 專案／程式維護、開發、設計、架設網站等等
(2)程式家教.家教採一對一教學方式，主要以ASP.NET、C#、SQL SERVER..等為主，家教包含異業轉行、非本科系轉行、無基礎但欲踏入程式設計領域者。
若有以上需求請至留言板留言

部落格全站分類：圖文創作

Jan 11 Mon 2010 00:00
[VB6]產生100個亂數介於1-6之間,計算出1-6出現次數

'產生100個亂數介於1-6之間
'計算出1-6出現次數，並且次數全部加總要100次

Private Sub Form_Activate()
    Randomize
    Dim count(6) As Integer '記錄筆數
    Dim Num As Integer
    For i = 1 To 100
        Num = Int(Rnd() * 6) + 1
        count(Num) = count(Num) + 1
    Next i

    For i = 1 To 6
        Print i & " 出現 " & count(i) & " 次"
    Next i
End Sub