今天菲菲来为大家解答以上的问题。vb制作程序，用VB做一个简单的小程序相信很多小伙伴还不知道,现在让我们一起来看看吧！
1、Private Sub Command1_Click() ***.cls Dim N As Integer, i As Integer N = InputBox("n=", , 9) For i = 1 To 2 * N - 1 If i <= N Then Print Space(N - i) + String(2 * i - 1, CStr(i)) Else Print Space(N - (2 * N - i)) + String(2 * (2 * N - i) - 1, CStr(2 * N - i)) End If Next iEnd Sub。
本文就为大家分享到这里，希望小伙伴们会喜欢。