Dim x As Long
Private Sub Form_Click()
  x = x + 1
  If x > 3 Then
  x = 1
  End If
  If x = 1 Then
  Form1.BackColor = vbRed
  ElseIf x = 2 Then
  Form1.BackColor = vbGreen
  Else: Form1.BackColor = vbBlue
  End If
  Cls
这个程序点一下窗口，就会变一种颜色，能变三种颜色，但是我没弄懂为什么。  为何定义变量在上面   一个这样的机关的原理是什么。没弄懂那些式子

等同静态

Dim x As Long         定义全局变量，本窗体可见
Private Sub Form_Click()       窗体单击时发生
  x = x + 1           计数，累加单击次数
  If x > 3 Then       计数值超过3时
  x = 1               计数值 回 1
  End If
  If x = 1 Then       计数是否等于 1 时
  Form1.BackColor = vbRed     窗体背景色 设为红色
  ElseIf x = 2 Then   如果不等1时，是否等于 2
  Form1.BackColor = vbGreen   窗体背景色 设为 绿色
  Else: Form1.BackColor = vbBlue   以上二次二次判断是否都不成立，那么窗体背景设为 蓝色。注意 这里写了二条语句，用冒号分隔。
  End If             结束判断
  Cls                窗体清屏，擦除所有画的内容

关键是x记录了信息，再对x进行判断选择！