若a=1,那么将变量A的值赋给变量B,请教

以下两种方法都可以实现你的要求。
 1.全局脚本中赋值：
 Dim X
  Set X= HMIRuntime.Tags("a")
 Dim Y
  Set Y= HMIRuntime.Tags("b")
 Dim A
  Set A = HMIRuntime.Tags("A")
 Dim AA
  Set AA = HMIRuntime.Tags("AA")
  Dim B
  Set B = HMIRuntime.Tags("B")
 X.Read
 Y.Read 
 A.Read
 AA.Read 
 B.Read 
 If X.Read =1 And Y.Read =0 Then
 B.Write A.Value
 Else
 If X.Read =0 And Y.Read =1 Then
 B.Write AA.Value
 End If
 End If

 2.在运行画面中赋值：
 Dim X
  Set X= HMIRuntime.Tags("a")
 Dim Y
  Set Y= HMIRuntime.Tags("b")
 Dim A
  Set A = HMIRuntime.Tags("A")
 Dim AA
  Set AA = HMIRuntime.Tags("AA")
  Dim B
  Set B = HMIRuntime.Tags("B")
 If X.Read =1 And Y.Read =0 Then
 B.Write A.Read
 Else
 If X.Read =0 And Y.Read =1 Then
 B.Write AA.Read
 End If
 End If
 点击信息/触发器对话框（Ctrl+T），把事件选成变量，变量名中把两个变量A和B调进来选根据变化就可以了。