Dima，bAsIntegera=Val(InputBox(“请输入数据”))DoWhilea>b=b*+aModa=aLoop