Sub abcd()
n = CInt(InputBox("Введите натуральное n"))
s = 0#
For i = 1 To n
p = 1#
For j = i To 2 * i
p = p * j
Next j
s = s + p
Next i
MsgBox s
End Sub
D = C = 4;
C = B = 6;
B = A = 3;
переменная А значение не меняла.
Ответ: А = 3, В = 3, С = 6, D = 4.
Надо знать точную модель процессора, знать форм-фактор корпуса и т.д., чтобы подобрать нужную модель материнской карты.