Question

按键精灵 Q语言随机得到指定问题

'以下是随机得到指定文字
Dim str,cs
cs=0
Rem 标记
If cs<5 Then'弹出5次
str="赵钱孙李周吴郑王"
Randomize
MsgBox mid(str, int(8 * rnd) + 1, 1)
cs=cs+1
Goto 标记
End If
这里是随机取一个姓出来，我想把这个改成随机取两个或三个连续的姓出来，只要把1改成2或3就可以了，但我要的是连续时，比如取连续两位（1234567890），我要取的是12,34,56,78,90之间的随机，而不能出现如23,45,67,89这样的连续出来，不知道怎么解决？取连续三位也是同样道理，我是要取从开头起每三个一组的取，不能出现取出的（比如还是拿刚才的数字举例）为234或345等等……，只可以456或123或789,求高手帮忙！

Answer 1

给点分数把 Dim str,cs
cs=0
Rem 标记
If cs<5 Then'弹出5次g = Int((7 * Rnd) + 1)
If g mod 2 = 1 Then
Goto 标记
End Ifstr = Split("赵x钱x孙x李x周x吴x郑x王", "x", -1, 1)
Randomize
st=str(g)&str(g+1)
MsgBox mid(st, int(1 * rnd) + 1, 2)
cs=cs+1
Goto 标记
End If
另外的自己在琢磨下