广告广告
  加入我的最爱 设为首页 风格修改
首页 首尾
 手机版   订阅   地图  繁体 
您是第 5630 个阅读者
 
<<   1   2  下页 >>(共 2 页)
发表文章 发表投票 回覆文章
  可列印版   加为IE收藏   收藏主题   上一主题 | 下一主题   
pk01749276 手机
数位造型
个人文章 个人相簿 个人日记 个人地图
小人物
级别: 小人物 该用户目前不上站
推文 x0 鲜花 x8
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片
推文 x0
[Basic][求助] 这是自己做的乐透程式,可是还是布了解原理,请各位大大帮我解说一下
这是自己做的乐透程式,可是还是布了解原理,请各位大大帮我解说一下

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:23重新编辑 ]



献花 x0 回到顶端 [楼 主] From:欧洲 | Posted:2008-07-11 23:01 |
三仙 会员卡
个人头像
个人文章 个人相簿 个人日记 个人地图
头衔:以马内利 以马内利
版主
级别: 版主 该用户目前不上站
版区: 程式设计
推文 x17 鲜花 x370
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

下面是引用pk01749276于2008-07-11 23:01发表的 这是自己做的乐透程式,可是还是布了解原理,请各位大大帮我解说一下:
这是自己做的乐透程式,可是还是布了解原理,请各位大大帮我解说一下
[code]Option Explicit
Private Function GetNumber() As Integer
Randomize   ' 对乱数产生器做初始化的动作。
GetNumber = Int((49 * Rnd) + 1)   ' 产生 1 到 49 之间的乱数值。
.......


这是自己做的乐透程式,可是还是布了解原理,请各位大大帮我解说一下
ans.自己写的??不了解也能自己写??那这支程式你试过能 run 吗??


挖出答案的难度,取决提问的深度!
献花 x0 回到顶端 [1 楼] From:台湾台北市亚太线上公司 | Posted:2008-07-12 23:07 |
pk01749276 手机
数位造型
个人文章 个人相簿 个人日记 个人地图
小人物
级别: 小人物 该用户目前不上站
推文 x0 鲜花 x8
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

下面是引用三仙于2008-07-12 23:07发表的 :
 

这是自己做的乐透程式,可是还是布了解原理,请各位大大帮我解说一下
ans.自己写的??不了解也能自己写??那这支程式你试过能 run 吗??
可以RUN~~~但是有些不知道意义以及用途


献花 x0 回到顶端 [2 楼] From:欧洲 | Posted:2008-07-13 01:39 |
w791212w
个人文章 个人相簿 个人日记 个人地图
初露锋芒
级别: 初露锋芒 该用户目前不上站
推文 x4 鲜花 x1
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

下面是引用pk01749276于2008-07-13 01:39发表的 :

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

拿一部份不懂勒??
用途不是用来产生乐透的数字吗@@"


献花 x0 回到顶端 [3 楼] From:台湾中华HiNet | Posted:2008-07-13 16:49 |
pk01749276 手机
数位造型
个人文章 个人相簿 个人日记 个人地图
小人物
级别: 小人物 该用户目前不上站
推文 x0 鲜花 x8
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

下面是引用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


献花 x0 回到顶端 [4 楼] From:欧洲 | Posted:2008-07-14 00:05 |
daviddr
个人文章 个人相簿 个人日记 个人地图
小人物
级别: 小人物 该用户目前不上站
推文 x0 鲜花 x7
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

这是自己做的乐透程式,可是还是布了解原理
真是太神了!! 表情
不知道原理还能写出程式!!
这真是程式设计的最高境界啊..... 表情


献花 x0 回到顶端 [5 楼] From:台湾中华 | Posted:2008-07-14 01:31 |
三仙 会员卡
个人头像
个人文章 个人相簿 个人日记 个人地图
头衔:以马内利 以马内利
版主
级别: 版主 该用户目前不上站
版区: 程式设计
推文 x17 鲜花 x370
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

下面是引用pk01749276于2008-07-13 01:39发表的 :

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


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

那就换我不了解了
为什么你可以写出连自己都不知道的程式
而且还可以 run


挖出答案的难度,取决提问的深度!
献花 x0 回到顶端 [6 楼] From:台湾中华HiNet | Posted:2008-07-14 09:58 |
kolong
个人头像
个人文章 个人相簿 个人日记 个人地图
小人物
级别: 小人物 该用户目前不上站
推文 x2 鲜花 x14
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

这个不会是在睡觉的时候,
比尔盖兹附身帮你写的吧..... 表情


成功者找方法,失败者找理由。
献花 x0 回到顶端 [7 楼] From:台湾新世纪资通股份有限公司 | Posted:2008-07-14 11:55 |
overing 手机
个人文章 个人相簿 个人日记 个人地图
初露锋芒
级别: 初露锋芒 该用户目前不上站
推文 x0 鲜花 x55
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

很明显就是COPY来的还有脸说自己写的...
求学问不是这种态度吧? 表情


Zippy G2 600W
Intel C2Q Q9550
Gigabyte GA-X48-DQ6
Gigabyte GV-NX96T512H-B
G-skill pi 1100MHz 2Gx4
ACARD ANS-9010 32GB (Windows7 10sec boot!!)
WD 150GB(WD1500ADFD)/640GB(6400AASK)
献花 x0 回到顶端 [8 楼] From:未知地址 | Posted:2008-07-14 12:41 |
terryshao
数位造型
个人文章 个人相簿 个人日记 个人地图
初露锋芒
级别: 初露锋芒 该用户目前不上站
推文 x1 鲜花 x72
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

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

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


献花 x0 回到顶端 [9 楼] From:欧洲 | Posted:2008-07-14 18:47 |

<<   1   2  下页 >>(共 2 页)
首页  发表文章 发表投票 回覆文章
Powered by PHPWind v1.3.6
Copyright © 2003-04 PHPWind
Processed in 0.016063 second(s),query:16 Gzip disabled
本站由 瀛睿律师事务所 担任常年法律顾问 | 免责声明 | 本网站已依台湾网站内容分级规定处理 | 连络我们 | 访客留言