【VB开源代码栏目提醒】：文章导读：在新的一年中，各位网友都进入紧张的学习或是工作阶段。网学会员整理了VB开源代码-Ex5_12.frm的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！

    VERSION 5.00
    Begin VB.Form Ex5_12 
       Caption         =   "Form1"
       ClientHeight    =   3810
       ClientLeft      =   60
       ClientTop       =   450
       ClientWidth     =   5685
       LinkTopic       =   "Form1"
       ScaleHeight     =   3810
       ScaleWidth      =   5685
       StartUpPosition =   3  '窗口缺省
    End
    Attribute VB_Name = "Ex5_12"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Dim str As String
    Function Lstr(sno As String, sname As String, sage As Integer, _
    Optional stel As String, Optional sadd As String)
        str = sno & Chr(9) & sname & Chr(9) & sage & "岁" & _
        Chr(9) & stel & Chr(9) & Chr(9) & sadd '连接参数
    End Function
    Private Sub Form_Click()
     Print "————————学生信息——————————"
     Print "" & Chr(9) & "" & Chr(9) & "年龄" & Chr(9) & _
     "电话" & Chr(9) & Chr(9) & "地址"
     Lstr sname:="李明", sno:="0520203", sage:=20 '命名参数
      Print str '打印字符串
     Lstr sname:="王佳", sno:="0520205", sage:=22, stel:="0551-2869413" '命名参数
     Print str
     Lstr sname:="赵晓纹", sno:="0520206", sage:=22, sadd:="浙江杭州" '命名参数
     Print str
     End Sub