Vb题！急~·······2道题大虾们帮帮忙~1.cos(0)为什么等于12.Functions(nAsInteger）IfN=1thenS=1elseS=s(n-1)+nEndfunctionprivatSubforclickDimxASIntegerX=s(4)printxEndsub这题怎么

Question

Vb题！急~·······2道题 大虾们帮帮忙~1.cos(0) 为什么等于1 2.Function s(n As Integer） If N =1 then S = 1 else S = s(n-1) +n End function privat Sub for_click Dim x AS Integer X = s(4) print x End sub 这题怎么做？答案是4选1 ： 4.36.10.1 这里的function是什么意思呀？ 这个Vb是什么类型的 为什么这么复杂

Answer 1

1. cos（0）就是0弧度的余弦值，你去查一下余弦的定义就知道为什么为1了。 sin(0)=0,tan(0)=0,cos(0)=1,tan=sin/cos 2. 函数的意思是求前N项和 If N =1 then S = 1 这句话是说当N为1时，先把1放到S中。 else S = s(n-1) +n 这句话是说，当N>1时，S为前N-1项之和加N，很显然，S就是前N项之和，所以S（4）=1+2+3+4=10 Function s(n As Integer） Dim x AS Integer 这两句话都说明了数据类型为Integer，也就是整型数，在C语言中是int类型。