【正文】
procedurename(arguments) [As type] Statements End Function 其中的 procedurename是函數(shù)名, arguments是函數(shù)中的參數(shù)表, type是函數(shù)返回值的數(shù)據(jù)類型,[]表示可有可無的部分, statements是過程中的代碼 調(diào)用函數(shù)的格式: procedurename(arguments) (3)編寫程序 窗體中開設(shè)一個(gè)文本框 Text1用于填人月數(shù) N,設(shè)置命令框 Commandl,點(diǎn)擊它即執(zhí)行程序求出第 N月的兔子數(shù)。 算法 : ① 輸入計(jì)算兔子的月份數(shù): n ② If n 3 Then c = 1 Else a = 1: b = 1 ③ i = 3 ④ c = a + b: a = b: b = c ⑤ i=i+1,如果 i≤n則返回④ ⑥ 結(jié)束 Private Sub Command1_Click() n = Val() If n 3 Then c = 1 Else a = 1: b = 1 For i = 3 To n c