Label.Text=“”Dimb，bAsInteger‘b表示大和尚，b表示小和尚Forb=ToForb=ToStepIfb+b=And__ThenLabel.Text&=“大和尚”&b&“小和尚”&b&vbCrLfEndIfNextNext