子程序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...