Question

用vb 做一个三角形出来。。 效果如下 * ** *** 求程序 q ***

*
**
***
打不出来这个图形 就是画一个小星号组成的 三角形

Answer 1

for x=1 to 3
for y=1 to x
me. Print "*";
next
me.print
next

这图形是
*
**
***
这样的，你是要这样的吗?

for x=1 to 3
me.print abs(spc(0-x))
for y=1 to x
me. Print "*";
next
me.print
next

这个图是
三角形

Answer 2

效果好不明显啊。。。
Private Sub Form_Load()
Dim i%, j%
Form1.AutoRedraw = True
For i = 1 To 3
Print Space(3 - i);
For j = 1 To 2 * i - 1
Print "*";
Next
Print
Next
End Sub

打开以后是这样：
*
***
*****
不知道是不是你要的结果。。。

追问

n能解释一下 每一句的含义吗 谢谢

追答

Private Sub Form_Load() '定义一个窗体加载的事件
Dim i%, j% '定义ij两个整形变量
Form1.AutoRedraw = True '设置属性使load事件能够响应print函数
For i = 1 To 3 '一个循环，其中的循环变量是i，从1到3
Print Space(3 - i); '在窗体上打印空格，空格数是3-i
For j = 1 To 2 * i - 1 '嵌套的一个内循环，循环变量是j，从1到2*i-1
Print "*"; '每一次j的循环都打印一个*，分号的作用是使下一次打印能够接同一行
Next 'for循环的结尾语句
Print '每打印完一行就用print函数来换行
Next
End Sub '事件结束

Answer 3

Private Sub Form_Load()
Me.AutoRedraw = True
N = 5
For i = 1 To N
Print Space(N - i);
For j = 1 To 2 * i - 1
Print "*";
Next j
Print
Next i
End Sub

Answer 4

问一下，是正三角形还是直角三角形？
× ×
×× ××
××× ×××
下边哪个是呢

追问

第二种 谢谢

追答

额，就我猛汗了……这问题可以针对性的去写代码啊……你满意都丢出去了就懒得写了