VB 使用自定義函式函式查詢 1！ 2！ 3！ 10！並用列印顯示結果

private sub command1_click()dim i as integer

dim sum as long

for i=1 to 10

sum=sum+fact(i)

sumend sub

function fact(x as integer) as long

if x=1 then

fact=1

elsefact=x*fact(x-1)

end if

end function

雖然結構清晰，但計算量大，乘以階乘總共需要 45 倍。

它可以完全更改。

private sub command1_click()dim i as integer

dim jie as long

dim sum as long

jie=1for i=1 to 10

jie=jie*i

sum=sum+jie

sumend sub

這使得所有階乘只需要乘以 10 倍。

PS：乘法比加法浪費更多的CPU時間。

private sub command1 click（）print lj（1， 100） '呼叫函式 end sub

public function lj（byval aa as integer， bb as integer） '累加自定義函式。

for i = aa to bb

s = s + i

next i

lj = s

end function

function jiechengsum() as longdim sum as long

dim i as long

dim j as long

sum = 0

j = 1for i = 1 to 10

j = j * i

sum = sum + j

nextjiechengsum = sum

end function

下面是呼叫函式的示例。

private sub command1_click()msgbox jiechengsum

end sub

function(sum as integer,n as int)dim sum as integer

dim n as integer

dim i as integer

sum=0n=1i=1

for i=1 to 10

n=n*isum=sum+n

i=i+1next

就是這樣，我忘了，呵呵，試試吧，你可以再除錯一次。

上面示例中的自定義函式 jc

也發布這個。

你要返回的內容，假設乙個函式被呼叫：myf

然後將要寫入的返回值設定為（要返回的位置）：

myf=返回值。

可以更改返回值。

是的，函式名稱是返回值。

max=x

max=yvb 不需要直接賦值。

函式：指定函式 該過程可以返回特定值。

函式類似於乙個過程，它也是乙個單獨的程式，用於完成乙個特定的函式**，它由一組符合VB語法的語句組成，它與過程的不同之處在於函式可以向呼叫者返回乙個值，自定義函式過程的格式如下：

publicl private][static]函式、過程名稱（[參數列列表]）、[as type]。

區域性變數常量的定義。

語句塊“函式名 = 返回值。

exit function]

函式名稱 = 返回值。

語句塊] 結束函式

注意：（1）函式和結束函式是函式的開始和結束標誌。

2） public：表示函式是 “public”，private：表示函式是"私人"。

3）參數列列：變數名[as type][，變數名[as type]......

as type]用於指示函式返回值的型別。

4） 【退出功能】：表示退出功能程序。

5）構建1函式的方法與構建它的過程相同。

function 關鍵字指定乙個函式，該過程可以返回特定值，例如：

public function yourneed（param as integer）as integer

yourneed=100

end function

該過程在末尾返回值 100，例如 a=yourneed（10），然後 a=100。

子過程不能返回值，例如：

public sub yourneed（param as integer）

yourneed=100'此處的語句存在，但無效。

end sub

當其他過程呼叫 sub yourneed 過程（如 a=yourneed（100） 編譯器）時，會報告錯誤。

print tab(10); string("字元",5);spc(6),chr(65),asc("a"),3 ; 4

tab（10） 將游標定位到第 10 列。

string("a",5);輸出 5 個字元“aaaaa”。

spc（6），輸出 6 個空格。

CHR（65） 由 ASCII 程式碼給出。

asc("a"），有字元可以獲取 ASCII 程式碼。

還有許多其他函式可以新增到 pring 語句中，只要它們的結果是數值或字元即可。

。。print 函式只是列印出字串，相關函式可以涉及廣泛的函式。。。包括所有字串函式... 也可以說，基本上沒有與印刷直接相關的功能......

字串函式有很多，常用的有 str、chr、trim、instr、replace...... 還有很多。

private sub form_click()msgbox chengfa(3, 6) '18end sub

private function chengfa(a, b)chengfa = a * b

end function

隨便寫乙個。

你可以閱讀它。

被呼叫或定義。

呼叫：direct p = functionname（引數 1，引數 2） definition：私有函式 functionname（引數 1，引數 2）。

函式體。 functionName = 某個值。

end function