第二行插入:Dim NOk As Integer, NError As IntegerLalbe1改为Label1
Picture1.Print Lalbe1; Text1; Tab(10); "√"里面label写错了