在vb编程中,如何表示偶数相乘的计算

Sub aa()
'用9行数据做说明,看是不是你要的东西；
Dim x As Integer
For x = 2 To 9
If Cells(x, 1) Mod 2 = 0 And Cells(x, 2) Mod 2 = 0 Then '用A与B的值去除2,如果余数为0,证明A与B单元格对应的值都是偶数；
Cells(x, 3) = Cells(x, 1) * Cells(x, 2) '让两个都是偶数的值相乘,第三返回结果；
End If
Next x
End Sub