博文
[置顶] 用QB做的电子表程序（建议多看几下）(2007-10-06 12:33:00)
摘要：（来源：QB论坛的myworld《一个想法而已....描述不正确表砸我..》）
这个电子表可以调整日期、时间、闹铃，并有整点报时功能。
使用说明：
（1）日期的范围：1500年1月1日到2499年12月31日。
（2）按“1”“2”“3”分别调整日期、时间、闹铃。
（3）按“E”退出。
（4）请在输入程序时按Alt+Enter把QB环境调整为全屏，不然在闹铃的时候发出的声音有问题。
源代码：
DECLARE SUB printdat ()DECLARE SUB printtim ()DECLARE SUB printcase ()DECLARE SUB setdat ()DECLARE SUB settim ()DECLARE SUB setbell ()DECLARE SUB printbell ()CLSDIM SHARED dat$, tim$, bell$dat$ = DATE$: tim$ = TIME$: bell$ = "10:30:00"DO CALL printdat CALL printtim CALL printcase IF RIGHT$(tim$, 5) = "00:00" THEN BEEP IF tim$ = bell$ THEN FOR i = 1 TO 5: BEEP: NEXT i s$ = INKEY$ IF s$ = "1" THEN CALL setdat: DATE$ = dat$ CALL printdat ELSEIF s$ = "2" THEN CALL settim: TIME$ = tim$ CALL printtim ELSEIF s$ = "3" THEN CALL setbell ELSEIF LCASE$(s$) = "e" THEN END END IF dat$......
[置顶] 抄作业（超级性推荐的游戏）(2007-09-01 14:50:00)
摘要：我最近发了一个“抄作业”游戏，
地址：http://www.programfan.com/club/post-248789.html......
[置顶] 希望有多一点人来我这里(2007-05-16 20:47:00)
摘要：希望你们所有访问的人都来我这里。
（注意：
评论主要是在QB、PASCAL的题目以及对于我的答案的看法，不许有其它论坛的东西）......
期末考试前的魔鬼训练（随便写的）(2008-01-24 21:43:00)
摘要： 前天刚考完期末考试。个人感觉还好又还不好，反正结果到30号拿成绩单时再说。
六年级的期末考试和其它年级的感觉不一样。为什么说不一样，就是因为其它年级我们都认为“布置的作业越少越好”，可是六年级以后，由于谁都想在考试考好一点，虽然对于某些人来说“295”只是个可望而不可及的目标，但是不拿个“295”又怎么办呢？所以，我们的想法变了，变得跟以前差一百倍了，谁都希望“布置的作业越多越好了”。甚至像我这样恨不得把“295”摘下来的人，还会自己给自己加作业。以前要是谁干了这种事，别人肯定说他傻瓜，可现在不给自己加作业的人才是傻瓜。我在考试前也做了不少自己布置的作业。
更重要的是，这个学期老师还干了一件以前从来没干过的事，那就是把《寒假作业》提前发下来了。他们说这也是复习资料。我也做了一点。
模拟考试也是常事。考试前一个星期，语文、数学各模拟了3次，其中有一次还是在双休日补课时考的。考试前一天，老师还给我们提出了可怕的要求，并且还说了让人听了就怕的一些惩罚措施——语文老师是抄1--10课（每一篇基本都至少500字）5遍，数学老师是做书上最难的5个练习，每个做10遍……
现在终于考完了，魔鬼练习也结束了。......
关于骑士周游问题（QB）(2007-08-29 14:56:00)
摘要：（真没想到飞燕又来QB了。）
这段时间，不管QB还是PASCAL，这个骑士周游问题都有很高的知名度，看来不得不宣传一下了。
骑士的周游问题有2种类型：
（1）给出一张M*N的棋盘，马在左下角，要求只许往右跳，跳到右上角。
（2）给出一张N*N的棋盘，马在左上角，对马的走向不加限制，要求跳完所有格子并不重复。
分析：
（程序段中[ ]扩起表示（1）形式的语句，{}扩起表示（2）形式的语句）
这道题就是回朔的问题。
（对于（1）形式：
马有4种跳法，分别是(2，1)(1，2)(-1，2)(-2，1);
对于（2）形式：
马有8种跳法，分别是(2，1)(1，2)(2，-1)(1，-2)(-1，2)(-2，1)(-1，-2)(-2，-1);）
i是跳法的编号。
每次循环执行：{[i=i+1]}(试探下一种跳法)
试探跳法i：{[x=x(p)+v(i,1):y=y(p)+v(i,2)]}
接着判断这个(x，y)的位置是否合法，对于形式（1），只要判断是否出界，对于形式（2），不仅要判断是否出界，还要判断这个位置是否走过。如果合法，则前进：
{[p=p+1:s(p)=i:x(p)=x:y(p)=y]}{:a(x,y)=2:st(x,y)=p}
如果i不合法，后退：
{[i=s(p)]}
{IF p>0 THEN a(x,y)=0:st(x,y)=0}
{[p=p-1]}
结束循环的条件：p=0或者到达终点：
[x=1 AND y=N]
{p=n*n}
如果P=0则无解，否则输出路线。......
关于 质数判断 我有主张（QB）(2007-08-23 14:36:00)
摘要：这段时间 天山雪莲 来凑热闹了。
我最近写了个7行秒杀15位质数的QB程序（加上CLS、END一共9行），我找到了一个15位的超级质数，它是：
543959439594359
你们是不是要看这个程序？在这里。......
制造纸牌的QB程序(2007-08-11 21:38:00)
摘要：地址：
http://www.programfan.com/club/post-243794.html......
记忆测试之最整人版（记忆测试）(2007-07-13 21:53:00)
摘要：我用QB做了一个记忆测试：
这是一个记忆测试的程序。你刚开始可以选择难度0-F，0最简单，F最难。选定后，系统会根据难度不同出不同长度的数字和大写英文字母（只有A-F）的组合，并且是不同的颜色。每一组测试数据可以记30秒的时间，30秒之后会问你，这个时候你输入的不是刚才的数字和字母，而是这些数字和字母的颜色号（按QB的颜色号，大于9的用16进制中的大写字母），按顺序。每答对一组得10分，总共10组，满分100分。这也有一些游戏的成分，不过特别整人。先从最简单的练起，最后如果你在F难度里得到100分就可以参加全世界的记忆比赛了！！
相关程序：这里。......