作者karta2506968 (天冷心更冷)
看板Visual_Basic
标题[ASP ] 想写个像乐透的程式但是遇到了瓶颈
时间Sat Mar 29 05:50:51 2008
我想写个像乐透模式差不多的程式
但是没办法像乐透一样6个号码
在加一个特别号，我一直都很烦恼，请各位高手告诉我加上一个特别号要怎麽写
程式码如下
Module Module1
Sub Main()
Dim i, n, x As Long
Console.WriteLine("乐透")
For i = 1 To 6
Randomize()
n = Int(Rnd() * 42)
Console.WriteLine("中奖号码" & n)
Next
Console.ReadLine()
End Sub
End Module
--
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 210.192.227.150
1F：推 slanla:i=1 to 7不就好了~@@?只是要注意n=Int(Rnd()*42)会取到重复 03/29 13:09
2F：推 xtimer:想偷问一下...原PO是哪个学校的~"~ 03/30 03:37
3F：→ xtimer:这题目是我昨天的作业....XD 03/30 03:37