线性同余法的VB代码

求助线性同余法的VB代码
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的代码？
请关注的朋友帮助解决。
谢谢。

[解决办法]
看看这个里面有没有你要的算法
[解决办法]
题目不是已经说得很清楚了吗？

VB code

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