求100以内的素数,素数是指一个数x除了1和它本身,不能被其他任何整数整除.要求每行输出10个素数.

Private Sub Command1_Click()Dim i,j As Longfor i=1 to 100If prime(i) Then Print i;j=j+1if j mod 10=0 then printend ifnextEnd SubPrivate Function prime(ByVal n As Long) As Boolean '返回值=True是素数,Fa...