For i= 1 to 5 1

kk(i)=0

then

mm=3

For i= 1 to mm+ 1

For j= 1 to mm+ 1

For k= 1 to mm+ 1

For m= 1 to mm+ 1

For n= 1 to mm+ 1

If it is not (i=j, i=k, i=m, i=n), then

nn=i+j+k+m+n-5

kk(nn+ 1)= kk(nn+ 1)+ 1

y(nn+ 1，kk(nn+ 1))= CStr(nn)+" = "+CStr(I- 1)+"+CStr(j- 1)+"+CStr(k- 1)+"+CStr(m- 1)+"+"+CStr(n- 1)

If ... it will be over.

then

then

then

then

then

For i= 1 to mm*5

For j= 1 to kk(i)

Response. Write ("The result is" +y (i, j)+"-"+CSTR (j)+"-* * *"+CSTR (KK (i))+").

then

then

Because the data is too large, the buffer of my machine is not enough. Adjust to 1, 2, 3. If you want to calculate 1, 2, 3, 4, 5, 6, 7, 8, 9, please set mm to 9.