UC知道填空，打印100个在-500到500之间不同的随机数，并找出第几个数最大
来源：百度知道 编辑：UC知道 时间：2024/05/05 02:22:16
最好能详细解释一下，谢谢
Dim B(100)
For j = 1 To 100
x = Rnd
If x > 0.5 Then y = 1 Else y = -1 '这三句同等于 B(j) = Int(Rnd * 1001) - 500 吗？为什么？
p = 0
k = 1
whilt p = 0 And k <= j - 1
If B(j) = B(k) Then __________
k = k + 1
Wend
If p = 0 Then Print B(j) Else j = j - 1
Next j
Print
p = 1
__________
For n = 2 To 100
If B(n) > Max Then Max = B(n)
__________
Next n
Print "max="; Max
Print "p="; p
If x > 0.5 Then y = 1 Else y = -1 下漏了一句 B(j) = y * Int(Rnd * 501)
Dim B(100)
For j = 1 To 100
x = Rnd
If x > 0.5 Then y = 1 Else y = -1 '这三句同等于 B(j) = Int(Rnd * 1001) - 500 吗？为什么？
p = 0
k = 1
whilt p = 0 And k <= j - 1
If B(j) = B(k) Then __________
k = k + 1
Wend
If p = 0 Then Print B(j) Else j = j - 1
Next j
p = 1
__________
For n = 2 To 100
If B(n) > Max Then Max = B(n)
__________
Next n
Print "max="; Max
Print "p="; p
If x > 0.5 Then y = 1 Else y = -1 下漏了一句 B(j) = y * Int(Rnd * 501)
如果是这样的话,那这题就是对了,
我把x=rnd代码改下吧,这样可能更容易看懂
x=Rnd*(1-0)+0
这两句代码的意思就是,以0.5分界点,大于0.5为正就是-0.5-500之间的数,小于0.5为负,也就是-500--0.5之间的数,这样,不就是刚好你想要的吗?