这是自己做的乐透程式,可是还是布了解原理,请各位大大帮我解说一下

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来的还有脸说自己写的...
求学问不是这种态度吧?

真是无言，写的出比自己理解领域以外的东西真是厉害
如果说，不是你写的，再拿来问应该会很多人要帮你吧

通常写程式，不了解的情况下最原始就是流程没有先搞懂，
再来就是会的函数不够透澈了解其使用时机
但是你的问题已经超出大家所能理解的范围了
你要不要换个方式问呢???