高校问答苏有朋2002长城演唱会:QBASIC 初学者求教!!!!
来源：百度文库 编辑：高校问答 时间：2024/05/03 10:32:26
一个小程序:
FOR A = 1 TO 20
FOR B = 1 TO A
PRINT "*"；
NEXT B
PRINT
NEXT A
END
按F5以后，屏幕上打印出来的效果：
*
**
***
****
*****
******
*******
********
*********
**********
现在我想做成这样：
* *
** **
*** ***
**** ****
***** *****
****** ******
******* *******
******** ********
********* *********
********************
请问该怎么改，谢谢！！
补充1
其中的:
FOR B = 1 TO A
这句怎么理解?
补充2
如果要变成以下样式,该如何改?
**********
*********
********
*******
******
*****
****
***
**
*
FOR A = 1 TO 20
FOR B = 1 TO A
PRINT "*"；
NEXT B
NEXT A
END
按F5以后，屏幕上打印出来的效果：
*
**
***
****
*****
******
*******
********
*********
**********
现在我想做成这样：
* *
** **
*** ***
**** ****
***** *****
****** ******
******* *******
******** ********
********* *********
********************
请问该怎么改，谢谢！！
补充1
其中的:
FOR B = 1 TO A
这句怎么理解?
补充2
如果要变成以下样式,该如何改?
**********
*********
********
*******
******
*****
****
***
**
*
当A=1 的时候，B=1
当A=2 的时候，B=1，2
当A=3的时候，B=1，2，3
.......
DIM A AS STRING，I AS BYTE
A=“************”
I= 1 TO 10
PRINT MID（A，1，11-I）
NEXT I
For A = 1 To 20
C = ""
For B = 1 To A
C = C & "*"
Next B
Print C; " "; C
Next A