Private Function X_累乘(ByVal X As Integer)
Dim a As Long
A = 1
For I = 1 To X
a = a * 256
Next I
Return a
End Function
- Mar 29 Tue 2011 15:37
-
累乘 VB
請先 登入 以發表留言。