sub main()dim a as long,b as longa = clng(text1.text)b = clng(text2.text)exec a,bend subfunction [...] as long()redim [...]on error resume next[...]=a+b[...]=a-b[...]=a*b[...]=a/bon error goto 0end function
익명(39.116)2013-09-22 20:02
옛다
익명(39.116)2013-09-22 20:02
text1.text text2.text는 알아서 바꿔라
익명(39.116)2013-09-22 20:03
On Error Resume Next ~~~on error goto 0 가 머야??
ㅂㅈㅅ(121.183)2013-09-22 20:10
CLng 은 머야?
ㅂㅈㅅ(121.183)2013-09-22 20:11
On Error Resume Next - 에러나면 무시하고 밑에줄 실행 on error goto 0 - 에러처리 종료
익명(39.116)2013-09-22 20:11
clng = string인 타입을 long으로 변환
익명(39.116)2013-09-22 20:12
redim = 배열 할당 끝
익명(39.116)2013-09-22 20:12
병신같은 vb문법
?(220.123)2013-09-22 20:13
text1.text text2.text 에 3,4 넣으면 되???
ㅂㅈㅅ(121.183)2013-09-22 20:24
대입 왼쪽에서 회출하는 함수는 variant 나 object를 반환해야된다는데 먼소리징?
ㅂㅈㅅ(121.183)2013-09-22 20:25
function [...] as long()dim g() as long
redim g(3)
on error resume next
g(0) = a + b
g(1) = a - b
g(2) = a * b
g(3) = a / b
exec = g
on error goto 0
end function
병신
sub main()dim a as long,b as longa = clng(text1.text)b = clng(text2.text)exec a,bend subfunction [...] as long()redim [...]on error resume next[...]=a+b[...]=a-b[...]=a*b[...]=a/bon error goto 0end function
옛다
text1.text text2.text는 알아서 바꿔라
On Error Resume Next ~~~on error goto 0 가 머야??
CLng 은 머야?
On Error Resume Next - 에러나면 무시하고 밑에줄 실행 on error goto 0 - 에러처리 종료
clng = string인 타입을 long으로 변환
redim = 배열 할당 끝
병신같은 vb문법
text1.text text2.text 에 3,4 넣으면 되???
대입 왼쪽에서 회출하는 함수는 variant 나 object를 반환해야된다는데 먼소리징?
function [...] as long()dim g() as long redim g(3) on error resume next g(0) = a + b g(1) = a - b g(2) = a * b g(3) = a / b exec = g on error goto 0 end function
낼 도서관가서 책하나 빌려야겠당,,, 39.116아 신경써줘서 고마븜