你应该回家收麦子了----不然蝗虫会把它吃光的---请注意你也不是高手哦！！！你是刚学了QB这个基础不是吗？人外有人啊！！！！！！！！！！！！11

今天是４月９号

希望你能被虫子咬!

小心被咬得一身苞

一楼你是说MOZ不是高手吗？？呵呵呵呵，年轻人太浮燥

咬得一身包可不好呦,咬得都不是人样了才是最好的。哈哈哈......，捶胸大笑！！！！！！！！！！

2007年4月22日

自己查日历去!

CLS
PRINT DATE$
END

下面是一个日历程序：输入年份y，输出第y年从1月到12月之间的日历，每输出一个月，按任何键继续。
DECLARE SUB calendar (y!)
DECLARE FUNCTION k! (a!, b!)
DATA January,February,March,April,May,June
DATA July,August,September,October,November,December
CLS
INPUT y
CALL calendar(y)
END

SUB calendar (y)
DIM a$(12)
FOR i = 1 TO 12: READ a$(i): NEXT i
x = y - 1
s = x * 365 + x \ 4 - x \ 100 + x \ 400
s = (s + 1) MOD 7
IF k(y, 4) AND NOT k(y, 100) OR k(y, 400) THEN flag = 1 ELSE flag = 0
CLS
FOR i = 1 TO 12
    PRINT "Year:"; y
    PRINT a$(i)
    SELECT CASE i
    CASE 1, 3, 5, 7, 8, 10, 12: d = 31
    CASE 4, 6, 9, 11: d = 30
    CASE 2: IF flag THEN d = 29 ELSE d = 28
    END SELECT
    PRINT " SUN MON TUE WED THU FRI SAT"
    PRINT TAB(s * 4 + 1);
    PRINT USING "####"; 1;
    IF s = 6 THEN s = -1: PRINT
    FOR j = 2 TO d
        s = s + 1
        PRINT USING "####"; j;
        IF s = 6 THEN s = -1: PRINT
    NEXT j
    d$ = INPUT$(1)
    CLS
    s = s + 1
NEXT i
END SUB

FUNCTION k (a, b)
IF a MOD b = 0 THEN k = 1 ELSE k = 0
END FUNCTION

比如输入2007，马上给出来2007年的日历，而且这把一些问题比如某天星期几的问题也解决了。