子函数:
function ji shu!(x!,eps#)as double
dim n%,s#,t#
n=1:s=0:t=1
do while(abs(t)>=eps)
s=s+t
t=t*x/n
n=n+1
loop
jishu1=s
end functionsub jishu2(s#,x!,eps#)
dim n%,t#
n=1:s=0:t=1
do while(abs(t)>=eps)
s=s+t
t=t*x/n
n=n+1
loop
end sub主调程序
private sub command1_click()
dim f1#,f2#
f1=jishu1(2#,0.000001)
call jishu2(f2,2#,0.000001)
print "f1=";f1,"f2=";f2
end sub
请问f1=jishu1(2#,0.000001)
call jishu2(f2,2#,0.000001)这些分别指什么?特别是括号里边的内容?
function ji shu!(x!,eps#)as double
dim n%,s#,t#
n=1:s=0:t=1
do while(abs(t)>=eps)
s=s+t
t=t*x/n
n=n+1
loop
jishu1=s
end functionsub jishu2(s#,x!,eps#)
dim n%,t#
n=1:s=0:t=1
do while(abs(t)>=eps)
s=s+t
t=t*x/n
n=n+1
loop
end sub主调程序
private sub command1_click()
dim f1#,f2#
f1=jishu1(2#,0.000001)
call jishu2(f2,2#,0.000001)
print "f1=";f1,"f2=";f2
end sub
请问f1=jishu1(2#,0.000001)
call jishu2(f2,2#,0.000001)这些分别指什么?特别是括号里边的内容?
Double 的类型声明字符是数字符号 (#)
……
你可以查查帮助
Integer(整型) 2 -32768 ~ 32767 %
Long(长整型) 4 -2147483648~2147483647 &
Single(单精度实型) 4 +1.40E-45~+3.40E38 !
Double(双精度实型) 8 +4.97D-324~+1.79D308 #
Currency(货币类型) 8 -922337203685477.5805 @
~923372033685477.5807
String(字符串类型)1/每字符 0~65535 个字符 $
Byte 1 0~255
Boolan 2 True 或 False
Date(日期类型) 8 1/1/100~12/31/999 无
Variant(通用类型) 上述有效范围之一
<语句>
End Sub子程序的调用
1 Call 子程序名([参数])
2 子程序名([参数])Exit Sub 退出子程序[Public|Private][Static] Function 子程序名 ([形参表列]) [As 类型]
<语句>
End FunctionExit Function 退出函数