在窗体上输出1-9和0的宝塔型图形
来源:百度知道 编辑:UC知道 时间:2024/07/03 12:21:16
'在窗体上建立一个command控件,然后输入以代码即可。
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim strTmp As String, strSpace As String
Const NMAXLINES = 9 '输入多少行在这里修改
Me.Cls
For i = 0 To NMAXLINES
strSpace = Space(NMAXLINES - i)
strTmp = ""
For j = 1 To 2 * i - 1
If j Mod 2 = 0 Then
strTmp = strTmp & " "
Else
strTmp = strTmp & i
End If
Next j
strTmp = strSpace & strTmp & strSpace
Print strTmp
Next i
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim strTmp