作者bbb304bbb (== Wine ==)
看板Visual_Basic
标题[VB2008]新手问题 阵列取乱数
时间Tue Jun 15 09:29:11 2010
这是乐透开奖程式...
但是想用其他方式写出来
请多指教
======================================
0. 宣告阵列aa(49) as integer
1. 乱数初始化
2. 将阵列aa 内容全部设定为 0 //表示 1~49数字都还没用过
3. i=0 //用i纪录一共开出几个数
4. 当 i < 6
5. x = 1~49间随机产生的乱数
6. 如果 aa(x)=0 则 //x 没有开过
7. 印出 x
8. 纪录 x 已用过 // 将 aa(x)内容设定为 1
9. i = i + 1 // 纪录开出的数字个数
10. end if
11. 回到步骤 4
========================================
小弟目前困在
阵列宣告了，但是不会用
该怎麽在阵列中取乱数
(如果只是用x取乱数我会...但是碰到阵列总觉得没有我想的这麽简单)
####################
以下是小弟写的..
Module Module1
Sub Main()
Randomize()
Dim aa(46) As Integer
Dim y As Integer
aa(46) = 0
y = 0
For y = 0 To 5
aa(46) = Int(Rnd() * 46)
If aa(46) = 0 Then
Console.WriteLine(aa(46))
aa(46) = 1
y = y + 1
ElseIf aa(46) = 1 Then
End If
Next
Console.ReadKey()
End Sub
End Module
##########################
请各位大大帮忙看一下...谢谢 <(_ _)> 感激不尽
--
▃ ▃ ▃▃▃ ▃ ▃ ▃▃▃ ● 只不过时机未到
█ █ ███ █▃ █ ███ \) 我一个人走走没关系的
█ ▃ █ █ ██ █ █▃▃ ﹒ ︵ √\
█ █ █ █ █ █ █ ███ 一个人想 一个人走 一个人哭 一个人伤心
█ █ █ ▃█▃ █ ██ █▃▃ 一个人从有心到无心 一首歌从有情到无情
████ ███ █ █ ███ 每一个人 每一个梦 每一分钟 每一次失落
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 111.249.19.19
※ 编辑: bbb304bbb 来自: 111.249.19.19 (06/15 09:33)
1F：→ jwjeng:先令x=Int(Rnd()*46)，再丢进aa(y)里面不就好了? 06/15 09:37
2F：→ jwjeng:你前面的流程图不就是这麽写的? (上面应该是aa(x)=1) 06/15 09:39
3F：推 horngsh:.Net 有Random Class可以用..为何还在用VB6东西? 06/15 09:59
4F：→ bbb304bbb:谢谢以上两位大大 更感谢J大 答案让我有豁然开朗的感觉 06/15 10:30