VB6.0把常量作为实参方法示例，书中的代码，分享给大家，后附完整源码下载。
Sub s(n As Integer) '定义子过程
Dim i As Integer
For i = 1 To n '子过程的功能是输出n个空格
Print " ";
Next i
End Sub
Private Sub Command1_Click() '事件过程
Print "姓名"; '原样输出
s (10) '调用子过程
Print "性别"
Print "年龄";
s (10) '常量作实现进行传递
Print "班级"
s (25)
Print "输出完毕" '在窗体上打印
End Sub
本源码编译运行效果截图如下图所示。
