PrivateSubCommand1_Click()s=0:n=0x=InputBox("ÇëÊäÈëX:")Whilex0s=s+xn=n+1x=InputBox("ÇëÊäÈëX:")WendPrint"¹²ÊäÈëÁË";n;"¸öÊý,ƽ¾ùÖµ=";s/nEndSub
