Article View: cn.bbs.comp.lang.visual-basic
Article #20905������QBASIC�ĸ����𣿣� (ת��)
From: ���еij�ŵ
Date: Thu, 24 Jul 2003 04:10
Date: Thu, 24 Jul 2003 04:10
30 lines
1455 bytes
1455 bytes
�� ��������ת���� Programming ������ �� ������: promisewind (���еij�ŵ), ����: Programming �� ��: ������QBASIC�ĸ����𣿣� ����վ: BBS ˮľ�廪վ (Thu Jul 24 08:48:55 2003), ת�� ��æ��������ʲô��˼���� WHILE u<=4 IF INKEY$="x" THEN GOTO f n=1 a=x0 FOR i=1 TO 130 IF INKEY$="x" THEN GOTO f x(n)=u*a*(1-a) a=x(n) IF n>100 THEN PSET(d*m*100+20,x(n)*200+40),0 n=n+1 NEXT u=u+d m=m+1 WEND f:END лл�ˣ� -- [m[1;31m�� ��Դ:��BBS ˮľ�廪վ smth.org��[FROM: 211.69.206.21][m
Technical Details
Message-ID:
<000000$68m@smth.org>Path:
arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-04!sn-xit-01!sn-xit-09!supernews.com!64.152.100.70.MISMATCH!sjc70.webusenet.com!news.webusenet.com!maily.cic.tsinghua.edu.cn!SMTHShow Full Headers
Complete Article Headers
X-Google-Language: Chinese,GB X-Google-Thread: 109fdd,c0bc592a40d796f1,start X-Google-Attributes: gid109fdd,public X-Google-ArrivalTime: 2003-07-23 21:15:01 PST Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-04!sn-xit-01!sn-xit-09!supernews.com!64.152.100.70.MISMATCH!sjc70.webusenet.com!news.webusenet.com!maily.cic.tsinghua.edu.cn!SMTH From: promisewind@smth.org (���еij�ŵ) Newsgroups: cn.bbs.comp.lang.visual-basic Subject: ������QBASIC�ĸ����𣿣� (ת��) Date: 24 Jul 2003 04:10:34 GMT Organization: BBS ˮľ�廪վ Message-ID: <000000$68m@smth.org> Mime-Version: 1.0 Content-Type: text/plain; charset="gb2312" Content-Transfer-Encoding: 8bit X-Filename: VisualBasic/U/M.1059019833.z0 Lines: 30