vb编程For结构的*排列倒三角形怎么弄啊用循环语句编写程序,当单击“产生随机数”按钮后,将自动产生一个1~10之间的随机整数n,当单击“绘出图形1”按钮后,根据该随机整数n在窗体上绘出一

Question

vb编程 For结构的*排列倒三角形怎么弄啊
用循环语句编写程序,当单击“产生随机数”按钮后,将自动产生一个1~10之间的随机整数n,当单击“绘出图形1”按钮后,根据该随机整数n在窗体上绘出一个n行n列的矩形数字图形.当单击“绘出图形2”按钮后,根据该随机整数n在窗体上绘出一个n行n列的直角三角形数字图形.当单击“绘出图形3”按钮后,根据该随机整数n在窗体上绘出一个n行n列倒直角三角形数字图形.当单击“清屏”按钮时清除窗体上绘出的数字图形,当按“结束”按钮时结束程序运行.
这个是随机数,已经对了
Private Sub Command4_Click()
Text1.Text = Int(Rnd * 10) + 1
第一个对了
正方形
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
For i = 1 To Val(Text1.Text)
Print "*";
For j = 1 To Val(Text1.Text)
Print "*";
Next j
Print
Next i
End Sub
但是另外两个三角形
一个
*
**
***
****
****
***
**
*

Answer 1

rem 三角形
Private Sub Command2_Click()
Dim i As Integer
Dim j As Integer
For i = 1 To Val(Text1.Text)
Print "*";
For j = 1 To i
Print "*";
Next j
Print
Next i
End Sub
rem 倒三角:
Private Sub Command3_Click()
Dim i As Integer
Dim j As Integer
For i = 1 To Val(Text1.Text)
Print "*";
For j = Val(Text1.Text) to i step -1
Print "*";
Next j
Print
Next i
End Sub