关于随机函数调用的一个问题！召唤大虾！

leon5671 2005-11-18 07:29:26

用VB编写一个函数：
50%的几率的返回值为A
30%的。。。。。。。为B
20%的。。。。。。。为C

...全文

258 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

WM_JAWIN 2005-11-18

打赏
举报

不知所云

vbman2003 2005-11-18

打赏
举报

Private Function PrintTest() As String
Dim s(1 To 10) As String
Dim i As Integer
For i = 1 To 10
Select Case i
Case Is <= 5
s(i) = "A"
Case Is > 8
s(i) = "C"
Case Else
s(i) = "B"
End Select
Next i
Randomize
While j < 10
i = Rnd(1) * 9 + 1
If Len(s(i)) = 1 Then
PrintTest = PrintTest & s(i)
s(i) = s(i) & i
j = j + 1
End If
Wend
End Function

rainstormmaster 2005-11-18

打赏
举报

Private Function test() As Long
Dim i As Long
Randomize Timer
i = CLng((100 * Rnd) + 1)
If i <= 50 Then
test = 50
ElseIf i > 50 And i <= 80 Then
test = 30
Else
test = 20
Next
End Function

大致就是这个意思：先产生1-100之间的一个随机数，然后根据随机数的大小范围不同返回不同的返回值

northwolves 2005-11-18

打赏
举报

Private Sub Command1_Click()'测试
Dim X(1 To 100000) As String, COUNTS(65 To 67)
For I = 1 To 100000
createachar X(I)
COUNTS(Asc(X(I))) = COUNTS(Asc(X(I))) + 1
Next
MsgBox "A:" & COUNTS(65) & vbCrLf & "B:" & COUNTS(66) & vbCrLf & "C:" & COUNTS(67)
End Sub

Sub createachar(ByRef mystr As String)
Randomize
mystr = IIf(Rnd > 0.5, "A", IIf(Rnd < 0.6, "B", "C"))
End Sub

2024-2030全球及中国PCB接触式探头行业研究及十五五规划分析报告

网站界面设计mortal0418代码

PHP毕业设计-校园失物招领系统源码+数据库.zip个人经导师指导并认可通过的高分毕业设计项目，主要针对计算机相关专业的正在做毕设的学生和需要项目实战练习的学习者。也可作为课程设计、期末大作业。包含全部项目源码、该项目可以直接作为毕设使用。项目都经过严格调试，确保可以运行！ PHP毕业设计-校园失物招领系统源码+数据库.zip个人经导师指导并认可通过的高分毕业设计项目，主要针对计算机相关专业的正在做毕设的学生和需要项目实战练习的学习者。也可作为课程设计、期末大作业。包含全部项目源码、该项目可以直接作为毕设使用。项目都经过严格调试，确保可以运行！ PHP毕业设计-校园失物招领系统源码+数据库.zip个人经导师指导并认可通过的高分毕业设计项目，主要针对计算机相关专业的正在做毕设的学生和需要项目实战练习的学习者。也可作为课程设计、期末大作业。包含全部项目源码、该项目可以直接作为毕设使用。项目都经过严格调试，确保可以运行！ PHP毕业设计-校园失物招领系统源码+数据库.zip个人经导师指导并认可通过的高分毕业设计项目，主要针对计算机相关专业的正在做毕设的学生和需要项目实战练习的学习者。也可

2024年神经酸行业分析报告.pptx

【Java爬虫】信息抓取的实现完整实例（源码）