1 4方向 Option Explicit Sub game() Dim i As Long, j As Long Dim p_x As Integer, p_y As Integer, c As Integer, k_x As Integer, k_y As Integer For i = 1 To 1000 p_x = 0 p_y = 0 k_x = 0 k_y = 0 For j = 1 To 50 c = 0 Randomize c = Int(100 * Rnd + 1) If c <= (25 + k_x) Then p_x = p_x + 1 ElseIf (25 + k_x) < c And c <= 50 Then p_x = p_x - 1 ElseIf 50 < c And c <= (75 + k_y) Then p_y = p_y + 1 Else p_y = p_y - 1 End If If p_x * 5 > 25 Then k_x = 25 ElseIf p_x * 5 < -25 Then k_x = -25 Else k_x = p_x * 5 End If If p_y * 5 > 25 Then k_y = 25 ElseIf p_y * 5 < -25 Then k_y = -25 Else k...