VB6: список доступных команд, затем выполнить случайную из них

Question

Hallo! Я n00b, и я ищу несколько строк кода в VB6 для реализации этого: Я хочу перечислить определенное количество команд для выполнения, а затем указать моей программе выбрать случайную из них и выполнить ее: строго говоря, я имею дело с персонажем MSAgent и хочу, чтобы он делал лицо каждые 5 минут , Как мне этого добиться, пожалуйста?

Answer 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