求一个vb6.0中灰常简单的程序代码！！！

Private Sub Command1_Click()

If Command1.Caption = "隐桥升藏"或凳 Then

Text1.Visible = False

Command1.Caption = "显示"

ElseIf Command1.Caption = "显示敏团老" Then

Text1.Visible = True

Command1.Caption = "隐藏"

End If

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

Text1.Visible = True

Command1.Caption = "隐藏"

End Sub

Private Sub Form_Click()

Dim a(2, 2) As Integer, b(2, 2) As Integer

Dim i As Integer, j As Integer

Dim n1 As Integer, n2 As Integer

For i = 0 To 2

 For j = 0 To 2

  a(i, j) = Int(Rnd * 10)

  Print a(i, j) " "

 Next

 Print

Next

For i = 0 To 2

 n1 = n1 + a(i, i)

Next

Print n1

Print

For i = 0 To 2

 For j = 0 To 2

  b(i, j) = 雹桥茄Int(Rnd * 10)

  Print b(i, j) " "

 Next

 Print

Next

For i = 2 To 0 Step -1

 n2 = n2 + b(i, 2 - i)

Next

Print n2

End Sub Private Sub Form_click()

 Dim n As Integer, i As 源察Integer

 Dim j As Integer, k As Integer

 

    n = Val(InputBox("", "", 5))

    ReDim a(n + 1, n + 1), b(n + 1, n + 1)

    Cls

    k = 8

    For i = 1 To n

    Print String((n - i) * k / 2 + 1, " ")

    For j = 1 To i

    a(i, 1) = 1

    a(i, i) = 1

    a(i + 1, j + 1) = a(i, j) + a(i, j + 1)

    b(i, j) = Trim(Str(a(i, j)))

    Print b(i, j) String(k - Len(b(i, j)), " ")

 消消   Next j

    Print

    Next i

End Sub

---