大量作業３

考古題24

中文數字(會去零版)

老師會跑出

我的則是(沒有說比較好搞不好有缺陷)

考古題25

考古題26

考古題27

考古題28

考古題29

考古題30

考古31

考題32

考古題33

Public Class Form1

Const nd = 4 'no of digits 幾位數
Dim k(nd) As Integer, trial As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim g(nd) As String, gn As Integer, A As Integer, B As Integer, i As Integer, j As Integer
gn = Guess.Text
For i = nd To 1 Step -1
g(i) = gn Mod 10
gn = gn \ 10
Next
A = 0
B = 0
For i = 1 To nd
If g(i) = k(i) Then A = A + 1 '請用正確的判斷來取代空格
For j = 1 To nd
If g(i) = k(j) Then B = B + 1 '請用正確的判斷來取代空格
Next
Next
B = B - A
trial = trial + 1
result.AppendText(trial & ": " & Guess.Text & " " & A & "A" & B & "B" & vbNewLine)
If A = 4 Then
result.AppendText("恭喜你，答對了！")
Button1.Enabled = False
Guess.Enabled = False
End If
Guess.Text = ""
Guess.Focus()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Randomize()
Dim i As Integer, j As Integer, 不重覆 As Boolean
k(1) = Int(Rnd() * 9) + 1
答案.Text = k(1)
For i = 2 To nd
Do
k(i) = Int(Rnd() * 10)
不重覆 = True
For j = 1 To i - 1
If k(j) = k(i) Then 不重覆 = False
Next
Loop Until 不重覆
答案.Text = 答案.Text & k(i)
Next
result.Text = ""
trial = 0
Button1.Enabled = True
Guess.Enabled = True
Guess.Focus()
Button2.Text = "重新開始"
End Sub

Private Sub Label1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles 左上角.MouseEnter
答案.Visible = True
End Sub

Private Sub Label1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles 左上角.MouseLeave
答案.Visible = False
End Sub
End Class


附註:我不會玩猜數字

考古題34

測反應

委託2