问题标题：
VB编程跪求高人解答!编制一个子程序,在窗体上输出三角形图案.要求：可以指定图案的构成字符、可以指定行数、可以指定正三角或倒三角.子程序定义：SubTriPat(CAsString,NAsInteger,DAsBoole
问题描述：
VB编程跪求高人解答!
编制一个子程序,在窗体上输出三角形图案.
要求：可以指定图案的构成字符、可以指定行数、可以指定正三角或倒三角.
子程序定义：SubTriPat(CAsString,NAsInteger,DAsBoolean)
其中C是构成字符.N是行数.D是方向,True为正三角,False为倒三角.
使用举例：TriPat"@",3,False产生的图案如下(“.”代表空格)：
@@@@@
.@@@
..@
李少刚回答：
PrivateSubCommand1_Click()
DimmInfo$,c$,n%,dAsBoolean
mInfo=InputBox("依次输入字符、号数、方向（正TRUE/倒FALSE),中间用一个空格隔开","mInfo")
c=Split(mInfo,"")(0)
n=CInt(Split(mInfo,"")(1))
d=Split(mInfo,"")(2)
CallTriPat(c,n,d)
EndSub
SubTriPat(cAsString,nAsInteger,dAsBoolean)
IfdThen
Fori=1Ton
PrintSpc(n-i);String(2*i-1,c)
Nexti
Else
Fori=nTo1Step-1
PrintSpc(n-i);String(2*i-1,c)
Nexti
EndIf
EndSub
点击显示
其它推荐
热门其它推荐