猜数字
1. 乱数产生 4 个 0~9 且不重复的数字(答案)
2. 让使用者输入(猜) 4 个数字。
3. 若所猜的数字与答案的数字相同但位数不同  则为 B    若所猜的数字与答案的数字相同且位数相同  则为 A
4. 输出A与B的个数(nAmB)
5. 若完全猜对(4A)则结束  否则重复步骤 2~5能帮我改成这样吗? 拜托啰 !!

Module Module1

Sub Main()
Dim num(2) As Integer
Dim i, j As Integer
Randomize()
'产生由1~9构成的3位数
For i = 0 To 2
num(i) = CInt(Rnd() * 9) + 1
For j = 0 To i - 1
If num(i) = num(j) Then
i = i - 1
End If
Next
Next




Dim times As Integer = 0
Dim A, B As Integer
D ..

访客只能看到部份内容，免费 加入会员 或由脸书 Google 可以看到全部内容

图 1. Err1   

下面是引用 taiwanplope 于 2010-11-04 14:06 发表的 猜数字 求助:
猜数字
1. 乱数产生 4 个 0~9 且不重复的数字(答案)

2. 让使用者输入(猜) 4 个数字。

3. 若所猜的数字与答案的数字相同但位数不同  则为 B

    若所猜的数字与答案的数字相同且位数相同  则为 A

4. 输出A与B的个数(nAmB)

5. 若完全猜对(4A)则结束  否则重复步骤 2~5

能帮我改成这样吗? 拜托啰 !!

.......

以后请不要用指名的方式
请人帮你
不然你可能会错失很多
本想帮你
却又看你指名的方式
而作罢帮你的高手

还有
请别用私人讯息问程式了
分享应比私授更有意义
你说是吗

嗯嗯 说的是
感谢你 ^^

还是不知道怎改...

图 1. 加强二楼所述的错误；建议楼主重新写过   

下面是引用 taiwanplope 于 2010-11-05 02:13 发表的 :
还是不知道怎改...

图 1. 1. 乱数产生 4 个 0~9 且不重复的数字(答案)   

乱数部份给你参考

嗯嗯 感谢3仙的教导!