Question

按键精灵随机数问题 2014版

需要获取一个随机值a 范围在1~5
效果如下：
当a=1时
执行A子程序
当a=2时
执行B子程序
。。。

Answer 1

//要产生指定范围的随机整数，请使用以下公式：
//Int((最大值 - 最小值 + 1) * Rnd() + 最小值)
//例如产生2到6之间的随机数:
Dim MyValue
Randomize
MyValue = Int(((5-1+1) * Rnd()) + 1)
Traceprint MyValue
a=MyValue
//<>---------------------------------------------以下是选择条件结结构判断
Select Case a
Case 1
Msgbox "你输入的数字为：1"
Case 2
Msgbox "你输入的数字为：2"
Case 3
Msgbox "你输入的数字为：3"
Case 4
Msgbox "你输入的数字为：4"
Case 5
Msgbox "你输入的数字为：5"
Case Else
Msgbox "你输入的数字不正确"
End Select

Answer 2

很少用2014版，因为我老了吧，只用9.5老版本，但应该一样的
Randomize
a = Int((5 * Rnd) + 1)
If a = 1
Call a()
ElseIf a = 2
Call b()
ElseIf a = 3
ElseIf a = 4
ElseIf a = 5
End If

Answer 3

Randomize
a = int(rnd() * 5) + 1
Select Case a
Case 1
msgbox "1"
Case 2
msgbox "2"
Case 3
msgbox "3"
Case 4
msgbox "4"
Case 5
msgbox "5"
End Select

msgbox  这些行，换成你的子程序即可。