Select Case 判定范围问题

thefoolchaos

Sub 模拟2()
Dim a As String, b As String, c As String
a = 0 '保底参数
b = 0 '保底概率
For i = 1 To 1000000 '模拟次数
Randomize '随机种子初始化
c = Int(Rnd * 100) ' 给C赋值
  MsgBox c
Select Case c
  Case 0 To (1 + b) '抽奖1
  l = l + 1
  a = 0
  MsgBox l
  Case (2 + b) To (9 + b) '抽奖2
  w = w + 1
  a = a + 1
  MsgBox w
  Case (10 + b) To (59 + b) '抽奖3
  h = h + 1
  a = a + 1
  MsgBox h
  Case Else '抽奖4
  s = s + 1
  a = a + 1
  MsgBox s
End Select
If (a - 50) > 0 Then
b = (a - 50) * 2
ElseIf a < 50 Then
b = 0
End If
Next
Sheet1.Cells(4, 1).Value = l
Sheet1.Cells(4, 2).Value = w
Sheet1.Cells(4, 3).Value = h
Sheet1.Cells(4, 4).Value = s
End Sub
请教一下大家，这里不知道怎么解决了
不知道为什么 C=79  的时候不会去到 抽奖4，很多时候，在范围内，都只会去抽奖2

thefoolchaos

但是这样把 C赋值去掉，直接用 Int(Rnd * 100) 就能去到正常范围
找不到原因
Sub 模拟1()
Dim a As String, b As String, c As String
a = 0 '保底参数
b = 0 '保底概率
For i = 1 To 1000000 '模拟次数
Randomize '随机种子初始化
Select Case Int(Rnd * 100)
Case 0 To (1 + b)
  l = l + 1
  a = 0
  MsgBox l
  Case (2 + b) To (9 + b)
  w = w + 1
  a = a + 1
  MsgBox w
  Case (10 + b) To (59 + b)
  h = h + 1
  a = a + 1
  MsgBox h
  Case Else
  s = s + 1
  a = a + 1
  MsgBox s
End Select
If (a - 50) > 0 Then
b = (a - 50) * 2
ElseIf a < 50 Then
b = 0
End If
Next
Sheet1.Cells(2, 1).Value = l
Sheet1.Cells(2, 2).Value = w
Sheet1.Cells(2, 3).Value = h
Sheet1.Cells(2, 4).Value = s
End Sub

山菊花

变量类型定义错了，改为：
Dim a As Integer, b As Integer, c As Integer

thefoolchaos

山菊花 发表于 2019-8-29 22:21
变量类型定义错了，改为：
Dim a As Integer, b As Integer, c As Integer

解决了，多谢大佬！