用VB怎么定义一个函数

显示全部楼层 · 2008-11-8 16:38:56

比如：用VB编好了n的阶乘，但是我想多次使用；定义为f(n);f(3)就等于3的阶乘、f(6)就等于6的阶乘；这样用起来方便些，要怎样编？

千问 · 2008-11-8 16:38:56

Dim t As Long_________________________________________Public Function j(n As Integer) As Longt = 1For i = 1 To n
t = t * iNext ij = tEnd Function_______________________________________Private Sub Command1_Click()Text1.Text = j(8)'这里就可以调用函数了End Sub...

千问 · 2008-11-8 16:38:56

先说函数中的instr(1,s,"0")意思是查找字符串"0"在变量s中出现的第一个位置，这儿的1可以不用写，意思是从第一个字符开始查起。你要看清，这儿的"0"是有个半角空格的。ss=mid(s,1,i)&change意思是获取从变量s的第1位开始到变量i的位置上的字符串，并加上后面的change变量。...

千问 · 2008-11-8 16:38:56

Private Function f(Dim n As Integer) as Integerif n=0 thenf=1else for i=1 to n
t=t*i nextf=tendifEnd Function调用的时候如下，x等于24x=f(4)...

千问 · 2008-11-8 16:38:56

Public Function fjiecheng(ByVal n As Integer)
Dim i, fn As Long
fn = 1
For i = 1 To n
fn = i * fn
Next
Return fn
End ...