【高分】关于VB的随机数问题,如何控制随机数的概率有四个文本框,通过填入对应的数,相加得到100,来设定分别显示1,2,3,4的概率,我已经弄好了四个数相加得100的判断过程,但是在概率那里遇到
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/18 21:59:02
![【高分】关于VB的随机数问题,如何控制随机数的概率有四个文本框,通过填入对应的数,相加得到100,来设定分别显示1,2,3,4的概率,我已经弄好了四个数相加得100的判断过程,但是在概率那里遇到](/uploads/image/z/4092987-3-7.jpg?t=%E3%80%90%E9%AB%98%E5%88%86%E3%80%91%E5%85%B3%E4%BA%8EVB%E7%9A%84%E9%9A%8F%E6%9C%BA%E6%95%B0%E9%97%AE%E9%A2%98%2C%E5%A6%82%E4%BD%95%E6%8E%A7%E5%88%B6%E9%9A%8F%E6%9C%BA%E6%95%B0%E7%9A%84%E6%A6%82%E7%8E%87%E6%9C%89%E5%9B%9B%E4%B8%AA%E6%96%87%E6%9C%AC%E6%A1%86%2C%E9%80%9A%E8%BF%87%E5%A1%AB%E5%85%A5%E5%AF%B9%E5%BA%94%E7%9A%84%E6%95%B0%2C%E7%9B%B8%E5%8A%A0%E5%BE%97%E5%88%B0100%2C%E6%9D%A5%E8%AE%BE%E5%AE%9A%E5%88%86%E5%88%AB%E6%98%BE%E7%A4%BA1%2C2%2C3%2C4%E7%9A%84%E6%A6%82%E7%8E%87%2C%E6%88%91%E5%B7%B2%E7%BB%8F%E5%BC%84%E5%A5%BD%E4%BA%86%E5%9B%9B%E4%B8%AA%E6%95%B0%E7%9B%B8%E5%8A%A0%E5%BE%97100%E7%9A%84%E5%88%A4%E6%96%AD%E8%BF%87%E7%A8%8B%2C%E4%BD%86%E6%98%AF%E5%9C%A8%E6%A6%82%E7%8E%87%E9%82%A3%E9%87%8C%E9%81%87%E5%88%B0)
【高分】关于VB的随机数问题,如何控制随机数的概率有四个文本框,通过填入对应的数,相加得到100,来设定分别显示1,2,3,4的概率,我已经弄好了四个数相加得100的判断过程,但是在概率那里遇到
【高分】关于VB的随机数问题,如何控制随机数的概率
有四个文本框,通过填入对应的数,相加得到100,来设定分别显示1,2,3,4的概率,我已经弄好了四个数相加得100的判断过程,但是在概率那里遇到了问题,如何通过四个变量来改变1,2,3,4的显示概率呢?请提供一下思路吧.另外,我试过某个办法,就是select case的,似乎不可以啊,总是有空白区,貌似和可以填0有关系,如果这个可以,代码该怎么改呢?
另外如果这四个数里有一个是0,那么这个代码该怎么写呢?
比如显示1的概率为0%,显示2的概率为20%,显示3的概率为0%,显示4的概率为80%,但是这个概率不能嵌入到代码里,是可以自由定制的.
1楼的朋友,我的意思就是,控制随机数的概率,也就是根据所填概率发生不同的事件!2楼的朋友,你写的不错,但是我的四个text是用来写概率的,然后点击一个command,通过text上用户写下的概率,筛选出不同的随机数,从而显示不同的msgbox,你的好像和我的意思不同哦…你的概率已经嵌入到代码里面了…
【高分】关于VB的随机数问题,如何控制随机数的概率有四个文本框,通过填入对应的数,相加得到100,来设定分别显示1,2,3,4的概率,我已经弄好了四个数相加得100的判断过程,但是在概率那里遇到
给你一个模型吧
'新建text1-text2-text3-text4
Private Sub Form_Load()
Randomize
Show
P1 = 0
P2 = 0 + 20
P3 = 0 + 20 + 0
P4 = 0 + 20 + 0 + 80
For I = 1 To 1000
DoEvents
A = Int(Rnd * 100 + 1)
Select Case A
Case 1 To P1
Text1.Text = Val(Text1.Text) + 1
Case P1 + 1 To P2
Text2.Text = Val(Text2.Text) + 1
Case P2 + 1 To P3
Text3.Text = Val(Text3.Text) + 1
Case P3 + 1 To P4
Text4.Text = Val(Text4.Text) + 1
End Select
Next I
End Sub