有些VB题不会，想请教！

Question

2.Num^3
3.定义两个数组，内容为星期名
4.是否奇数 = (Num Mod 2=1)

Answer 1

'阶乘函数
Function jc(Num as long)as long
Dim T as long
dim I as longT=1
For i=2 to Num
T=T*i
Next iNum=t
End Function

Answer 2

1.做一个函数,调用一下就行了。
public function Out_number(byval In_number as integer) as integer
dim i as integer
dim temp_number as integer
temp_number=1
for i=1 to In_number 
    temp_number=temp_number * in_number
next i
Out_number=temp_number
end function

Answer 3

大哥你真厉害！
这些书上都有！
function face(n as integet) as integet
   dim i as integet
   dim t as integet
      for i= 1 to n
        t=t*i
       next 
    face=t
end function
function x() as integer
       x=face(10)\(face(6)*face(4))
end function
function b( n as integer) as integer
       b=n^3
end function