致新手：用VB6解决一些有趣的问题（四）

打印输出大全

最新的新手通常学 Hello World程序,那我们也跟着潮流走吧

Private Sub Form_Load()
    Me.AutoRedraw = True
    Me.Print "Welcome to Visual Basic Programing!"
    MsgBox "Welcome to Visual Basic Programing!"
End Sub

教程和练习通常要打印某种图形

(*注:所有例子窗体的AutoRedraw要设置为TRUE)

打印一个三角形

Private Sub Command1_Click()
    Dim i, j As Integer, s As String, c As String
    c = InputBox("请输入打印的字符：", , "*")
    c = Chr(Asc(c))
    For i = 0 To 8
        s = s & c
        Me.Print s
    Next i
End Sub

打印一个 * 组成的平行四边形

Private Sub Command1_Click()
    Dim i, j As Integer, s As String, c As String
    s = InputBox("请输入打印的字符：", , "*")
    c = Chr(Asc(s))
    For i = 0 To 8
        s = Space(i)
        For j = 0 To 8
         s = s & c
        Next j
        Me.Print s
    Next i
End Sub

这里使代码更简洁的方法是

Private Sub Command1_Click()
    Dim i, s As String,c As String
    s = InputBox("请输入打印的字符：", , "*")
    c = Chr(Asc(s))
    For i = 0 To 8
        s = Space(i)
        s = s & Replace(Space(8), " ", c       
    Me.Print s
    Next i
End Sub

要反过来,只要把Space(i) 改成Space(8 - i)就可以了

运行效果

其实无论怎么输出,就是Print 把某个字符画在窗体上,聪明的人会自己解决这些问题

我只是看不惯很多人为了写作业,满世界在那里喊