Question

ぴぽぴぽ

解き方と答え教えてほしいです🙇‍♂️

考えてみよう
次のプログラムを実行したとき、次のセルに表示される値を答えなさい。
Sub main()
Dim a As Long, b As Long, c As Long, d As Long
a = Cells(2, 1). Value
b = Cells(3, 1).Value
c = a + b
-
d = b a
Cells(4, 1).Value = c
Cells(3,2).Value = d
Cells(2, 2). Value = c / 2
Cells(3, 3).Value = 200 - c
End Sub
1 A4
2 B2
3 B3
4 C3
A
B
C
D
1
2
702
3
80 34
40

Answer 1

✨ ベストアンサー ✨

GDO

解き方は特にありませんが、以下のとおり処理が行われています

a=Cells(2,1).Value　：a=セルA2=70
b=Cells(2,1).Value　：b=セルA3=80
c=a+b　　：c=70+80=150
d=b-a　　：d=80-70=10
Cells(4,1).Value=c　（セルA4=150）➀
Cells(3,2).Value=d　（セルB3=10）➂
Cells(2,2).Value=c/2　（セルB2=75）➁
Cells(3,3).Value=200-c　（セルC3=50）④