求100以内的素数,素数是指一个数x除了1和它本身,不能被其他任何整数整除.要求每行输出10个素数.
问题描述：
求100以内的素数,素数是指一个数x除了1和它本身,不能被其他任何整数整除.要求每行输出10个素数.
条件是用VB ,求这个程序的代码.
答
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...