函數子程序

子程序GOSUB

例：求4！+5！+6！

S=0

n=4: gosub f：s=s+p

n=5: gosub f：s=s+p

n=6: gosub f：s=s+p

print “4!+5!+6!=”;s

end

f: p=1

for i=1 to n

p=p*i

next i

return

子程序調用:

ON　 gosub ,,…,

例6：“小學生算術練習”——輪流出一個二位數和一個一位數的加法、減法和乘法的題目，共出十題，每題 10分。

randomize

for i=1 to 10

a=int(90*RND)+10

b=int(9*RND)+1

p=i mod 3 + 1

ON p GOSOB a1,a2,a3

Next i

Print "n=";n*10

END

a1: print a;"+";b;"=";

input c

if c=a+b then n=n+1

return

a2: print a;"-";b;"=";

input c

If c=a-b then n=n+1

Return

a3: print a;"*";b;"="

Input c

If c=a*b then n=n+1

Return.

説明

值不是整數時，按四捨五入處理,值為0或大於n則不起作用,值為負時系統給出錯誤信息——“不正確的函數調用”。