帮你写好了,这个是工程文件,下载下来就可以了.以下是源码:Private Sub Command1_Click()Dim A(10) As Double, L As Integer, B As Double, C As Double, D As DoubleRandomize '根据时间初始化随机数A(0) = (Rnd...是50——100，不好意思，麻烦帮忙修改下那就把(Rnd * 100)这个替换为(Rnd * 50)+50就行了,你自己替换总会了吧