求助线性同余法的VB代码

[renyucai1963]

m, 模数 0<m
a, 乘数 0<=a<m
c, 增量 0<=c<m
Xn, 开始值 0<=Xn<m
Xn+1=(aXn+c) mod m
例如：m=10 Xn=a=c=7 时得到的序列 7,6,9,0,7,6,9,0,…
这是摘自《计算机程序设计艺术》里的一段
我的问题是他的序列是如何得出来的，求VB的代码？
请关注的朋友帮助解决。
谢谢。

[renyucai1963]

积分为0，下载不了。
请费心写个代码吧！
谢谢了。

[booksoon]

题目不是已经说得很清楚了吗？

Private Sub Command1_Click()
m = 10
a = 7
c = 7
xn = 0
For i = 1 To 10
    xn = (xn * a + c) Mod m
    Print xn
Next i
End Sub

[renyucai1963]

谢谢 chinayuppie
非常满意。

[贝隆]

看看这个里面有没有你要的算法