7.1.1Sub过程 例7.1使用Sub过程的示例1 Private Sub Form Load Show Private Sub mysub1(n) Call mysub1(30) Print String(n, *) Call mysub2 End Sub Call mysub2 Private Sub mysub20 Print *i Tab(30); ÷" Call mysub2 Call mysub1(30) End Sub End sub Sub过程示例1 回冈 冰************* 程序运行结果例7.1 使用Sub过程的示例1 Private Sub Form_Load() Show Call mysub1(30) Call mysub2 Call mysub2 Call mysub2 Call mysub1(30) End Sub 程序运行结果 Private Sub mysub1(n) Print String(n, "*") End Sub Private Sub mysub2() Print "*"; Tab(30); "*" End Sub 7.1.1 Sub过程