随机数类型的脚本不断给出相同的结果 [英] Random number-type script keeps giving same results

问题描述

我不知道我哪里出错了.为风险风格的论坛游戏编写脚本，一直无法正常工作.

I can't figure out where I made a mistake. Making a script for a risk-style forum game, keeps not working.

intHighNumber = 10000

intLowNumber = 1

intNumbers = 1

For i = 1 To intNumbers

    Randomize

    intNumber = Int((intHighNumber - intLowNumber + 1) * Rnd + intLowNumber)

    strnum = strnum& "   " & CStr(intNumber)

Next
If strnum=0000 Or 1111 Or 2222 Or 3333 Or 4444 Or 5555 Or 6666 Or 7777 Or 8888 Or 9999 Or 1234 Or 2345 Or 3456 Or 4567 Or 5678 Or 6789 Then
x = MsgBox(100)
ElseIf strnum=123 Or 234 Or 345 Or 456 Or 567 Or 678 Or 789 Or 1123 Or 1345 Or 1456 Or 1567 Or 1678 Or 1789 Or 2123 Or 2234 Or 2456 Or 2567 Or 2678 Or 2789 Or 3123 Or 3234 Or 3345 Or 3567 Or 3678 Or 3789 Or 4123 Or 4234 Or 4345 Or 4456 Or 4678 Or 4789 Or 5123 Or 5234 Or 5345 Or 5456 Or 5567 Or 5789 Or 6123 Or 6234 Or 6345 Or 6456 Or 6567 Or 6678 Or 7123 Or 7234 Or 7345 Or 7456 Or 7567 Or 7678 Or 7789 Or 8123 Or 8234 Or 8345 Or 8456 Or 8567 Or 8678 Or 8789 Or 9123 Or 9234 Or 9345 Or 9456 Or 9567 Or 9678 Or 9789 Then
x = MsgBox(50)
Else 
x = MsgBox(3)
End If

推荐答案

你的 If 是坏的；请参阅我对您的其他/相同的问题的回答.另外:连接循环中的数字并将单个数字与循环后的字符串进行比较是无稽之谈.

Your If is bad; see my answer to your other/same question. In addition: Concatenatiing the numbers in the loop and comparing single numbers against the string after the loop is nonsense.

这篇关于随机数类型的脚本不断给出相同的结果的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！