最佳答案:我已帮你全部做好,工程下载地址我已发给你Dim pi As DoubleDim temp As DoubleDim j As IntegerDim te As
最佳答案:Private Sub Form_Click()Dim a(50),m,s,n,ps = 0n = 0RandomizePrint "原数组"For m = 0