博文
[置顶] 用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......
关于骑士周游问题（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分就可以参加全世界的记忆比赛了！！
相关程序：这里。......
五子棋判断的函数(2007-07-13 21:51:00)
摘要：QBasic上面有一个问题说做一个判断五子棋是否连成五子了的函数。
相关程序请见这里。......