Random VB6：列出可用命令，然后随机执行其中一个命令

你好！ 我是n00b，我正在VB6中寻找几行代码来实现这一点： 我想列出一定数量的要执行的命令，然后告诉我的程序从中随机选择一个并执行它：严格地说，我正在处理一个MSAgent角色，我希望他每5分钟做一次脸。 请问，我如何才能做到这一点？

圆形（Rnd）不总是0或1吗？

Public Sub MakeFace()

  'Reset random seed.
  Randomize

  'Generate a random integer with the specified range.
  Dim Min As Integer, Max As Integer, N As Integer
  Min = 1
  Max = 5
  N = Min + Round(Rnd) * Max

  'Select and call the desired function.
  Select Case N

    Case 1
      Call MakeHappyFace

    Case 2
      Call MakeSadFace

    Case 3
      Call MakeAngryFace

    Case 4
      Call MakeSmirkFace

    Case 5
      Call MakeFunnyFace

  End Select

End Sub