【高分】关于VB的随机数问题,如何控制随机数的概率有四个文本框,通过填入对应的数,相加得到100,来设定分别显示1,2,3,4的概率,我已经弄好了四个数相加得100的判断过程,但是在概率那里遇到
来源：学生作业帮助网 编辑：六六作业网 时间：2024/12/19 01:00:34
【高分】关于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