Question

使用VB构建由"*"构成的三角形

使用For…Next、Do{While|Until}…Loop 和Do Loop{While|Until}方法，运用其中任何一种语句结构创建一个名为” 构建由"*"构成的三角形”的应用程序。
要求运行窗体后，在窗体上显示出由”*”所构成的16行31列的三角形。如图所示：

Answer 1

Private Sub Command1_Click()
Dim i, j As Integer
For i = 1 To 16
For j = 1 To 16 - i
Print "腔雀兄 ";
Next j
For j = 1 To (i - 1) * 2 + 1
Print "岁敬*"伍袭;
Next
Print
Next
End Sub

Answer 2

Private Sub Command1_Click()
For n=1 to 16
Print Tab(25-n);String(2*n-1, "*")
Next n
End Sub
Private Sub Command1_Load()
Me.Caption="构建由"穗拦*"构成的三角形"猜陪胡
End Sub
邮箱乱慧244601729@qq.com

Answer 3

对不起，我不知道。