不一定有返回值
虽然没有返回值可以正常运行:Private Sub Command1_Click() Call aEnd SubFunction a() MsgBox "没有返回值"End Function但是最好在没有返回值时用procedure