jiushitaicai

我也不知道MOZ的作用本为什么这么乱?譬如分解质因数可以很简单地搞定的:
CLS
INPUT n: PRINT n; "="; : i = 1: tempn = n
DO WHILE tempn > i
  i = i + 1
  IF tempn MOD i = 0 THEN
    PRINT i; : tempn = tempn \ i: i = 1
    IF tempn > 1 THEN PRINT "*";
  END IF
LOOP
END

嗯,以后你会明白的.

 moz的作业本太乱了.............
............

第一感:难
第二感:好
第三感:乱
第四感:多
第五感:易
第六感:逃啊..........
[em10][em10][em10][em18][em18][em18][em20][em20][em20][em17][em17][em17]

引用53楼。
回答：2005年江苏省＂信息与未来＂小学生夏令营活动
计算机操作项目之一：程序设计试题
1，    【回文数个数】
如果一个正整数从左向右读与从右向左读均是一样，则称其为回文数。例如3、121、3223、12021都是回文数。
输入：任意给定的一个正整数n（0<n<=100000）
输出：一个正整数,表示[1，n]之间的回文数的个数。
【输入格式】键盘输入 ,无须合法性检验.
【输出格式】输出到屏幕 。
【样例】
输入                              输出
 325                             41
 
2、   【对应关系】
给定两个长度相同的字符串A$和B$，如果A$中的一字符与B$中的一字符出现次数相同，则说此二字符是对应的；如果A$中所有字符分别对应于B$中所有字符，则说二字符串之间存在一个对应关系；要求算出两串之间存在的所有对应关系的个数(若无对应关系,则输出为0)。
例如： A$=”abac”,  B$=”3132”,那么它们之间存在2个对应关系, 分别是:
a    3        a    3
b    1        b    2
c    2        c    1
【输入格式】键盘输入。只有两行,每行给出一个字符串,每个字符串全部由小写字母或数字组成,串的长度不超过20,而且串中最多出现10种不同字符。不必对输入做正确性检查。
【输出格式】一个正整数,表示输入字符串之间存在对应关系的个数。
【样例】
输入:                      输出
abad                     2
1231

3   【进制数】
给出一个正整数n（1≤N≤1023），将其化为10位二进制数，然后计算出二进制数中的“1”的个数，若1的个数为奇数，则在最高位前加上一个1，否则加上一个0，最后将在此基础上形成的11位二进制数，用3个十六进制数输出。
 例  如：输入 23   化为二进制数为： 0000010111
         因为1的个数是4个，在最高位前加0，得到：00000010111
          输出：0H，1H，7H
 再例如：输入 453   化为二进制数为： 0111000101
                因为1的个数是奇数，所以在最高位前加1，得到：10111000101
          输出：5H，CH，5H        
   【输入格式】键盘输入。一个正整数n。
【输出格式】根据形成的11位二进制数，用3个十六进制数输出。
【样例】
输入:                      输出
       453                      5H，CH，5H

4    【走迷宫】
       小明与许多同学一起参加了今年的“信息与未来”小学生夏令营活动。夏令营的组织者设计安排了许多有趣的活动，走迷宫就是其中的一项。
       迷宫由N*N个方格组成，每个方格均被组织者事先标上了“0”或“1”（左上角第一个方格和右下角最后一个方格一定是“0”）。当你进入左上角的第一个方格中时，看到相邻的方格是“0”时则可以进入，而如果是“1”时则表示此路不通。
      小明被告之：从迷宫的左上角第一个方格的入口处准备进入时，你可得到一个记有N*N分值的记分表，每经过一个标有“0”的方格，记分表将自动扣去1分，当走到右下角最后一个方格的出口处时，将显示你手中的记分表剩余的分值。
      夏令营的组织者将只奖励所有参加此项活动中，记分表剩余的分值最多的营员。
【输入格式】你应当从指定的文件中读取相关数据。
              每个文件的第一行是一个整数N（3≤N≤40），接下来有N行，每行均有N个由0 和1组成的数据
【输出格式】输出至屏幕，一个整数（记分表剩余的分值）
【样例】
    输入                          输出
       4                          9
       0011
       1000
       0001
       1000

moz，你太强了，一个帖子留了3年。

这么久了才 发现这里有有个作业本啊！

来看看，觉得蛮不错的，呵`````

有空我这个新手也来做下，有不懂的地方请指教哦！

星期几的问题是让电脑自动显示出今天星期几么？？

一个用"*"号列印的倒置三角形点编写好?? 
                      *******
                       *****
                        ***
                         *

DIM CNT AS INTEGER
DIM I AS INTEGER
INPUT "INPUT"; CNT
FOR I = 1 TO CNT
        PRINT STRING$(I, " "); STRING$((CNT - I) * 2 + 1, "*")
NEXT I