UC知道vf高手帮忙完成下面几道题
来源：百度知道 编辑：UC知道 时间：2024/07/02 14:04:18
1、打印图形：用for循环做
（1）第一行有一个图形，第二行有三个。 依次类推．．．，编一个程序，使能打印出这个图形来
*
* * *
* * * * *
* * * * * * *
* * * * * * * * *
* * * * * * *
* * * * *
* * *
*
(2)
@ @ @ @
@ @ @ @
@ @ @ @
@ @ @ @
(3)* * * * *
* * * *
* * *
* *
*
(4)12345
1234
123
12
1
第一个图像就是两个正三角形形状的因为输入有误变成这个样子了。。。。
（1）第一行有一个图形，第二行有三个。 依次类推．．．，编一个程序，使能打印出这个图形来
*
* * *
* * * * *
* * * * * * *
* * * * * * * * *
* * * * * * *
* * * * *
* * *
*
(2)
@ @ @ @
@ @ @ @
@ @ @ @
@ @ @ @
(3)* * * * *
* * * *
* * *
* *
*
(4)12345
1234
123
12
1
第一个图像就是两个正三角形形状的因为输入有误变成这个样子了。。。。
完整程序代码如下。四个题目一个程序，你也可以分开，记得在每个程序前面加上第行的set talk off 。上机调试通过，我是粘贴的代码，希望你也粘贴，不要自己打错了说我的答案不对：）
set talk off
?'(1)不理解你的正三角形，就照你的做的'
i=1
do while i<=5
j=i*2-1
? replicate('*',j)
i=i+1
enddo
do while i>=1
j=i*2-1
? replicate('*',j)
i=i-1
enddo
?'(2)'
i=1
do while i<=4
? replicate('@',4)
i=i+1
enddo
?'(3)'
i=5
do while i>=1
? replicate('*',i)
i=i-1
enddo
?'(4)'
i=5
s='12345'
do while i>=1
? left(s,i)
i=i-1
enddo
set talk off
CLEAR
* （1）
FOR I=1 TO 9
if I<=5
? SPACE(11-2*i)
FOR J=1 TO 2*i-1
?? '* '
ENDFOR
else
? SPACE(2*I-9)
FOR J=1 TO 19-2*i
?? '* '
ENDFOR
endif
ENDFOR
* （2）
FOR I=1 TO 4
? "