请问怎么用VB编程列出50到150之间所有的素数？请写出过程，多谢啦！ vb埃拉托斯特尼筛法

请问怎么用VB编程列出50到150之间所有的素数？请写出过程，多谢啦！ Private Sub Command1_Click()Dim i As IntegerDim j As IntegerDim a(100)As IntegerDim k As Integerk=0For i=50 To 150For j=1 To iIf i Mod j=0 Thenx=x+1End IfNextIf x=2 Thena(k)=iText1.Text=Text1.Text&a(k)&\"/k=k+1Elsex=0End IfNextEnd Sub

#素数#sub