VB编程求解100以内的所有素数，每5个一行在窗体上输出。

VB:求100以内所有素数，输出到窗体上，每行输出5个~

Private Function check(i As Integer) As Boolean
For j = 2 To CInt(Sqr(i)) + 1 '从2循环到i的平方根
If i Mod j = 0 Then '如果i除以j的余数为0,说明i不是素数
check = False '返回false
Exit Function '退出本过程
End If
Next j
check = True '循环结束没有退出过程,说明i不能整除从2到i平方根的所有数,也就是说i是素数,返回true
End Function

Private Sub Command1_Click()
Dim k As Integer, n As Integer
For k = 1 To 100
If n Mod 5 = 0 Then Print
If check(k) Then
Print k;
n = n + 1
End If
Next
End Sub

我记得素数是只能被1和它本身除的数，如是的话如下代码能够实现。
Private Sub Command1_Click()
For i = 1 To 100
For j = 2 To i - 1
If i Mod j = 0 Then
Exit For
End If
If j = i - 1 Then
Print i
End If
Next j
Next i

End Sub

判断一个整数是否为素数的通用过程：
Dim i as integer
prime = True
For i =2 to sqr(n)
if n Mod i =0 Then
prime = False
Exit For
End if
Next i
100以内的素数：
For I = 100 to 2 step -1
if prime (I) Then
ReDim preserve S(k)
S(k)=I
k=k+1
Ene if
Next I
5个一行输出：Private Sub Command1_()
Dim i As Integer , j As Integer
Randomize
For i = 1 to UBound(a)
For j = 1 to 5
a(i,j)=I
Form1.print a(i,j)
Next j
From1.print
Next i
End Sub

VB没有接触。。。
C可以,C#或者java也行。。。
关键你是要全部，还是只要计算素数的算法

---

曲松县13871692179： 用vb编出求100以内素数的代码 - ？
承矩补肾： Private Sub Command1_Click() For m = 2 To 100flag = 0For i = 2 To m - 1If (m Mod i) = 0 Thenflag = 1Exit ForEnd IfNext iIf flag = 0 ThenPrint m;j = j + 1If j Mod 5 = 0 Then Print '每输出5个换一行End If Next m End Sub

曲松县13871692179： VB编程输出100以内的素数 - ？
承矩补肾： 具体是这样子的: 从For i = 1 To 100到next i这是一个完整的for循环,而For j = 2 To i - 1到next j是一个内层循环,外层循环用来控制数字是几,就是1到100么,内层是x当作标记来看,给他附初值,0,然后开始内层循环就是那个 j 循环,开始判...

曲松县13871692179： vb程序求100以内的素数并输出 - ？
承矩补肾： Private Sub Command1_Click() Dim s As Long, t As Long For s = 1 To 100 If zhi(s) Then t = t + 1: Print s Next Print t & ＂个质数＂ End Sub Private Function zhi(x As Long) As Boolean Dim b As Single, i As Long, f As Long For i = 2 To x - 1 If x ...

曲松县13871692179： VB语言中,用筛选法求100以内所有素数 - ？
承矩补肾： #include<stdio.h> int main() { int i,j;//定义两个变量,i是从2到100的数字,j是用来被i除,检验i是否是素数的数 for(i=2;i<=100;i++)//i从2到100,挨个枚举,用下面的算法检验 { for(j=2;j<i;j++)//j从2到i-1,用i除以j { if(i%j==0)//如果i除以j的余数是0,即i不是素数 { break;//跳出循环 } if(j==i-1)//如果直到j=i-1时上面的判断一直没成立,即i不是素数,输出i { printf(＂%d ＂,i); } } } return 0; }

曲松县13871692179： VB编程:求100以内所有的素数. - ？
承矩补肾： Private Sub Form_Click() Me.Cls Dim i, j, k As Integer For i = 2 To 100 k = 0For j = 2 To iIf i Mod j = 0 Then k = k + 1Next jIf k = 1 Then Print i Next i End Sub

曲松县13871692179： 在vb中:求出100以内所有素数的和 - ？
承矩补肾： Private Sub Command1_Click() Dim i As Integer 合计 = 0 For i = 2 To 100 '注意,1即不是素数,也不是合数,所以从2开始 If 素数(i) Then 合计 = 合计 + i Next i Print ＂100以内的素数之和为:＂ & 合计 End SubPrivate Function 素数(x As Integer) As Boolean 素数 = True For k = 2 To Sqr(x) If x Mod k = 0 Then 素数 = False Exit Function End If Next k End Function

曲松县13871692179： vb求100以内的所有素数 - ？
承矩补肾： 2 Function CalcPrimes(intPrimeUBound)3 'intPrimeUBound 是要计算素数的上限值4 Dim i, j5 Dim strTmp6 Dim bitArray78 Redim bitArray(intPrimeUBound + 1)9 10 For i = 0 To intPrimeUBound 11 bitArray(i) = 1 12 Next 13 14 For i = 2 To...

曲松县13871692179： 求出100以内所有的素数的VB程序 - ？
承矩补肾： Private Sub Form_Click() Dim i As Integer, j As Integer, x As Integer For i = 2 To 100 x = 0 For j = 2 To i - 1 If i Mod j = 0 Then x = 1 Next j If x = 0 Then Print i Next i End Sub

曲松县13871692179： 试vb编写一个求100以内素数的过程 - ？
承矩补肾： private sub command1_click() for i=2 to 100 for j=2 to i-1 if i mod j =0 then n=n+1 next j if n<1 then print i,m=m+1 else n=0 end if if m=10 then print :m=0 next i end sub

曲松县13871692179： VB编程求解100以内的所有素数,每5个一行在窗体上输出.？
承矩补肾： 判断一个整数是否为素数的通用过程: Dim i as integer prime = True For i =2 to sqr(n) if n Mod i =0 Then prime = False Exit For End if Next i 100以内的素数: For I = 100 to 2 step -1 if prime (I) Then ReDim preserve S(k) S(k)=I k=k+1 Ene if Next I ...