本程序为赋值语句生成示例，须配合数据文件方可运行，相关的文章有，论计算机的机器智能，判断语句生成示例，规范化程序设计，思维方式与智能计算机，抽象思维的编程方法，需要者与本人联系，１３０５１７２７９８２。
10 '本程序为生成赋值语句示例。
20 A0 = 0 'A0的值恒为0。
30 A1 = 1 'A1的值恒为1。
40 A2 = 5 '本程序中A2的值恒为5。
50 A3 = 16 'A3的值为语句各结构的数量，可根据需要修改。
60 A4 = 9 'A4的值为可增加语句的数量，可根据需要修改。
70 INPUT "请输入第一个级数"; A5
80 INPUT "请输入第二个级数"; A6
90 INPUT "请输入第三个级数"; A7
100 INPUT "请输入第四个级数"; A8
110 INPUT "请输入第五个级数"; A9
120 OPEN "MLSJK.BAS" FOR INPUT AS #1'打开命令数据库，此数据库中的数据和文字不可修改。
130 INPUT #1, A10  '读取命令语句数量。
140 DIM A1!(A10, A3)  '建立数据库，存储命令语句各部分解释。
150 DIM A2$(A10, A3)  '建立数据库，存储命令语句各部分文字。
160 A11 = 0
170 A11 = A11 + A1
180 IF A11 < A10 THEN 210
190 IF A11 = A10 THEN 210
200 IF A11 > A10 THEN 330
210 INPUT #1, A12  '读取命令语句组成部分数量。
220 A1!(A11, A0) = A12  '将语句命令组成部分数量存入数组。
230 A13 = 0
240 A13 = A13 + A1
250 IF A13 < A12 THEN 280
260 IF A13 = A12 THEN 280
270 IF A13 > A12 THEN 170
280 INPUT #1, A14  '读取命令语句各部分解释。
290 A1!(A11, A13) = A14  '存储命令语句各部分解释。
300 INPUT #1, A15$  '读取命令语句各部分文字。
310 A2$(A11, A13) = A15$  '存储命令语句各部分文字。
320 GOTO 240
330 CLOSE #1 '关闭命令数据库。
340 A11 = A6 - A5 '计算相邻级数的差值。
350 A12 = A7 - A6
360 A13 = A8 - A7
370 A14 = A9 - A8
380 A15 = A6 / A5 '计算相邻级数的比值。
390 A16 = A7 / A6
400 A17 = A8 / A7
410 A18 = A9 / A8
420 IF A15 < A16 THEN 510
430 IF A15 = A16 THEN 450
440 IF A15 > A16 THEN 510
450 IF A15 < A17 THEN 510
460 IF A15 = A17 THEN 480
470 IF A15 > A17 THEN 510
480 IF A15 < A18 THEN 510
490 IF A15 = A18 THEN 900
500 IF A15 > A18 THEN 510
510 IF A11 < A12 THEN 600
520 IF A11 = A12 THEN 540
530 IF A11 > A12 THEN 600
540 IF A11 < A13 THEN 600
550 IF A11 = A13 THEN 570
560 IF A11 > A13 THEN 600
570 IF A11 < A14 THEN 600
580 IF A11 = A14 THEN 920
590 IF A11 > A14 THEN 600
600 A15 = A12 - A11
610 A16 = A13 - A12
620 A17 = A14 - A13
630 A18 = A12 / A11
640 A19 = A13 / A12
650 A20 = A14 / A13
660 IF A18 < A19 THEN 720
670 IF A18 = A19 THEN 690
680 IF A18 > A19 THEN 720
690 IF A18 < A20 THEN 720
700 IF A18 = A20 THEN 940
710 IF A18 > A20 THEN 720
720 IF A15 < A16 THEN 780
730 IF A15 = A16 THEN 750
740 IF A15 > A16 THEN 780
750 IF A15 < A17 THEN 780
760 IF A15 = A17 THEN 960
770 IF A15 > A17 THEN 780
780 A21 = A16 - A15
790 A22 = A17 - A16
800 A23 = A16 / A15
810 A24 = A17 / A16
820 IF A23 < A24 THEN 880
830 IF A23 = A24 THEN 980
840 IF A23 > A24 THEN 880
850 IF A21 < A22 THEN 880
860 IF A21 = A22 THEN 1000
870 IF A21 > A22 THEN 880
880 PRINT "无法计算，请重新输入。"
890 GOTO 70
900 A1$ = "SF1.BAS"
910 GOTO 1020
920 A1$ = "SF2.BAS"
930 GOTO 1020
940 A1$ = "SF3.BAS"
950 GOTO 1020
960 A1$ = "SF4.BAS"
970 GOTO 1020
980 A1$ = "SF5.BAS"
990 GOTO 1020
1000 A1$ = "SF6.BAS"
1010 GOTO 1020
1020 OPEN "CX.BAS" FOR INPUT AS #1  '打开程序文件本身。
1030 OPEN "CXSJK.BAS" FOR INPUT AS #2  '打开程序文件数据库。
1040 INPUT #2, A11  '读取程序语句组成数量。
1050 A12 = A11 + A4 '此数值为程序中新的语句数量上限。
1060 DIM A3!(A12, A3)  '建立数据库，存放程序中所有语句及组成部分解释。
1070 DIM A4$(A12, A3)  '建立数据库，存放程序中所有语句及组成部分文字。
1080 A3!(A0, A0) = A11  '将取程序语句组成数量存入数组。
1090 A13 = 0
1100 A13 = A13 + A1
1110 IF A13 < A11 THEN 1140
1120 IF A13 = A11 THEN 1140
1130 IF A13 > A11 THEN 1280
1140 INPUT #2, A14 '读取程序语句组成部分的数量。
1150 A3!(A13, A0) = 16  '将程序语句组成部分的数量存入数组。
1160 LINE INPUT #1, A15$  '读取程序语句。
1170 A4$(A13, A0) = A15$ '将程序语句存入数组。
1180 A16 = 0
1190 A16 = A16 + A1
1200 IF A16 < A14 THEN 1230
1210 IF A16 = A14 THEN 1230
1220 IF A16 > A14 THEN 1100
1230 INPUT #2, A17 '读取程序语句组成部分的解释。
1240 A3!(A13, A16) = A17  '将程序语句组成部分的解释存入数组。
1250 INPUT #2, A18$ '读取程序语句组成部分的文字。
1260 A4$(A13, A16) = A18$  '将程序语句组成部分的文字存入数组。
1270 GOTO 1190
1280 CLOSE #2 '关闭程序文件。
1290 CLOSE #1 '关闭程序文件数据库。
1300 DIM A5!(A4, A13)  '建立数据库，存放算法各部分解释。
1310 DIM A6$(A4, A3)  '建立数据库，存放算法各部分文字。
1320 OPEN A1$ FOR INPUT AS #1'打开算法文件。
1330 INPUT #1, A13  '读取算法规则数量。
1340 IF A13 < A0 THEN 1560
1350 IF A13 = A0 THEN 1560
1360 IF A13 > A0 THEN 1370
1370 A14 = 0
1380 A14 = A14 + A1
1390 IF A14 < A13 THEN 1420
1400 IF A14 = A13 THEN 1420
1410 IF A14 > A13 THEN 1560
1420 INPUT #1, A15  '读取组成语句各部分的数值。
1430 A5!(A14, A0) = A15  '将组成语句各部分的数值存入数组。
1440 INPUT #1, A16$  '读取语句本身。
1450 A6$(A14, A0) = A16$  '将语句存入数组。
1460 A17 = 0
1470 A17 = A17 + A1
1480 IF A17 < A15 THEN 1510
1490 IF A17 = A15 THEN 1510
1500 IF A17 > A15 THEN 1380
1510 INPUT #1, A18  '读取语句各部分的数值。
1520 A5!(A14, A17) = A18  '将语句各部分的数值存入数组。
1530 INPUT #1, A19$  '读取语句各部分的文字。
1540 A6$(A14, A17) = A19$  '将语句各部分的文字存入数组。
1550 GOTO 1450
1560 CLOSE #1 '关闭算法文件。
1570 IF A13 < A0 THEN 1600
1580 IF A13 = A0 THEN 1600
1590 IF A13 > A0 THEN 7000
1600 A13 = RND '生成相应的算法数量，可随机生成，也可用穷举法指定。
1610 A13 = A13 * A4
1620 A13 = INT(A13)
1630 A13 = A13 + A1
1640 A14 = 0
1650 A14 = A14 + A1
1660 IF A14 < A13 THEN 1690
1670 IF A14 = A13 THEN 1690
1680 IF A14 > A13 THEN 2230
1690 A100 = A10 '可调用的命令数量。
1700 A101 = A4 '可生成的未知数数量。
1710 A102 = 1000 '未知数命名偏移量。
1720 A103 = A6 '未知数数值上限。
1730 GOSUB 8000
1740 A15 = -1
1750 A15 = A15 + A1
1760 A16 = A11 - A15 '语句位置。
1770 A17 = 6
1780 A18 = A3!(A16, A17)  '读取行号。
1790 A19 = 9000
1800 IF A18 < A19 THEN 2220
1810 IF A18 = A19 THEN 2220
1820 IF A18 > A19 THEN 1830
1830 A20 = A16 + A1 '新语句位置。
1840 A21 = 10
1850 A21 = A18 + A21 '新语句行号。
1860 A22 = A3!(A16, A0)  '语句各部分组成的数量。
1870 A23 = -1
1880 A23 = A23 + A1
1890 IF A23 < A22 THEN 1920
1900 IF A23 = A22 THEN 1920
1910 IF A23 > A22 THEN 1970
1920 A24 = A3!(A16, A23)  '组成语句的数据。
1930 A3!(A20, A23) = A24  '组成语句的数据在数组中新的位置。
1940 A25$ = A4$(A16, A23)  '组成语句的文字。
1950 A4$(A20, A23) = A25$  '组成语句的文字在数组中新的位置。
1960 GOTO 1880
1970 A23$ = STR$(A21) '将新语句行号转成文字。
1980 A3!(A20, A17) = A21  '将新语句行号存入数组。
1990 A4$(A20, A17) = A23$  '将新语句行号文字存入数组。
2000 A23$ = "" '新语句的文字。
2010 A24 = 5
2020 A24 = A24 + A1
2030 IF A24 < A22 THEN 2060
2040 IF A24 = A22 THEN 2060
2050 IF A24 > A22 THEN 2090
2060 A25$ = A4$(A20, A24)  '新语句组成的部分文字。
2070 A23$ = A23$ + A25$ '新语句生成的过程。
2080 GOTO 2020
2090 A4$(A20, A0) = A23$  '将新语句存入数组。
2100 A20 = A5!(A14, A0)  '生成语句各部分组成数量。
2110 A21 = -1
2120 A21 = A21 + A1
2130 IF A21 < A20 THEN 2160
2140 IF A21 = A20 THEN 2160
2150 IF A21 > A20 THEN 2210
2160 A22 = A5!(A14, A21)  '生成语句各部分数值。
2170 A3!(A16, A21) = A22  '将生成语句各部分数值存入数组。
2180 A23$ = A6$(A14, A21)  '生成语句各部分文字。
2190 A4$(A16, A21) = A23$  '将生成语句各部分文字存入数组。
2200 GOTO 2120
2210 A11 = A11 + A1
2220 GOTO 1650
2230 OPEN A1$ FOR OUTPUT AS #1'打开算法规则文件。
2240 PRINT #1, A13  '写入算法规则数量。
2250 A14 = 0
2260 A14 = A14 + A1
2270 IF A14 < A13 THEN 2300
2280 IF A14 = A13 THEN 2300
2290 IF A14 > A13 THEN 2440
2300 A15 = A5!(A14, A0)  '语句各部分组成的数量。
2310 PRINT #1, A15  '写入组成语句部分的数量。
2320 A16$ = A6$(A14, A0)  '语句本身。
2330 PRINT #1, A16$  '写入语句。
2340 A17 = 0
2350 A17 = A17 + A1
2360 IF A17 < A15 THEN 2390
2370 IF A17 = A15 THEN 2390
2380 IF A17 > A15 THEN 2260
2390 A18 = A5!(A14, A17)  '语句各部分的数值。
2400 PRINT #1, A18  '写入语句各部分的数值。
2410 A19$ = A6$(A14, A17)  '语句各部分的文字。
2420 PRINT #1, A19$  '写入语句各部分的文字。
2430 GOTO 2350
2440 CLOSE #1 '关闭算法规则文件。
2450 OPEN "CX.BAS" FOR OUTPUT AS #1'打开程序文件。
2460 OPEN "CXSJK.BAS" FOR OUTPUT AS #2'打开程序文件数据库。
2470 PRINT #2, A11  '写入程序文件语句的数量。
2480 A12 = 0
2490 A12 = A12 + A1
2500 IF A12 < A11 THEN 2530
2510 IF A12 = A11 THEN 2530
2520 IF A12 > A11 THEN 2670
2530 A13 = A3!(A12, A0)  '组成语句的数量。
2540 PRINT #2, A13 '写入组成语句的数量。
2550 A14$ = A4$(A12, A0)  '组成语句的文字。
2560 PRINT #1, A14$  '写入组成语句的文字。
2570 A15 = 0
2580 A15 = A15 + A1
2590 IF A15 < A13 THEN 2620
2600 IF A15 = A13 THEN 2620
2610 IF A15 > A13 THEN 2490
2620 A16 = A3!(A12, A15) '组成语句各部分的数值。
2630 PRINT #2, 1  '写入组成语句各部分的数值。
2640 A17$ = A4$(A12, A15) '组成语句各部分的文字。
2650 PRINT #2, A  '写入组成语句各部分的文字。
2660 GOTO 2580
2670 CLOSE #2 '关闭程序文件。
2680 CLOSE #1 '关闭程序文件数据库。
2690 END
7000 DIM A5!(A13, A3)  '建立数据库，存放算法各部分解释。
7010 DIM A6$(A13, A3)  '建立数据库，存放算法各部分文字。
7020 OPEN A1$ FOR INPUT AS #1'打开算法文件。
7030 INPUT #1, A13  '读取算法规则数量。
7040 A14 = 0
7050 A14 = A14 + A1
7060 IF A14 < A13 THEN 7090
7070 IF A14 = A13 THEN 7090
7080 IF A14 > A13 THEN 7230
7090 INPUT #1, A15  '读取组成语句各部分的数值。
7100 A5!(A14, A0) = A15  '将组成语句各部分的数值存入数组。
7110 INPUT #1, A16$  '读取语句本身。
7120 A6$(A14, A0) = A16$  '将语句存入数组。
7130 A17 = 0
7140 A17 = A17 + A1
7150 IF A17 < A15 THEN 7180
7160 IF A17 = A15 THEN 7180
7170 IF A17 > A15 THEN 7050
7180 INPUT #1, A18  '读取语句各部分的数值。
7190 A5!(A14, A17) = A18  '将语句各部分的数值存入数组。
7200 INPUT #1, A19$  '读取语句各部分的文字。
7210 A6$(A14, A17) = A19$ '将语句各部分的文字存入数组。
7220 GOTO 7140
7230 CLOSE #1 '关闭算法文件。
7240 GOTO 2650
8000 A104 = RND '调用的算法命令。
8010 A104 = A104 * A100
8020 A104 = INT(A104)
8030 A104 = A104 + A1
8040 A1000 = RND '未知数一。
8050 A1000 = A1000 * A101
8060 A1000 = INT(A1000)
8070 A1000 = A1000 + A102 '特别注意：A1000不是未知数，A1000的值才是未知数。
8080 A1001 = RND '未知数二。
8090 A1001 = A1001 * A101
8100 A1001 = INT(A1001)
8110 A1001 = A1001 + A102
8120 A1002 = RND '未知数三。
8130 A1002 = A1002 * A101
8140 A1002 = INT(A1002)
8150 A1002 = A1002 + A102
8160 A105 = 3 '未知数一在数组中的位置。此为示例，实际编程中应后移，为语句性质留出空间。
8170 A106 = A5!(A14, 105)  '未知数一在数组中的实际位置。
8180 A107 = 4 '未知数二在数组中的位置。
8190 A108 = A5!(A14, A107)  '未知数二在数组中的实际位置。
8200 A109 = 5 '未知数三在数组中的位置。
8210 A110 = A5!(A14, A109)  '未知数三在数组中的实际位置。
8220 A15 = A1!(A104, A0)
8230 A16 = -1
8240 A16 = A16 + A1
8250 IF A16 < A15 THEN 8280
8260 IF A16 = A15 THEN 8280
8270 IF A16 > A15 THEN 8330
8280 A17 = A1!(A104, A16)  '调用算法命令解释部分。
8290 A5!(A14, A16) = A17  '将调用的算法命令解释部分存储至数组。
8300 A18$ = A2$(A104, A16)  '调用算法命令文字部分。
8310 A6$(A14, A16) = A18$  '将调用的算法命令文字部分存储至数组。
8320 GOTO 8240
8330 A5!(A14, A106) = A1000  '未知数一在算法命令中的位置。
8340 A5!(A14, A108) = A1001  '未知数二在算法命令中的位置。
8350 A5!(A14, A110) = A1002  '未知数三在算法命令中的位置。
8360 A16$ = STR$(A1000) '将未知数一转换成文字。
8370 A16$ = "A" + A16$
8380 A6$(A14, A106) = A16$  '将未知数一的文字存储至数组。
8390 A16$ = STR$(A1001) '将未知数二转换成文字。
8400 A16$ = " A" + A16$
8410 A6$(A14, A108) = A16$  '将未知数二的文字存储至数组。
8420 A16$ = STR$(A1002) '将未知数三转换成文字。
8430 A16$ = "A" + A16$
8440 A6$(A14, A110) = A16$  '将未知数三的文字存储至数组。
8450 A16 = 9000 '新语句产生的位置。
8460 A17 = 10
8470 A17 = A14 * A17
8480 A16 = A16 + A17
8490 A17 = 6
8500 A18$ = STR$(A16) '将新语句行号转为文字。
8510 A5!(A14, A17) = A16  '将新语句行号存入数组。
8520 A6$(A14, A17) = A18$  '将新语句行号文字存入数组。
8530 A18$ = "" '新语句的文字。
8540 A19 = 5
8550 A19 = A19 + A1
8560 IF A19 < A15 THEN 8590
8570 IF A19 = A15 THEN 8590
8580 IF A19 > A15 THEN 8620
8590 A20$ = A6$(A14, A19)  '新语句组成的部分文字。
8600 A18$ = A18$ + A20$ '新语句生成的过程。
8610 GOTO 8550
8620 A6$(A14, A0) = A18$  '将新语句存入数组。
8630 RETURN '返回调用的程序。