這是自己做的樂透程式,可是還是佈了解原理,請各位大大幫我解說一下

Option Explicit

Private Function GetNumber() As Integer
Randomize ' 對亂數產生器做初始化的動作。
GetNumber = Int((49 * Rnd) + 1) ' 產生 1 到 49 之間的亂數值。
End Function

Private Sub Command1_Click()
Dim a(1 To 10, 1 To 6) As Integer '存放樂透數字
Dim nCnt As Integer '設定10組號碼
Dim nCnt2 As Integer '設定6個號碼
Dim nRet As Integer '亂數
Dim nFor2 As Integer
Dim blnExist As Boolean
Dim y As Integer
Dim x As String

If IsNumeric(txt1.Text) Then
If Val ..

訪客只能看到部份內容，免費 加入會員 或由臉書 Google 可以看到全部內容

下面是引用pk01749276於2008-07-11 23:01發表的 這是自己做的樂透程式,可是還是佈了解原理,請各位大大幫我解說一下:
這是自己做的樂透程式,可是還是佈了解原理,請各位大大幫我解說一下
[code]Option Explicit
Private Function GetNumber() As Integer
Randomize   ' 對亂數產生器做初始化的動作。
GetNumber = Int((49 * Rnd) + 1)   ' 產生 1 到 49 之間的亂數值。
.......

這是自己做的樂透程式,可是還是佈了解原理,請各位大大幫我解說一下
ans.自己寫的??不了解也能自己寫??那這支程式你試過能 run 嗎??

下面是引用三仙於2008-07-12 23:07發表的 :
 

這是自己做的樂透程式,可是還是佈了解原理,請各位大大幫我解說一下
ans.自己寫的??不了解也能自己寫??那這支程式你試過能 run 嗎??

可以RUN~~~但是有些不知道意義以及用途

下面是引用pk01749276於2008-07-13 01:39發表的 :

可以RUN~~~但是有些不知道意義以及用途

拿一部份不懂勒??
用途不是用來產生樂透的數字嗎@@"

下面是引用pk01749276於2008-07-11 23:01發表的 這是自己做的樂透程式,可是還是佈了解原理,請各位大大幫我解說一下:
這是自己做的樂透程式,可是還是佈了解原理,請各位大大幫我解說一下
[code]Option Explicit
Private Function GetNumber() As Integer
  Randomize   ' 對亂數產生器做初始化的動作。
  GetNumber = Int((49 * Rnd) + 1)   ' 產生 1 到 49 之間的亂數值。
.......

Option Explicit

Private Function GetNumber() As Integer
Randomize   ' 對亂數產生器做初始化的動作。
GetNumber = Int((49 * Rnd) + 1)   ' 產生 1 到 49 之間的亂數值。
End Function




以下這段比較不能理解~



If IsNumeric(txt1.Text) Then
  If Val(txt1.Text) > 0 And Val(txt1.Text) <= 10 Then
    y = CInt(txt1.Text)
    txt2.Text = Mathematics(y)
    For nCnt = 1 To y
               
        Do While nCnt2 < 6
        nRet = GetNumber
        If nCnt2 > 0 Then
            blnExist = False
            For nFor2 = 1 To nCnt2
                If a(nCnt, nFor2) = nRet Then
                  blnExist = True
                  Exit For
                End If
 


        x = a(nCnt, 1) & " " & a(nCnt, 2) & " " & a(nCnt, 3) & " " & a(nCnt, 4) & " " & a(nCnt, 5) & " " & a(nCnt, 6) & " "
       
        lstName.AddItem x

這是自己做的樂透程式,可是還是佈了解原理

真是太神了!!
不知道原理還能寫出程式!!
這真是程式設計的最高境界啊.....

下面是引用pk01749276於2008-07-13 01:39發表的 :

可以RUN~~~但是有些不知道意義以及用途

如果可以run ~~~但是有些不知道意義以及用途

那就換我不了解了
為什麼你可以寫出連自己都不知道的程式
而且還可以 run

這個不會是在睡覺的時候,
比爾蓋茲附身幫你寫的吧.....

很明顯就是COPY來的還有臉說自己寫的...
求學問不是這種態度吧?

真是無言，寫的出比自己理解領域以外的東西真是厲害
如果說，不是你寫的，再拿來問應該會很多人要幫你吧

通常寫程式，不了解的情況下最原始就是流程沒有先搞懂，
再來就是會的函數不夠透澈了解其使用時機
但是你的問題已經超出大家所能理解的範圍了
你要不要換個方式問呢???