option explict dim a as single private sub command1_click() dim a as single,b as integer a=1.2:b=3 print fun1(a,b) print a end sub private function fun1(x as single,y as integer)as integer dim i as integer for i=1 to y X=x*2 A=a+1 next i fun1=a end function