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

Question

打印
    *
   ***
  *****
 *******
*********
*********
 *******
  *****
   ***
    *

Answer 1

你說這行行不行，呵呵，笑悶我了，我才懶得和你說算法呢！Private Sub Form_Click()
Print "   *"
Print "  ***"
Print " *****"
Print "*******"
Print "*********"
Print "*********"
Print " *******"
Print "  *****"
Print "   ***"
Print "    *"
End Sub

Answer 2

daisy8675(莫依)
i 服了 you

Answer 3

呵呵~~~我不喜歡和你說算法我做c的時候照樣這樣做，偶老師還是會打A+給偶//我覺得實在沒有必要再這樣的簡單題目上說算法，要算法，你把c的改成vb就ok了

Answer 4

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

Answer 5

算法到：可能不是最简哦，
For i = 4 To -4 Step -1
   If i = 0 Then
      For q = 1 To 9
          Print "*";
      Next
      Print
   End If
   For j = 1 To Abs(i)
       Print " ";
   Next
   
   For p = 1 To 9 - 2 * (j - 1)
        Print "*";
   Next
  Print
Next

Answer 6

都是从最简单的学起的
我随便写了个
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

Answer 7

Private Sub Form_Load()
Show
For i = 1 To 4
Print Spc(4 - i);
   For j = 1 To 2 * i - 1
     Print "*";
     Next
     Print Chr(13)
     Next
     For i = 3 To 1 Step -1
Print Spc(4 - i);
   For j = 2 * i - 1 To 1 Step -1
     Print "*";
     Next
     Print Chr(13)
     Next
End Sub

Answer 8

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

Answer 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 SubPrivate 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

Answer 10

function haha(ii)
  for i=-ii to ii step 2
haha=haha & space(cint(abs(i)/2+0.1)+abs(i) mod 2) & replace(space(abs(1+ii)-abs(i))," ","*")  & vbcrlf
  next
end functionprint haha(9)

Answer 11

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

Answer 12

虽然肚子笑疼了，但也让我想起了刚开始学编程的时候。我也为这位老弟写一段代码吧。Option ExplicitPrivate Sub Command1_Click()
    Dim a As String * 1, b As String, c%
    a = "*"
    b = InputBox("请输入中间行字符数：")
    c = Val(b)
    triangle a, c
    
End Sub
Private Sub triangle(str As String, n As Integer)
    Dim i%, j%
    For i = 1 To n
        Print Spc(n - i + 1);
        For j = 1 To i
            Print str; Spc(1);
        Next j
        Print
    Next i
    For i = 1 To n - 1
        Print Spc(i + 1);
        For j = 1 To n - i
            Print str; Spc(1);
        Next j
        Print
    Next i
End SubPrivate Sub Command2_Click()
    End
End Sub

Answer 13

TO: kmzs(.:RNPA:.山水岿濛)    不是呢~我还有个更好的!!等着~整理一下

Answer 14

够简单了~~呵呵!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

Answer 15

Private Sub Command1_Click()
    For i = -9 To 9 Step 2
        Print Space(Abs(i) \ 2) & String(10 - Abs(i), "*")
    Next i
End Sub

Answer 16

TO: kmzs(.:RNPA:.山水岿濛)
谢谢啦！~脸好红~

Answer 17

你們怎麼都那麼暈呢？我自個都樂悶了....呵呵 ~~隻不過x,y兩個循環，
大學裡面都開過 c語言，有點頭腦，稍微有點腦筋都做得出來對了，你隨便看那本參考書上都有，連我從學校帶出來的教材裡面都有這樣的問題自己不想就來問，我為什麼去替他做今天收到一個mm的留言，她講：請幫我做畢業設計好不好，你不給偶做，偶就不能畢業了
我真的快e 了，以上的話，請下面如果尚有在學校的同學看看