VB编程代码怎么写

Private Sub Command1_Click()

  CurrentY = 0

  For i = 1 To 9

    If i <= 5 Then

      Print Space(9 - i)

   闭桐   败信For j = 1 To 2 * i - 1

        Print "察态轮*"

      Next j

    Else

      Print Space(i - 1)

      For j = 1 To 2 * (10 - i) - 1

        Print "*"

      Next j

    End If

    Print

  Next i

End Sub

Private Sub Command2_Click()

  CurrentY = 0

  Dim a(8) As String, b(8) As String

  For i = LBound(a) To UBound(a)

    If i <= 4 Then

      a(i) = String(2 * i + 1, "*")

      b(i) = Space(25 - i)

    Else

      a(i) = String(2 * (8 - i) + 1, "*")

      b(i) = Space(17 + i)

    End If

    Print b(i) + a(i)

  Next i

End Sub

Private Sub Command3_Click()

  CurrentY = 0

  For i = 1 To 9

    If i <= 5 Then

      Print Space(43 - i)

      Print String(2 * i - 1, "*")

    Else

      Print Space(33 + i)

      Print String(2 * (10 - i) - 1, "*")

    End If

  Next i

End Sub

Private Sub Form_Load()

  Me.Width = 4800

  Me.Height = 2640

  Command1.Width = 1245: Command1.Height = 315: Command1.Left = 120: Command1.Top = 1830

  Command2.Width = 1245: Command2.Height = 315: Command2.Left = 1635: Command2.Top = 1830

  Command3.Width = 1245: Command3.Height = 315: Command3.Left = 3150: Command3.Top = 1830

End Sub

'添加一个TextBox 设置其慎搭MultiLine=True 示例代码如山老下：

Private Sub Form_Click()

Dim a(1 To 100) As Integer

Randomize Timer

Print "随逗孝升机产生的100个数据是："

For i = 1 To 100

a(i) = Int(Rnd * 90 + 10)

Print a(i)" "

If i Mod 10 = 0 Then Print

Next i

For i = 1 To 99

For j = i + 1 To 100

If a(i) >a(j) Then

c = a(i)

a(i) = a(j)

a(j) = c

End If

Next j

Next i

For i = 1 To 100

If a(i) >= 50 Then

Text1.Text = Text1.Text &a(i) &" "

b = b + 1

If b Mod 10 = 0 Then Text1.Text = Text1.Text &vbCrLf

End If

Next i

End Sub

---