VB for 循环问题~基础问题啦

Question

怎么打这几个图形~谢谢了~最好附解释哦~~~
第一个
*
**
***
****
*****
第二个
*
***
*****
*******
*********
*******
*****
***
*
第三个
*
* *
* *
* *
* *
* *
* *
* *
*
第四个
*
* *
* *
* *
*
第五个
*
* *
* * *
* *
*
太感谢了~~~
奇怪这里不能打空格吗？那么0代表空格~把3、4、5改掉了哦~★就是*~看得能清楚点
第三个
0000★
000★0★
00★000★
0★00000★
★0000000★
0★00000★
00★000★
000★0★
0000★
第四个
0000★
00★000★
★0000000★
00★000★
0000★
第五个
0000★
00★00★
★00★00★
00★00★
0000★

Answer 1

呕血力作，记得赏分啊。(已测，全部正确。第5题图形有点怪，和你标示出来的实际一致，但外观不太一样，注意检查。)
用select case 方法来解决，你也可以分开单独使用，相互之间不影响。
说明：OBJ可以是窗体，picture控件，可以是任何可以接受打印的控件，N是你的第X道题目，放入程序中可直接使用，稍作修改可以扩展其功能，使图形变成其它你想要的大小或其它形状。
Sub Calculate(OBJ As Object, N As Long)
On Error Resume Next
Dim i As Long, Pstr As String, TempStr As String
Select Case N
Case 1
For i = 1 To 5
OBJ.Print String(i, "*")
Next
Case 2
For i = 0 To 4
OBJ.Print String(1 + 2 * i, "*")
Next
For i = 3 To 0 Step -1
OBJ.Print String(2 * i - 1, "*")
Next
Case 3
For i = 0 To 4
Pstr = Space(4 - i) & String(1, "*")
Pstr = Pstr & Space(i * 2 - 1) & String(1, "*")
OBJ.Print Pstr
Next
For i = 3 To 0 Step -1
Pstr = Space(3 - i + 1) & String(1, "*")
Pstr = Pstr & Space(i * 2 - 1) & String(1, "*")
OBJ.Print Pstr
Next
Case 4
For i = 0 To 2
Pstr = Space(4 - i * 2) & String(1, "*")
Pstr = Pstr & Space(i * 4 - 1) & String(1, "*")
OBJ.Print Pstr
Next
For i = 1 To 0 Step -1
Pstr = Space(4 - i * 2) & String(1, "*")
Pstr = Pstr & Space(i * 4 - 1) & String(1, "*")
OBJ.Print Pstr
Next
Case 5
For i = 0 To 2
Pstr = Space(4 - i * 2) & String(1, "*")
TempStr = ""
For ii = 1 To i
TempStr = TempStr + Space(2) & String(1, "*")
Next
Pstr = Pstr & TempStr
OBJ.Print Pstr
Next
For i = 1 To 0 Step -1
Pstr = Space(4 - i * 2) & String(1, "*")
TempStr = ""
For ii = 1 To i
TempStr = TempStr + Space(2) & String(1, "*")
Next
Pstr = Pstr & TempStr
OBJ.Print Pstr
Next
End Select
End Sub

使用举例：
比如你有一个按钮command1,想打印到窗体上，图形是第2个(题目)，如下。
private sub command1_click()
Calculate me,2
end sub

Answer 2

建议楼主把这5个题目分成5个帖子，方便回答！！

先给你解答第一个：

Private Sub Form_Click()
Dim i As Integer
Dim j As Integer
For i = 1 To 5
Print Tab(28 - i);
For j = 1 To 2 * i - 1
Print "*";
Next
Print
Next
End Sub

Answer 3

1. 第一个
Private Sub Form_Click()
Dim i As Integer
Dim hao As String
For i = 1 To 5
hao = hao & "*"
Print hao
Next i
End Sub

Answer 4

第一个有了就不说了，呵呵
第二个问题如下：
Private Sub form_Click()
Dim i As Integer
Dim hao As String
For i = 1 To 5
hao = hao & "*"
Print hao
Next i
Dim x As Integer
For x = 6 To 10
Print String(10 - x, "*")
Next x
End Sub
第三个如下：
Private Sub Form_Click()
Dim x As Integer
Print String(1, "*")
For x = 2 To 8
Print String(2, "*")
Next x
Print String(1, "*")
End Sub
第四个：
Private Sub form_Click()
Dim x As Integer
Print String(1, "*")
For x = 2 To 4
Print String(2, "*")
Next x
Print String(1, "*")
End Sub
第五个：Private Sub form_Click()
Dim i As Integer
Dim hao As String
For i = 1 To 3
hao = hao & "*"
Print hao
Next i
Dim x As Integer
Dim y As String
For x = 4 To 6
Print String(6 - x, "*")
Next x
End Sub
其实这几个方法都是相同的，只是小小的做了点变化

Answer 5

用智能ABC按V加数字就可以找到了