计算机网络安全研究协会第一期部分程序源代码¬¬-----------一个计数器程序的编写组稿人：赵飞宇2004.3.18 1，刘杨的计数器（用QB编写）CLSSCREEN 12DIM n0(32), n1(34), n2(34), n3(34), n4(34), n5(34), n6(34), n7(34), n8(32), n9(32)DIM n10(32), n11(32), n12(32), n13(32), n14(32), n15(32)COLOR 15PRINT "1234567890+-*/C="GET (0, 0)-(7, 16), n1GET (8, 0)-(15, 16), n2GET (16, 0)-(23, 16), n3GET (24, 0)-(31, 16), n4GET (32, 0)-(39, 16), n5GET (40, 0)-(47, 16), n6GET (48, 0)-(55, 16), n7GET (56, 0)-(63, 16), n8GET (64, 0)-(71, 16), n9GET (72, 0)-(79, 16), n0GET (80, 0)-(87, 16), n10GET (88, 0)-(95, 16), n11GET (96, 0)-(103, 16), n12GET (104, 0)-(111, 16), n13GET (112, 0)-(119, 16), n14GET (120, 0)-(127, 16), n15LOCATE 1PRINT " "PAINT (0, 0), 1LINE (230, 110)-(430, 350), 0, BFLINE (220, 100)-(420, 340), 7, BFLINE (220, 100)-(420, 340), 15, BLINE (221, 101)-(419, 339), 8, BLINE (225, 110)-(415, 135), 15, BLINE (226, 111)-(414, 134), 8, BLINE (225, 145)-(415, 335), 8, BLINE (226, 146)-(414, 334), 15, BLINE (245, 165)-(275, 195), 15, BLINE (285, 165)-(315, 195), 15, BLINE (325, 165)-(355, 195), 15, BLINE (365, 165)-(395, 195), 15, BLINE (244, 164)-(276, 196), 8, BLINE (284, 164)-(316, 196), 8, BLINE (324, 164)-(356, 196), 8, BLINE (364, 164)-(396, 196), 8, BPUT (255, 170), n1, XORPUT (295, 170), n2, XORPUT (335, 170), n3, XORPUT (375, 170), n10, XORLINE (245, 205)-(275, 235), 15, BLINE (285, 205)-(315, 235), 15, BLINE (325, 205)-(355, 235), 15, BLINE (365, 205)-(395, 235), 15, BLINE (244, 204)-(276, 236), 8, BLINE (284, 204)-(316, 236), 8, BLINE (324, 204)-(356, 236), 8, BLINE (364, 204)-(396, 236), 8, BPUT (255, 210), n4, XORPUT (295, 210), n5, XORPUT (335, 210), n6, XORPUT (375, 210), n11, XORLINE (245, 245)-(275, 275), 15, BLINE (285, 245)-(315, 275), 15, BLINE (325, 245)-(355, 275), 15, BLINE (365, 245)-(395, 275), 15, BLINE (244, 244)-(276, 276), 8, BLINE (284, 244)-(316, 276), 8, BLINE (324, 244)-(356, 276), 8, BLINE (364, 244)-(396, 276), 8, BPUT (255, 250), n7, XORPUT (295, 250), n8, XORPUT (335, 250), n9, XORPUT (375, 250), n12, XORLINE (245, 285)-(275, 315), 15, BLINE (285, 285)-(315, 315), 15, BLINE (325, 285)-(355, 315), 15, BLINE (365, 285)-(395, 315), 15, BLINE (244, 284)-(276, 316), 8, BLINE (284, 284)-(316, 316), 8, BLINE (324, 284)-(356, 316), 8, BLINE (364, 284)-(396, 316), 8, BPUT (255, 290), n0, XORPUT (295, 290), n14, XORPUT (335, 290), n15, XORPUT (375, 290), n13, XORx = 245: y = 165: c = 230DO LINE (x, y)-(x + 30, y + 30), 14, B DO k$ = INKEY$ LOOP WHILE k$ = "" SELECT CASE ASC(RIGHT$(k$, 1)) CASE 27 GOSUB zimu END CASE 107 END CASE 72 IF y > 165 THEN LINE (x, y)-(x + 30, y + 30), 15, B: y = y - 40 CASE 80 IF y < 275 THEN LINE (x, y)-(x + 30, y + 30), 15, B: y = y + 40 CASE 75 IF x > 245 THEN LINE (x, y)-(x + 30, y + 30), 15, B: x = x - 40

CASE 77 IF x < 355 THEN LINE (x, y)-(x + 30, y + 30), 15, B: x = x + 40 CASE 32 LINE (x, y)-(x + 30, y + 30), 8, B FOR i = 0 TO 9999: NEXT LINE (x, y)-(x + 30, y + 30), 14, B IF c < 300 THEN IF x = 245 AND y = 165 THEN s1& = VAL(STR$(s1&) + "1"): c = c + 8: PUT (c, 115), n1, XOR: PLAY "mbt255n10" IF x = 285 AND y = 165 THEN s1& = VAL(STR$(s1&) + "2"): c = c + 8: PUT (c, 115), n2, XOR: PLAY "mbt255n15" IF x = 325 AND y = 165 THEN s1& = VAL(STR$(s1&) + "3"): c = c + 8: PUT (c, 115), n3, XOR: PLAY "mbt255n20" IF x = 245 AND y = 205 THEN s1& = VAL(STR$(s1&) + "4"): c = c + 8: PUT (c, 115), n4, XOR: PLAY "mbt255n25" IF x = 285 AND y = 205 THEN s1& = VAL(STR$(s1&) + "5"): c = c + 8: PUT (c, 115), n5, XOR: PLAY "mbt255n30" IF x = 325 AND y = 205 THEN s1& = VAL(STR$(s1&) + "6"): c = c + 8: PUT (c, 115), n6, XOR: PLAY "mbt255n35" IF x = 245 AND y = 245 THEN s1& = VAL(STR$(s1&) + "7"): c = c + 8: PUT (c, 115), n7, XOR: PLAY "mbt255n40" IF x = 285 AND y = 245 THEN s1& = VAL(STR$(s1&) + "8"): c = c + 8: PUT (c, 115), n8, XOR: PLAY "mbt255n45" IF x = 325 AND y = 245 THEN s1& = VAL(STR$(s1&) + "9"): c = c + 8: PUT (c, 115), n9, XOR: PLAY "mbt255n50" IF x = 245 AND y = 285 THEN s1& = VAL(STR$(s1&) + "0"): c = c + 8: PUT (c, 115), n0, XOR: PLAY "mbt255n55" END IF IF x = 365 AND y = 165 AND f = 0 THEN f = 1: s2& = s1&: s1& = 0: c = 230: LINE (226, 111)-(414, 134), 7, BF IF x = 365 AND y = 205 AND f = 0 THEN f = 2: s2& = s1&: s1& = 0: c = 230: LINE (226, 111)-(414, 134), 7, BF IF x = 365 AND y = 245 AND f = 0 THEN f = 3: s2& = s1&: s1& = 0: c = 230: LINE (226, 111)-(414, 134), 7, BF IF x = 365 AND y = 285 AND f = 0 THEN f = 4: s2& = s1&: s1& = 0: c = 230: LINE (226, 111)-(414, 134), 7, BF IF x = 285 AND y = 285 THEN s1& = 0: s2& = 0: f = 0: c = 230: LINE (226, 111)-(414, 134), 7, BF IF x = 325 AND y = 285 AND f <> 0 THEN GOSUB yunsuan s1& = 0: c = 230 LINE (226, 111)-(414, 134), 7, BF FOR i = 1 TO LEN(STR$(s2&)) IF MID$(STR$(s2&), i, 1) = "0" THEN c = c + 8: PUT (c, 115), n0, XOR IF MID$(STR$(s2&), i, 1) = "1" THEN c = c + 8: PUT (c, 115), n1, XOR IF MID$(STR$(s2&), i, 1) = "2" THEN c = c + 8: PUT (c, 115), n2, XOR IF MID$(STR$(s2&), i, 1) = "3" THEN c = c + 8: PUT (c, 115), n3, XOR IF MID$(STR$(s2&), i, 1) = "4" THEN c = c + 8: PUT (c, 115), n4, XOR IF MID$(STR$(s2&), i, 1) = "5" THEN c = c + 8: PUT (c, 115), n5, XOR IF MID$(STR$(s2&), i, 1) = "6" THEN c = c + 8: PUT (c, 115), n6, XOR IF MID$(STR$(s2&), i, 1) = "7" THEN c = c + 8: PUT (c, 115), n7, XOR IF MID$(STR$(s2&), i, 1) = "8" THEN c = c + 8: PUT (c, 115), n8, XOR IF MID$(STR$(s2&), i, 1) = "9" THEN c = c + 8: PUT (c, 115), n9, XOR NEXT END IF END SELECTLOOPyunsuan: IF s1& <> 0 AND f = 1 THEN s2& = s2& + s1&: f = 0 IF s1& <> 0 AND f = 2 THEN s2& = s2& - s1&: f = 0 IF s1& <> 0 AND f = 3 THEN s2& = s2& * s1&: f = 0

以上是我们协会第一期的程序打印原稿，非常简单，适合处学者，我把它贴了出来，也许对一些人有帮助。其实计算器的编写太简单了，我当时给协会人员下达这个任务的时候就是先让他们学会文字菜单的编写。我们协会的学习方法是由我这个唯一负责人下达任务，然后大家一起去完成，协会从一开始就面向客户，逐步走向商业化，至于程序会从简入繁，做几个例子后就学编程工具。这是我办协会的初衷，虽然现在协会办不下去了（因为他们感觉学程序太难了），我希望有人把我的想法继续下去，帮助更多的人。

以上程序中的人名都是真名，希望大家不要乱贴，程序所有权仍归计算机网络安全研究协会所有。以后我会把我们以前打印过的程序原稿贴出来。希望大家支持，更希望大家帮我把协会继续做下去。

你要觉得公开可能会被侵犯你的版权，就别贴了，你说明一下我帮你把这个也删掉，我先声明：如果因为你的代码贴在这里被别人转贴而引起任何纠纷，本吧及我不承担任何责任！这里是公众场合，这些事情请你自己把握好！！你要觉得不合适继续发表你的代码，在这里回贴说明一下，我立刻删除本主题！

其实也没关系的，我们协会已经名存实亡了，我也只是为了大家好，这也只是我们自己做的，没有任何老师指导，我贴出来的另一个目的也是请高手给些意见。