问一个很简单的程序,本人不懂VB的,不过急用,在线给分,

你說這行行不行，呵呵，笑悶我了，我才懶得和你說算法呢!

Private Sub Form_Click()
Print " *"
Print " ***"
Print " *****"
Print "*******"
Print "*********"
Print "*********"
Print " *******"
Print " *****"
Print " ***"
Print " *"
End Sub

daisy8675(莫依)
i 服了 you

这是最简单的了?

^_^

又没说用什么算法，随便了

晕~~~倒~~掉~~~

笑~~~!

哈哈，当时考QBASIC时，老师提示过用print解决这样的问题，不过今日见到daisy8675（莫依)兄，才知道什么叫拽

顶一下

笑死我了!!

呵呵,哈哈.肚子疼

都是从最简单的学起的
我随便写了个
Private Sub Form_Load()
'Dim a(10, 9)
Show
For i = 1 To 4
Print Spc(4 - i);
For j = 1 To 2 * i - 1
Print "*";
Next
Print Chr(13) + Chr(10)
Next
For i = 4 To 1 Step -1
Print Spc(4 - i);
For j = 2 * i - 1 To 1 Step -1
Print "*";
Next
Print Chr(13) + Chr(10)
Next
End Sub

以上的代码应该不符合要求，实际需要的应该是不定打印
呵呵
以前一次考试,要求输入n（0<n<10)
比如n=5打印
*
***
*****
*******
*********
*********
*******
*****
***
*
我看到我旁边有个就是这么打的，分9种情况,哈哈，真的是苦力活啊
不过更可惜的是那道题要求是看结果外还要看代码

Private Sub Command1_Click() '最简算法
For i = -4 To 4
Print Space(Abs(i)) & String((5 - IIf(i < 0, Abs(i), i)) * 2 - 1, "*")
If i = 0 Then Print String(9, "*")
Next i
End Sub

Private Sub Command2_Click() '最BT算法^o^
For i = 1 To 10
Select Case i
Case 1
Print " *"
Case 2
Print " ***"
Case 3
Print " *****"
Case 4
Print " *******"
Case 5
Print "*********"
Case 6
Print "*********"
Case 7
Print " *******"
Case 8
Print " *****"
Case 9
Print " ***"
Case 10
Print " *"
End Select
Next i
End Sub

Private Sub Command2_Click() '最BT算法^o^
For i = 1 To 10
Select Case i
Case 1
Print " *"
Case 2
Print " ***"
Case 3
Print " *****"
Case 4
Print " *******"
Case 5
Print "*********"
Case 6
Print "*********"
Case 7
Print " *******"
Case 8
Print " *****"
Case 9
Print " ***"
Case 10
Print " *"
End Select
Next i
End Sub
确实够BT

我差点要叫救护车了

楼上的这个最好

够简单了~~呵呵!

Private Sub Command1_Click()
Dim i As Integer, j As Integer
For i = 1 To 6
For j = 1 To Abs(i - 3)
Text1.SelText = " "
Next
For j = 1 To 5 - (2 * Abs(i - 3))
Text1.SelText = "*"
Next

Text1.SelText = vbCrLf
Next
End Sub

HOHO

晕死

你們怎麼都那麼暈呢？

我自個都樂悶了...

呵呵 ~~隻不過x,y兩個循環，
大學裡面都開過 c語言，有點頭腦，稍微有點腦筋都做得出來

對了，你隨便看那本參考書上都有，連我從學校帶出來的教材裡面都有

這樣的問題自己不想就來問，我為什麼去替他做

今天收到一個mm的留言，她講：請幫我做畢業設計好不好，你不給偶做，偶就不能畢業了。。。

我真的快e 了，以上的話，請下面如果尚有在學校的同學看看