简单QB问题 在线等

Question

CLS 
FOR i = 0 TO 4 
FOR j = 0 TO 9 
IF j = i OR j = 9 - i THEN 
PRINT ("v");
ELSE PRINT (" ") 
END IF 
print() 
NEXT 
NEXT 
END 

Answer 1

CLS 
FOR i = 0 TO 4 
FOR j = 0 TO 9 
IF j = i OR j = 9 - i THEN 
PRINT ("v") ;
ELSE PRINT (" ") ;
END IF 
NEXT 
print() 
NEXT 
END 

Answer 2

CLS 
FOR i = 0 TO 4 
   FOR j = 0 TO 9 
      IF j = i OR j = 9 - i THEN 
         PRINT ("v") ;
      ELSE 
         PRINT (" ") ;
      END IF 
   NEXT 
   print() 
NEXT 
END 

Answer 3

那样写效率太低了
Dim I as IntegerClsFor I=0 To 4
Print Space$(I)+"v"+Space((4-I)*2)+"v"
Next I

Answer 4

记得QB里面PRINT ""后加分号“；”就不会换行了，后面的输出紧跟前面的
加逗号“，”也不会换行，但后面的输出会隔一段距离
什么都不加会自动换行。另用LOCATE X,Y可以精确定位