電腦設使用者猜-console
Sub Main()
Dim i, j, k, comanswer(3), guesstimes As Short
Dim check, checkA, checkB As Integer
Dim str As String
Randomize()
'設定答案
For i = 0 To 3
k = Int(Rnd() * 10)
check = 0
For j = 0 To i
If k = comanswer(j) Then
check = 1
Exit For
End If
Next
If check = 1 Then
i -= 1
Else
comanswer(i) = k
End If
Next
guesstimes = 0
Console.WriteLine("{0}{1}{2}{3}", comanswer(0), comanswer(1), comanswer(2), comanswer(3))
While (1)
Console.Write("請輸入一個四位數：")
str = Console.ReadLine
checkA = 0
checkB = 0
For i = 0 To 3
For j = 0 To 3
If comanswer(i) = Val(Mid(str, j + 1, 1)) Then
If i = j Then
checkA += 1
Else
checkB += 1
End If
End If
Next
Next
guesstimes += 1
Console.WriteLine("第 {0} 次猜 {1} , 結果為 {2}A {3}B", guesstimes, str, checkA, checkB)
Console.WriteLine()
If checkA = 4 Then
Console.WriteLine("答對了!!")
Exit While
End If
End While
Console.WriteLine("按Enter鍵結束!!")
Console.ReadLine()
End Sub
XAXB-使用者設電腦猜