分太少鸟~~1p=10000for y=1 to 10p=p*(1+0.125)next yprint p2,设此数为a 布尔函数Sushu判断 true 是 false 不是Function Sushu(ByVal a As Integer) As BooleanDim i, jFor i = 2 To a - 1j = a Mod iIf j = 0 ThenSushu = FalseGoTo step1Exit ForEnd IfNext iSushu = Truestep1:End Function(经过测试 可以使用)...