dc.caption = " 다시한번 질문드립니다 ㅠㅠ베이직.."

[기계과플밍(118.42)]

Dim a0 As Double
Dim a1 As Double
Dim b0 As Double
Dim b1 As Double
Dim x As Double
Dim y As Double
Dim A As Double
Dim gap As Double
Dim gap1 As Double

Text1.Text = a0
Text2.Text = a1
Text3.Text = b0
Text4.Text = b1

 

For y = a0 To a1 Step 0.01

gap = gap + (x - 3 * y * y) * 0.01

Next y

 

For x = b0 To b1 Step 0.01
gap = gap * 0.01
Next x


Label1.Caption = gap

 

End Sub

구분구적법으로 이중적분을 풀어야 하는데 ㅠ

For y = a0 To a1 Step 0.01

gap = gap + (x - 3 * y * y) * 0.01

Next y

요 반복문에서 x값을 그냥 미지수로 생각을 하고 루프 돌리다 다음 반복문에서
For x = b0 To b1 Step 0.01
gap = gap * 0.01
Next x

연산을 해야하는데
x값이 0으로 저장이 되면서 루프가 돌아가나봐요.. ㅠ
해결책좀 부탁드려요

[기계과플밍(118.42)]

ㅠㅠ 이거 얼른 끝내고 열역학 재료역학 해야되는데 ㅠㅠㅠㅠㅠㅠㅠㅠㅠㅠㅠㅠㅠㅠㅠㅠㅠㅠㅠㅠㅠㅠㅠㅠㅠㅠ 역학하기도 바빠 죽겠는데 프로그래밍 너무 어렵네요 ㅠㅠㅠㅠ 진짜 플밍 잘하시는분 보면 ;; 의느님보다 대단하다고 생각이 듦;; 이런 간단한것도 어려운데 게임은 어떻게 만드는지;;;