明天就上学了，可是vb作业不会写，找个人帮我写出来好么

有没有人啊

第一个：
Dim i, j As Integer
For i = 1 To 5
 For j = 1 To i
 Print "*";
 Next j
Print
Next i

第二个：
Dim i, j, k As Integer
For i = 1 To 5
   For k = 1 To (5 - i)
   Print " ";
  Next k
  For j = 1 To i
   Print "*";
  Next j
Print
Next i
 

第三个：
Dim i, j As Integer
For i = 1 To 5
For j = 1 To (6 - i)
Print "*";
Next j
Print
Next i

第四个：
Dim i, j, k As Integer
For i = 1 To 5
   For k = 1 To i
   Print " ";
  Next k
  For j = 1 To (6 - i)
   Print "*";
  Next j
Print
Next i

好棒啊

第五个：
Dim i, j, k As Integer
For i = 1 To 5
   For k = 1 To (5 - i)
   Print " ";
  Next k
  For j = 1 To (i * 2 - 1)
   Print "*";
  Next j
Print
Next i

第六个：
Dim i, j, k As Integer
For i = 1 To 5
   For k = 1 To i
   Print " ";
  Next k
  For j = 1 To ((6 - i) * 2 - 1)
   Print "*";
  Next j
Print
Next i

感觉最好还是自己思考一下的好。不难的，做不出来再问也不迟，否则吃亏的人是你啊。