胡老大的说法我不太赞同了！毕竟语言的发展也体现了计算机技术的发展，也体现了解决问题的过程

哎~~~语言这个东西呢！就是代码而已嘛！我觉得我也是挺喜欢BASIC的并不是所有的时候都该C类语言和汇编类语言或者PASCAL类语言的天下！BASIC的最大好处就是快速开发快速入门！如果没有BASIC我现在肯定不会喜欢上电脑！给大家看一个东西~~~一个很古老的东西！可以说是我写的第一个“软件”是我小学毕业的那个暑假里用QBASIC写的，后来在初一的时候做了些修改是一个飞机打砖块的程序！我是5年级开始学计算机的当时学的就是GWBASIC和QBASIC由于当时也没人教就是买了本书在学习机上面敲GWBASIC，当然也没什么编程风格可言，那时候根本不知道还有风格一说，后来到了六年级的暑假的时候才在我的一个死党的家里真的玩到了电脑！他是从台湾来的老爸来开广告公司！之后我就开始讨厌我的学习机了！于是我花钱在我家不远的“电脑培训中心”交上机费！不用他们教什么五笔或FOXPRO之类的！我根本对这些东西就没兴趣~~当时我就喜欢BASIC！那个暑假我就猫在了那里面写这个所谓游戏！可以说代表了当时我的最高水平！现在看起来还是蛮有成就感的~~毕竟海南是个文化的沙漠~~呵呵~~~


上下左右控制！空格开枪！按“E”退出！有QBASIC的可言运行来玩玩~~虽然BUG很多！代码也很乱！但是我现在也不愿意去改他！毕竟这个是“文物”了，呵呵~~还是保持原状的好！



SCREEN 12
CLS
LET cc = 14
LET cc1 = 3
LET cc2 = 9
LET cc3 = 6
LET cc4 = 13
LET cc5 = 14
LET cc6 = 11
LET lives = 10
LET mov = -.5
LET xxx1 = 0
LET xx = 0
LET xx1 = -15
LET j = 3
LET ccc = 4
LET l = -3
LET l1 = -2
LET z = 6
LET n = 14
LET c = 4
LET SP = 2
\'LET x1 = 250
\'LET y1 = 380
LET x = 250
LET y = 380
LET HH = 1
LET c1 = 0
GOSUB DRAFIG
DO

LET u = u + add
LET HH = HH + h
LET HH1 = HH1 + h1
LET HH2 = HH2 + h2
LET HH3 = HH3 + h3
LET HH4 = HH4 + h4
LET HH5 = HH5 + h5
aaa = POINT(22 + x1, y1 - 2 - u)
bbb = POINT(38 + x1, y1 - 2 - u)

fff = POINT(x - 1, y - 1)
ggg = POINT(62 + x, y - 1)
ddd = POINT(x - 1, 24 + y)
vvv = POINT(62 + x, 24 + y)

LOCATE 3, 73
PRINT \"Lives:\"
LOCATE 4, 73
PRINT ; lives

LOCATE 6, 73
PRINT \"Score:\"
LOCATE 7, 73
PRINT ; score


IF fff <> 0 OR ggg <> 0 OR ddd <> 0 OR vvv <> 0 THEN
LINE (0 + x, 0 + y)-(61 + x, 23 + y), c1, BF
lives = lives - 1
score = score - 1000
LOCATE 3, 73
PRINT \"Lives:\"
LOCATE 4, 73
PRINT ; lives

LOCATE 6, 73
PRINT \"Score:\"
LOCATE 7, 73
PRINT ; score

x = 250
y = 380
GOSUB DRAFIG
\'GOSUB Figkilled
END IF


LET SouFqc1 = 58
LET SouDly1 = .3

IF aaa = cc1 OR bbb = cc1 THEN
h = mov
LINE (x1, y1 - 1 - u)-(x2, y2 - 3 - u), 0, BF
u=666
SOUND SouFqc1, SouDly1
END IF
IF 38 + HH = 0 THEN LET h = h * -1
IF 12 + HH > 640 THEN LET h = h * -1

IF aaa = cc2 OR bbb = cc2 THEN
h1 = mov
LINE (x1, y1 - 1 - u)-(x2, y2 - 3 - u), 0, BF
u=666
SOUND SouFqc1, SouDly1
END IF
IF 38 + HH1 = 0 THEN LET h1 = h1 * -1
IF 12 + HH1 > 640 THEN LET h1 = h1 * -1

IF aaa = cc3 OR bbb = cc3 THEN
h2 = mov
LINE (x1, y1 - 1 - u)-(x2, y2 - 3 - u), 0, BF
u=666
SOUND SouFqc1, SouDly1
END IF
IF 38 + HH2 = 0 THEN LET h2 = h2 * -1
IF 12 + HH2 > 640 THEN LET h2 = h2 * -1

IF aaa = cc4 OR bbb = cc4 THEN
h3 = mov
LINE (x1, y1 - 1 - u)-(x2, y2 - 3 - u), 0, BF
u=666
SOUND SouFqc1, SouDly1
END IF
IF 38 + HH3 = 0 THEN LET h3 = h3 * -1
IF 12 + HH3 > 640 THEN LET h3 = h3 * -1

IF aaa = cc5 OR bbb = cc5 THEN
h4 = mov
LINE (x1, y1 - 1 - u)-(x2, y2 - 3 - u), 0, BF
u=666
SOUND SouFqc1, SouDly1
END IF
IF 38 + HH4 = 0 THEN LET h4 = h4 * -1
IF 12 + HH4 > 640 THEN LET h4 = h4 * -1

IF aaa = cc6 OR bbb = cc6 THEN
h5 = mov
LINE (x1, y1 - 1 - u)-(x2, y2 - 3 - u), 0, BF
u=666
SOUND SouFqc1, SouDly1
END IF
IF 38 + HH5 = 0 THEN LET h5 = h5 * -1
IF 12 + HH5 > 640 THEN LET h5 = h5 * -1

LINE (x1, y1 - 5 - u)-(x2, y2 - 5 - u), ccc, BF
LINE (x1, y1 - 1 - u)-(x2, y2 - 3 - u), 0, BF

LINE (580, 380)-(600, 400), aaa, BF
LINE (580, 400)-(600, 420), bbb, BF

LINE (5 + xx, 38 + HH)-(95 + xx1, 50 + HH), cc1, BF
LINE (5 + xx, 38 + HH)-(95 + xx1, 50 + HH), 0, B

LINE (100 + xx, 38 + HH1)-(190 + xx1, 50 + HH1), cc2, BF
LINE (100 + xx, 38 + HH1)-(195 + xx1, 50 + HH1), 0, B

LINE (195 + xx, 38 + HH2)-(285 + xx1, 50 + HH2), cc3, BF
LINE (195 + xx, 38 + HH2)-(285 + xx1, 50 + HH2), 0, B

LINE (290 + xx, 38 + HH3)-(380 + xx1, 50 + HH3), cc4, BF
LINE (290 + xx, 38 + HH3)-(380 + xx1, 50 + HH3), 0, B

LINE (385 + xx, 38 + HH4)-(475 + xx1, 50 + HH4), cc5, BF
LINE (385 + xx, 38 + HH4)-(475 + xx1, 50 + HH4), 0, B

LINE (480 + xx, 38 + HH5)-(570 + xx1, 50 + HH5), cc6, BF
LINE (480 + xx, 38 + HH5)-(570 + xx1, 50 + HH5), 0, B



LINE (0, 0)-(639, 479), 10, B
LINE (0, 0)-(560, 479), 10, B
LET k$ = INKEY$

DO WHILE k$ = \" \"
LINE (x1, y1 - 5 - u)-(x2, y2 - 5 - u), 0, BF
LET u = 0
LET x1 = 23 + x
LET x2 = 37 + x
LET y1 = 0 + y
LET y2 = 4 + y
LET add = 2
LET k$ = \"\"
SOUND 3637, .9
LOOP
DO WHILE u > 666
LINE (x1, y1 - 5 - u)-(x2, y2 - 4 - u), 0, BF
LET x1 = 666
LET x2 = 666
LET y1 = 666
LET y2 = 666
LET u = 0
LET add = 0
LOOP

DO WHILE k$ = CHR$(0) + \"H\"
SP1 = SP1 + SP
SP2 = SP
SP3 = SP
SP4 = SP
LET kkk$ = k$
LET k$ = \"\"
LINE (0 + x, 0 + y)-(61 + x, 23 + y), c1, BF
LET y = y - SP1
GOSUB DRAFIG
LOOP
DO WHILE k$ = CHR$(0) + \"P\"
SP1 = SP
SP2 = SP2 + SP
SP3 = SP
SP4 = SP
LET kkk$ = k$
LET k$ = \"\"
LINE (0 + x, 0 + y)-(61 + x, 23 + y), c1, BF
LET y = y + SP2
 GOSUB DRAFIG
LOOP
DO WHILE k$ = CHR$(0) + \"K\"
SP1 = SP
SP2 = SP
SP3 = SP3 + SP
SP4 = SP
LET kkk$ = k$
LET k$ = \"\"
LINE (0 + x, 0 + y)-(61 + x, 23 + y), c1, BF
x = x - SP3
GOSUB DRAFIG
LOOP
DO WHILE k$ = CHR$(0) + \"M\"
SP1 = SP
SP2 = SP
SP3 = SP
SP4 = SP4 + SP
LET k$ = \"\"
LINE (0 + x, 0 + y)-(61 + x, 23 + y), c1, BF
LET x = x + SP4
LET kkk$ = k$
 GOSUB DRAFIG
LOOP
DO WHILE LCASE$(k$) = \"e\"
k$ = \"\"
END
LOOP

LOOP
DRAFIG:
IF 0 + x <= 0 THEN LET x = 0
IF 0 + y <= 0 THEN LET y = 0
IF 61 + x >= 559 THEN LET x = 559 - 61
IF 23 + y >= 479 THEN LET y = 479 - 23
LINE (1 + x, 13 + y)-(30 + x, 1 + y), j
LINE (30 + x, 1 + y)-(60 + x, 13 + y), j
LINE (60 + x, 18 + y)-(40 + x, 14 + y), j
LINE (40 + x, 14 + y)-(41 + x, 5 + y), j
LINE (1 + x, 18 + y)-(20 + x, 14 + y), j
LINE (20 + x, 14 + y)-(18 + x, 5 + y), j
LINE (40 + x, 14 + y)-(40 + x, 18 + y), j
LINE (20 + x, 14 + y)-(20 + x, 18 + y), j
LINE (40 + x, 18 + y)-(20 + x, 18 + y), j
LINE (30 + x, 8 + y)-(30 + x, 18 + y), j
LINE (30 + x, 8 + y)-(27 + x, 15 + y), j
LINE (30 + x, 8 + y)-(33 + x, 15 + y), j
LINE (26 + x, 3 + y)-(27 + x, 6 + y), 2, B
LINE (34 + x, 3 + y)-(33 + x, 6 + y), 2, B
LINE (60 + x, 13 + y)-(59 + x, 18 + y), 14, B
LINE (1 + x, 13 + y)-(2 + x, 18 + y), 14, B
LET SO = INT(RND * 100)

LINE (25 + x, 16 + y)-(25 + x, 19 + y), c
LINE (26 + x, 16 + y)-(26 + x, 21 + y), c
LINE (27 + x, 16 + y)-(27 + x, 23 + y), c
LINE (28 + x, 16 + y)-(28 + x, 21 + y), c
LINE (29 + x, 16 + y)-(29 + x, 19 + y), c
LINE (31 + x, 16 + y)-(31 + x, 19 + y), c
LINE (32 + x, 16 + y)-(32 + x, 21 + y), c
LINE (33 + x, 16 + y)-(33 + x, 23 + y), c
LINE (34 + x, 16 + y)-(34 + x, 21 + y), c
LINE (35 + x, 16 + y)-(35 + x, 19 + y), c

LINE (31 + x, 16 + y)-(31 + x, 19 + y + l1), z
LINE (32 + x, 16 + y)-(32 + x, 21 + y + l1), z
LINE (33 + x, 16 + y)-(33 + x, 23 + y + l1), z
LINE (34 + x, 16 + y)-(34 + x, 21 + y + l1), z
LINE (35 + x, 16 + y)-(35 + x, 19 + y + l1), z
LINE (25 + x, 16 + y)-(25 + x, 19 + y + l1), z
LINE (26 + x, 16 + y)-(26 + x, 21 + y + l1), z
LINE (27 + x, 16 + y)-(27 + x, 23 + y + l1), z
LINE (28 + x, 16 + y)-(28 + x, 21 + y + l1), z
LINE (29 + x, 16 + y)-(29 + x, 19 + y + l1), z


LINE (25 + x, 16 + y)-(25 + x, 19 + y + l), n
LINE (26 + x, 16 + y)-(26 + x, 21 + y + l), n
LINE (27 + x, 16 + y)-(27 + x, 23 + y + l), n
LINE (28 + x, 16 + y)-(28 + x, 21 + y + l), n
LINE (29 + x, 16 + y)-(29 + x, 19 + y + l), n
LINE (31 + x, 16 + y)-(31 + x, 19 + y + l), n
LINE (32 + x, 16 + y)-(32 + x, 21 + y + l), n
LINE (33 + x, 16 + y)-(33 + x, 23 + y + l), n
LINE (34 + x, 16 + y)-(34 + x, 21 + y + l), n
LINE (35 + x, 16 + y)-(35 + x, 19 + y + l), n

SOUND SO * 37, .1
RETURN

DEFINT A-Z
SUB DRAFIG (x, y)
LINE (1 + x, 10 + y)-(30 + x, 1 + y)
LINE (30 + x, 1 + y)-(60 + x, 10 + y)
LINE (60 + x, 10 + y)-(60 + x, 18 + y)
LINE (60 + x, 18 + y)-(40 + x, 14 + y)
LINE (40 + x, 14 + y)-(41 + x, 3 + y)
LINE (1 + x, 10 + y)-(1 + x, 18 + y)
LINE (1 + x, 18 + y)-(20 + x, 14 + y)
LINE (20 + x, 14 + y)-(18 + x, 3 + y)
LINE (40 + x, 14 + y)-(40 + x, 18 + y)
LINE (20 + x, 14 + y)-(20 + x, 18 + y)
LINE (40 + x, 18 + y)-(20 + x, 18 + y)
LINE (30 + x, 8 + y)-(30 + x, 18 + y)
LINE (27 + x, 15 + y)-(27 + x, 20 + y)
LINE (33 + x, 15 + y)-(33 + x, 20 + y)
LINE (30 + x, 8 + y)-(27 + x, 15 + y)
LINE (30 + x, 8 + y)-(33 + x, 15 + y)
LINE (26 + x, 3 + y)-(26 + x, 6 + y)
LINE (34 + x, 3 + y)-(34 + x, 6 + y)

END SUB

胡老大的说法我不太赞同了！毕竟语言的发展也体现了计算机技术的发展，也体现了解决问题的过程

照你说的BASIC该消失咯？？？别忘了80%的WINDOWS程序都是VB写出来的！毕竟学VB的人多的和牛毛一样！易学易用和快速开发就是BASIC的最大优点！！打个比方说吧！开发的病毒花猫肯定跳出来说汇编！老鼠跳出来说C/CPP也可以！但撇开了病毒咱们说点实际的某日某人到了花猫公司要花猫在三天之内写一个数据库的人机接口界面出来！要求很简单！就是一个表格一个搜索和一个索引！不超过3个窗口！那么这个时候老鼠跳了出来~~汇编？？？本老鼠用CPP！！只要两天就给你写出来！项目给我做吧~~你说这个时候如果老胡跳出来~~哎~~用什么CPP啊~~老子用VB！马上写出来给你！如果需要可以马上手把手教会你写！不信？？我初2开始学VB！只用了一个星期！不是吹的！如果现在谁要学VB的话我敢说只要有初二以上英文基础的非电脑盲！我一天内教会他怎么VB写简单的软件！当然数据库除外~~我到现在还不会这个玩意~~

[quote]胡老大的说法我不太赞同了！毕竟语言的发展也体现了计算机技术的发展，也体现了解决问题的过程

照你说的BASIC该消失咯？？？别忘了80%的WINDOWS程序都是VB写出来的！毕竟学VB的人多的和牛毛一样！易学易用和快速开发就是BASIC的最大优点！！打个比方说吧！开发的病毒花猫肯定跳出来说汇编！老鼠跳出来说C/CPP也可以！但撇开了病毒咱们说点实际的某日某人到了花猫公司要花猫在三天之内写一个数据库的人机接口界面出来！要求很简单！就是一个表格一个搜索和一个索引！不超过3个窗口！那么这个时候老鼠跳了出来~~汇编？？？本老鼠用CPP！！只要两天就给你写出来！项目给我做吧~~你说这个时候如果老胡跳出来~~哎~~用什么CPP啊~~老子用VB！马上写出来给你！如果需要可以马上手把手教会你写！不信？？我初2开始学VB！只用了一个星期！不是吹的！如果现在谁要学VB的话我敢说只要有初二以上英文基础的非电脑盲！我一天内教会他怎么VB写简单的软件！当然数据库除外~~我到现在还不会这个玩意~~ [/quote]
施主，如果做数据库（其实贫僧一点都不懂），贫僧可以用Delphi，即使我不懂数据库，也能做出来“个表格一个搜索和一个索引”。
另外，最早贫僧学的就是GWBASIC，编了一些有趣的程序，挺好玩，但用处不大。
Windows 80%是VB写的？？？这种谣言你也信？？？

X施主，你上小学就玩电脑了？
贫僧直到高中才知道电脑长什么样
真正能大量玩电脑还是大学毕业以后工作的时候 :( :( :(

[quote][quote]胡老大的说法我不太赞同了！毕竟语言的发展也体现了计算机技术的发展，也体现了解决问题的过程

照你说的BASIC该消失咯？？？别忘了80%的WINDOWS程序都是VB写出来的！毕竟学VB的人多的和牛毛一样！易学易用和快速开发就是BASIC的最大优点！！打个比方说吧！开发的病毒花猫肯定跳出来说汇编！老鼠跳出来说C/CPP也可以！但撇开了病毒咱们说点实际的某日某人到了花猫公司要花猫在三天之内写一个数据库的人机接口界面出来！要求很简单！就是一个表格一个搜索和一个索引！不超过3个窗口！那么这个时候老鼠跳了出来~~汇编？？？本老鼠用CPP！！只要两天就给你写出来！项目给我做吧~~你说这个时候如果老胡跳出来~~哎~~用什么CPP啊~~老子用VB！马上写出来给你！如果需要可以马上手把手教会你写！不信？？我初2开始学VB！只用了一个星期！不是吹的！如果现在谁要学VB的话我敢说只要有初二以上英文基础的非电脑盲！我一天内教会他怎么VB写简单的软件！当然数据库除外~~我到现在还不会这个玩意~~ [/quote]
施主，如果做数据库（其实贫僧一点都不懂），贫僧可以用Delphi，即使我不懂数据库，也能做出来“个表格一个搜索和一个索引”。
另外，最早贫僧学的就是GWBASIC，编了一些有趣的程序，挺好玩，但用处不大。
Windows 80%是VB写的？？？这种谣言你也信？？？ [/quote]

他说的是windows程序80%是vb写的，这个数字并不会太离谱。
不是说的windows本身。

[quote]现在我写程序的时间里面，大约有50%在用vb和pb,其中大部分时间
在访问oracle数据库，比较起来，我更喜欢vb，也更熟悉一些。


 

施主，老衲对VB和PB都不喜欢，也不懂，打死老衲都不用的。
我面试将要去的公司的时候，经理问我反对用Delphi吗，我说不反对，虽然我对Delphi不是很熟。但如果他问我是否反对用VB，也许我就不会去那家公司了 :( :( :( [/quote]

这就是手中无剑，心中无剑的境界。

施主，老衲对VB和PB都不喜欢，也不懂，打死老衲都不用的。
我面试将要去的公司的时候，经理问我反对用Delphi吗，我说不反对，虽然我对Delphi不是很熟。但如果他问我是否反对用VB，也许我就不会去那家公司了 :( :( :(

这就是手中无剑，心中无剑的境界。 [/quote]
？？？
太深奥，不懂
施主能否为老衲解释的明白些？

btw，原来X说的是Windows程序，不是Windows本身，老衲看错了