Private Sub Form_Load()
Dim X As Long, Y As Long, K As Long
Dim A As Long, B As Long
A = 6
B = 8
X = IIf(A >= B, A, B) 'x存入最大值
Y = IIf(A