Label3.Caption = Label3.Caption & Int(Rnd * 51 + 50) & " "里面要带Label3.Caption &这个带这个就是保持label3.caption里原有的字符串不会被冲掉,新串附加在后面。