Question

编程计算(A*B+C-70)/A计算结果的商和余数分别保存在变量D和E中,其中A,B,C,D,E均

Answer 1

Sub d1()

Dim A&,B&,C&,D&,E&,x&

For x = 1 To Range("A65536").End(xlUp).Row

A = Cells(x,1)

B = Cells(x,2)

C = Cells(x,3)

D = Application.Quotient((A * B + C - 70),A)

E = (A * B + C - 70) Mod A

Cells(x,4) = D

Cells(x,5) = E

Next x

End Sub

Sub d2()

'如果直接给单元格赋值,直接用这个代码

Dim x&

For x = 1 To Range("A65536").End(xlUp).Row

Cells(x,4) = Application.Quotient((Cells(x,1) * Cells(x,2) + Cells(x,3) - 70),Cells(x,1))

Cells(x,5) = (Cells(x,1) * Cells(x,2) + Cells(x,3) - 70) Mod Cells(x,1)

Next x

End Su