Private Sub Command6_Click() Static a As Integer If i = 1 Then Image1.Picture = LoadPicture("D:\Bmp图片\2.bmp") ElseIf i = 2 Then Image1.Picture = LoadPicture("D:\Bmp图片\3.bmp") ElseIf i = 3 Then Image1.Picture = LoadPicture("D:\Bmp图片\4.bmp") Else i = 1 End If i = i + 1 End Sub 不行啊 点了没反应 刚开始我也是这么写的...