VB 三角代码

Dim str As String
Dim str1 As String
Dim str2 As String

str1 = "###############"
str2 = "$"

Dim i As Integer
Dim j As Integer

For i = 0 To Len(str1)
If i * 2 > Len(str1) Then
Exit Sub
End If
Dim sTmp As String
sTmp = ""
For j = 0 To i
sTmp = sTmp & " "
Next j

Dim str3 As String
str3 = ""
For j = 0 To i * 2
str3 = str3 & str2
Next j

Print (sTmp & Left(str1, Len(str1) - i * 2) & " " & str3)
Next i

把上面的代码放在 控钮的单击事件中执行就可以了
不能插入图片不能给你看结果,你自已执行

这个已经很简单了,再简单的目前我没想到