VB程序代码段求助

x = 1
Do While x = 1
If 攻击对象 = 1 Then
Label1.FontBold = False
Label2.FontBold = True
攻击对象 = 2
x = 0
ElseIf 攻击对象 = 2 Then
Label2.FontBold = False
Label3.FontBold = True
攻击对象 = 3
x = 0
ElseIf 攻击对象 = 3 Then
Label3.FontBold = False
Label4.FontBold = True
攻击对象 = 4
x = 0
ElseIf 攻击对象 = 4 Then
Label4.FontBold = False
Label5.FontBold = True
攻击对象 = 5
x = 0
ElseIf 攻击对象 = 5 Then
Label5.FontBold = False
Label6.FontBold = True
攻击对象 = 6
x = 0
ElseIf 攻击对象 = 6 Then
Label6.FontBold = False
Label7.FontBold = True
攻击对象 = 7
x = 0
ElseIf 攻击对象 = 7 Then
Label7.FontBold = False
Label8.FontBold = True
攻击对象 = 8
x = 0
ElseIf 攻击对象 = 8 Then
Label8.FontBold = False
Label1.FontBold = True
攻击对象 = 1
End If
If 第一个位置存活状态 = 0 And 攻击对象 = 1 Then
x = 1
ElseIf 第二个位置存活状态 = 0 And 攻击对象 = 2 Then
x = 1
ElseIf 第三个位置存活状态 = 0 And 攻击对象 = 3 Then
x = 1
ElseIf 第四个位置存活状态 = 0 And 攻击对象 = 4 Then
x = 1
ElseIf 第五个位置存活状态 = 0 And 攻击对象 = 5 Then
x = 1
ElseIf 第六个位置存活状态 = 0 And 攻击对象 = 6 Then
x = 1
ElseIf 第七个位置存活状态 = 0 And 攻击对象 = 7 Then
x = 1
ElseIf 第八个位置存活状态 = 0 And 攻击对象 = 8 Then
x = 1
End If
Loop
每次到第八个时又切回第二个，跳掉第一个，求指点迷津。
谢谢