n = Val(Text1.Text)，范围为2~40
当text1中输入数字后，我想调用i<=n的所有sub loft（）过程，已有sub loft1（），sub loft2（）。。。。。。sub loft40（）
这个程序应该怎么写