请问这个是什么语言？

singcheng_koh

请问有人知道这是什么码吗？

  DIM sa(10), sp(10), dp(10), F(10), m(10), strs(10), ece(10)
  DIM Mo(30), ect(10), Ec(50), fs(10), ecp(10), fsp(10), ep(10), fo(10)
  DIM t(100), C(100), dep(100), Phi(100), mom(100), fst(100), fspp(100)
  DIM ffst(100), eect(100)
  det = 0
  ppp = 0
  coun = 0
  PRINT "  This Program is written to generate the moment **"
5 PRINT " "
  ann = 0
  counter = 0
  INPUT "save data as file no1 to 10)";h
  IF h = 1 GOTO 7
  IF h = 2 GOTO 8
  IF h = 3 GOTO 9
  IF h = 4 GOTO 10
  IF h = 5 GOTO 11
  IF h = 6 GOTO 12
  IF h = 7 GOTO 13
  IF h = 8 GOTO 14
  IF h = 9 GOTO 15
  IF h = 10 GOTO 16
  PRINT "<choose from 1 - 10 >"
  GOTO 5
7 OPEN "A:lbeam1" FOR OUTPUT AS #1
  GOTO 40
8 OPEN "A:lbeam2" FOR OUTPUT AS #2
  GOTO 40
9 OPEN "A:lbeam3" FOR OUTPUT AS #3
  GOTO 40

200 INPUT "How many layer of prestressing tendon"; m
    PRINT "cross-sectional area of tendon; distance from top of beam"
    sp = 0
    FOR t = 1 TO m
        PRINT "Layer "; t
        INPUT sp(t), dp(t)
        IF dp(t) > b GOTO 200
        sp = sp(t) + sp
    NEXT t
    INPUT "stressing force of tendon, fpe (MPa)"; fpe
    IF ans = 3 GOTO 230

   LPRINT " "
   LPRINT USING "Gross area of beam (mm^2) = ##############.##"; Ag
   LPRINT USING "centroid of beam from top (mm) = #####.##"; dp
   LPRINT USING "Moment of inertia of beam (mm^4) = ##############.##"; Ig

     IF yy$ = "Y" GOTO 3800
3150 REM ** properties of rectangular beam **

     CLOSE #h
     PRINT "1: continue"
     PRINT "2: end program"
     INPUT poi
     IF poi = 1 GOTO 5
     IF poi = 2 GOTO 4000
4000 STOP:

谢谢

meemee

很像basic的program。。。但不知道是哪个版本的，可能可以用qbasic来开吧？。。。但，不是visual basic。。。

singcheng_koh

应该不是qbasic因为qbasic有#define的。。。
各位高手救命啊！

wuichia

肯定是basic但是不肯定是那个版本。
像是qbasic....

max^^

这个应该是BASIC来的。。看看下面这个

http://www.geocities.com/SiliconValley/2072/basic.htm

象basic,不过我觉得是vb

johe07

既然也不是什么qbasic...我猜是最原始的Basic吧？

太平洋

qbasic 没 #define 不是也行得通吗？
那些都好像是qbasic 的source code

singcheng_koh

谢谢各位，我去试试看