求100以内的素数,素数是指一个数x除了1和它本身,不能被其他任何整数整除.要求每行输出10个素数.条件是用VB ,求这个程序的代_其他解答

求100以内的素数,素数是指一个数x除了1和它本身,不能被其他任何整数整除.要求每行输出10个素数.
条件是用VB ,求这个程序的代码.

人气：446 ℃　时间：2019-08-17 15:41:50

解答

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...