今天晚上举行抽奖晚会，忙不过来，请那位朋友，帮我做一个产生随机数的软件好吗？祝大家新年快乐

要求    
  就像电视里产生生份证号码那样产生，只需要3位数字，百为上只到6就可以了，帮帮忙了，祝大家新年快乐  
  问题点数：50、回复次数：8Top

1 楼prevail（为了爱梦一生）回复于 2005-02-04 11:32:47 得分 0

百位上0-6  
  十位上0-9  
  个位上0-9  
   
  然后随机动态产生Top

2 楼prevail（为了爱梦一生）回复于 2005-02-04 11:37:56 得分 0

我的QQ12553603  
  EMAIL   pcl8396@tom.comTop

3 楼tztz520（午夜逛街）回复于 2005-02-04 12:02:12 得分 10

'最简单的  
   
  Private   Sub   Command1_Click()  
  Debug.Print   GetN  
  End   Sub  
   
   
  Private   Function   GetN()   As   String  
  GetN   =   Trim(Str(Int((7   *   Rnd))))   &   Trim(Str(Int((10   *   Rnd))))   &   Trim(Str(Int((10   *   Rnd))))  
  End   Function  
  Top

4 楼zhengoodman（伤心小箭--甩一个人需要理由吗？）回复于 2005-02-04 12:30:21 得分 10

Private   Sub   Command1_Click()  
   
  Randomize         '加上一点，嘿嘿  
  Debug.Print   GetN  
  End   Sub  
   
  如果要产生多个，还要判断一下是否重复。  
  也不知道你的具体要求，若只生成一个，象楼上的就行。Top

5 楼viena（维也纳N02）回复于 2005-02-04 13:46:55 得分 10

Randomize  
  debug.print   Int(7   *   Rnd)   &   Int(10   *   Rnd)   &   Int(10   *   Rnd)Top

6 楼cooltigerzsh（阿波罗）回复于 2005-02-04 13:55:00 得分 5

楼主我发到你邮箱里去了Top

7 楼_l_（蠢瓜)(每天最多回答2个问题）回复于 2005-02-04 14:14:32 得分 10

dim   RndQ  
  Randomize  
  RndQ=     Int((699   *   Rnd)+1   )Top

8 楼liu23xing（编程小猫1000号）回复于 2005-02-04 14:37:30 得分 5

可以利用时间控件,先把参加抽奖的人的身份证号码放到数据库里面供随机抽取,再利用label控件显示Top

相关问题

• rnd
• 产生
• trim
• 上0
• sub
• print
• str

• 帖主：prevail
• tztz520
• zhengoodman
• viena
• cooltigerzsh
• _l_
• liu23xing

• Visual Basic类图书
• Visual Basic类源码下载