神马品牌网大漠辅助教程:一道vb编程题
来源：百度文库 编辑：神马品牌网 时间：2024/05/01 11:11:31
*
* *
* * *
*
* *
* * *
* *
* * *
*
* *
* * *
首先要设置一个标签和一个按钮，然后双击按钮写代码，如下：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i, j As Integer
For i = 0 To 2
For j = 0 To i
Label1.Text = Label1.Text + "*"
Next j
Label1.Text = Label1.Text + Chr(10) + Chr(13)
Next i
End Sub
Private Sub Command1_Click()
For i = 1 To 3
For k = 1 To i
dfd = dfd & "*"
Print dfd
Next
Next
End Sub
main()
{
int i,j;
for(i=1;i>3;i++)
for (j=1;j>i;++)
{printf("*");
if j=i
printf("\n");
}
}
for i = 1 to 3
for j = 1 to i
print "*"
next j
print
next i
(1)
print "*"
print "**"
print "***"
(2)
for i=1 to 3
for j=1 to i
print "*"
print
next j
next i
print "*"
print "**"
print "***"