972-0315- 猜數字

Public Class Form1
Dim x As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Q(4), i As Integer
Dim Ans(4), j As Integer
Dim a, b As Integer
Dim s As String = TextBox1.Text
For i = 0 To 3
Q(i) = Val(TextBox1.Text.Chars(i))
Next
For j = 0 To 3

Ans(j) = Val(TextBox2.Text.Chars(j))
Next
x = x + 1
For i = 0 To 3
For j = 0 To 3
If Q(i) = Ans(j) Then
If i = j Then
a = a + 1
Else
b = b + 1
End If
End If
Next
Next

ListBox1.Items.Add(TextBox2.Text & "-->" & a & "A" & b & "B")
If a = 4 Then ListBox1.Items.Add("共猜了　" & x & " 次")
TextBox2.Clear()
a = 0
b = 0


End Sub
End Class