vb 金字塔数字 求助

来源：百度知道 编辑：UC知道 时间：2024/05/26 08:09:24
1
-1-12
1 12 123
-1-12-123-1234
1 12 123 1234 12345
-1-12-123-1234-12345-123456
是的 就是vb程序 要写代码

Private Sub Form_Click()
For i = 1 To 8
For j = 1 To i
If j = 1 Then
k = k & "-" & j '添加负号
Else
k = k & j
End If
Print k; " ";
Next j
k = ""
Print '换行
Next i

End Sub

别下线啊 马上给你