행님들 부탁드립니당....ㅜㅜ일단 문제를 올릴게요..작동은 하는데 엉뚱한 답이.......소스좀 수정좀 부탁드려용일단 제가 만든 소스입니다

Private Sub Command1_Click()

Dim dr, rend, rbegin, r, k As Double

Dim dz, zend, zbegin, z As Double

Dim dt, tend, tbegin, t As Double

Dim pie As Double

' t는 쎄타 Θ

Open "c:integral.txt" For Output As #1

dr = 0.1rend = 1#rbegin = 0#

dt = 0.1tend = 2 * pietbegin = 0

dz = 0.1zend = 4#zbegin = 1 - r ^ 2

pie = 3.141592

integral = 0

For z = zbegin To zend Step dz

For r = rbegin To rend Step dr

For t = tbegin To tend Step dt

fx = r * r

integral = (integral + (integral + (integral + fx * dz) * dr) * dt)

Print #1, r; ","; integral

Next t, r, z

Close #1Text1.Text = "계산종료 C드라이브에 저장"End Sub

그리고 그걸 3차원으로 그려야 하는데  그건 어떻게하는지까지도...