TA贡献1777条经验 获得超3个赞
Dim t As Long_________________________________________Public Function j(n As Integer) As Longt = 1For i = 1 To nt = t * iNext ij = tEnd Function_______________________________________Private Sub Command1_Click()Text1.Text = j(8) '这里就可以调用函数了End Sub
TA贡献2011条经验 获得超2个赞
Private Function f(Dim n As Integer) as Integerif n=0 thenf=1elsefor i=1 to nt=t*inextf=tendifEnd Function调用的时候如下,x等于24x=f(4)
大厂算法面试真题解析32讲
¥ 68.00
数据结构与算法(前端版)
¥ 58.00
用技术人的眼光看世界 • 程序员技术指北
¥ 99.00
举报