回 帖 发 新 帖 刷新版面

主题:祝大家中秋快乐!

祝大家中秋快乐,编程水平越来越高!

回复列表 (共6个回复)

沙发

小强,送点分给哥们吧!俺叫冰冻小企鹅。

板凳


[em4][em4][em4][em4][em4][em4][em4][em4][em4][em4][em4][em4][em4][em4][em4][em4][em4][em4][em4][em4][em4][em4][em5][em5][em5][em5][em5][em5][em5][em5][em5][em5][em5][em5][em5][em5][em5][em5][em5][em5][em5][em5][em5][em5][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em7][em7][em7][em7][em7][em7][em7][em7][em7][em7][em7][em7][em7][em7][em7][em7][em7][em7][em7]

3 楼

分不能给
第一这个帖子年代太久远
第二不知道你多大了,应该没有我大,你的称呼很不礼貌.
第三不知道你编程水平如何,有没有资格得到这个分.
这样吧,你用QB编一个旋转的正方体,这是我刚接触QBASIC没多久秋水夕阳给我出的一道题,如果你编出来了我送你30分,如果编不出来就算了

4 楼

强强,对不起,我太失礼了,其实,我只是QB初学者,还不懂太多,请你教我怎么做吧!

5 楼

cls
One$ = "BR30 BU25 C1 R54 U45 L54 D45 BE20 P1,1    G20 C2 G20"
Two$ = "R54 E20 L54 BD5 P2,2 U5 C4 G20 U45 E20 D45 BL5 P4,4"
Plot$ = One$ + Two$
APage% = 1
VPage% = 0
Angle% = 0
DO
  SCREEN 7, , APage%, VPage%
  CLS 1
  DRAW "TA" + STR$(Angle%) + Plot$
  Angle% = (Angle% + 15) MOD 360
  SWAP APage%, VPage%
  SOUND 0, 1 / 2
LOOP WHILE INKEY$ = ""
END

6 楼

5楼抄袭我的!!!!!

我来回复

您尚未登录,请登录后再回复。点此登录或注册