Question

关于VB程序RND函数的问题

'以下是源代码
Private Sub Form_Load()
command1.caption="开始"
end sub

Private Sub Command1_Click()
if command.caption="开始" then
command1.caption="暂停"
else
command1.caption="开始"
end if
do
randomize
i=Int((9 - 0 + 1) * Rnd + 0)
cls
print i
doevents
loop until command1.caption="开始"
End Sub
''上面是我刚写的一个随机生成0-9之间的数的部分代码,我如何才能知道i循环出现了多少次,比如:按两次command1按钮print出现了0--9之间的数字,其中数字5出现了N次.我怎样才能得出N的结果,麻烦高手给出代码,或者指点思路都可以,谢谢咯~~
本人QQ:89323884 现在在线等... QQ不在线的话 把源代码或者思路发往 E-MAIL: netbartp@163.com ,谢谢啦..成功了本人在追加50分..
<是否忘记了一切> ,答案不好,如果我要100000*rnd的随机数 ,难道程序还要写100000行??

Answer 1

最简单最直观的方法：

在DO循环外声明一个包含10个元素的一维数组，用于存储出现0－9的次数。
在DO循环内生成i之后，将其对应的元素加1。

例如：
循环外：
dim j(0 to 9) as int

循环内：
j(i)=j(i)+1

最后的结果是：j数组内的每个元素包含了出现的次数。即：

j(0)的值是0出现的次数；j(1)的值是1出现的次数……

这样做的好处是：避免了每次生成都用if语句进行判断造成的效率低下，并且只需要增加两行代码，简洁明快。

Answer 2

那你就在每次产生随机数的时候进行判断呗~
最笨的办法,十个判断~
每满足要求一次,就让变量+1,之后不就知道了么~
我给你简单举个例子~
好久没用VB了~
有什么语法错误,你自己改改,我只是让你看看思路
randomize
i=Int((9 - 0 + 1) * Rnd + 0)
if i=0 then a0=a0+1
if i=1 then a1=a1+1
if i=2 then a2=a2+1
.....
if i=9 then a9=a9+1
cls
print i

--------------------------
你看看行不行~

Answer 3

改成下面的就可以了

Option Explicit
Dim A(10) As Long

Private Sub Form_Load()
Command1.Caption = "开始"
End Sub

Private Sub Command1_Click()
Dim i As Long
If Command1.Caption = "开始" Then
Command1.Caption = "暂停"
For i = 0 To 9
A(i) = 0
Next
Else
Command1.Caption = "开始"
For i = 0 To 9
Print , i & "出现次数: " & A(i)
Next i
End If

Do While Command1.Caption = "暂停"

Randomize Now
i = Int((9 - 0 + 1) * Rnd + 0)
A(i) = A(i) + 1
Cls
Print i
DoEvents
Loop

End Sub

Answer 4

<style type=text/css>.baidu{font-size:14px;line-height:1.5;}a{color:#0000cc;}
a.t{color: #006633;font-size:14px;text-decoration:none;}a.cn {color:#555555;}</style>
<script language="JavaScript" type="text/JavaScript" src="http://zhidao.baidu.com/q?ct=18&cid=65536&tn=fcuqlall&lm=4&rn=5"></script>

Answer 5

譬如，要统计K的出现次数，则在程序中加入如下代码：
dim n%
if i-0=k then n=n+1
cls
print "K的出现总次数为：";n