vb编程求100以内的素数（VB程序 求100内所有素数的和）

本文目录

• VB程序 求100内所有素数的和
• vb编写程序,求出100以内的素数,并按每行五个的格式打印出来
• 你好，请问您一下，vb中求100到200的素数并且要五个一行，要怎么写
• vb程序求100以内的素数并输出
• vb求100以内的素数
• VB编程输出100以内的素数
• vb:求1~100之间的所有素数,在窗体上显示,可控制每行显示8个数
• vb求100以内的所有素数
• VB编程:求100内的素数打印出来的是:100以内的素数为2，3，5，7，11，13，17
• VB编程求解100以内的所有素数，每5个一行在窗体上输出

VB程序 求100内所有素数的和

Dim m As IntegerDim i As IntegerDim sum As Integersum = 0For m = 2 To 100 For i = 2 To m - 1 ’判断是否是素数 If m Mod i = 0 Then Exit For End If Next i If i = m Then ’如果是，相加 sum = sum + m End IfNext mPrint sum 另外楼主的代码有误，按你那个思路，代码如下Dim sum As IntegerFor m = 2 To 100i = 2 Do While m Mod i 《》 0 i = i + 1 Loop If i = m Then sum = sum + mNext mPrint s

vb编写程序,求出100以内的素数,并按每行五个的格式打印出来

 Dim st As String = ""        Dim n As Integer, j As Integer        TextBox6.Text = ""        For i = 2 To 300            For j = 2 To i - 1                If i Mod j = 0 Then Exit For            Next j            If j 》 i - 1 Then                n = n + 1                TextBox6.Text = TextBox6.Text & i & " "                If n Mod 10 = 0 Then TextBox6.Text = TextBox6.Text & vbCrLf            End If        Next i

你好，请问您一下，vb中求100到200的素数并且要五个一行，要怎么写

Dim i As IntegerDim j As IntegerDim n As Integern = 0For i = 100 To 200   For j = 2 To i - 1      If i Mod j = 0 Then Exit For   Next j   If j 》 i - 1 Then      Print i,      n = n + 1      If n Mod 5 = 0 Then Print   End IfNext i

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 Mod i = 0 Then            f = 1: Exit For        End If    Next    If f = 1 Then zhi = False Else zhi = TrueEnd Function

vb求100以内的素数

Private Sub Form_Click()Dim i As Integer, j As Integer, x As IntegerFor i = 1 To 100x = 0 ‘X用作标志位，即表示X=0表示 i 是素数，1则不是For j = 2 To i - 1If i Mod j = 0 Then x = 1‘（这里的X=1是什么意思），不是素数时X置1Next jIf x = 0 Then Print i’（这里的x=0又是怎么来的）上面语句赋值来的，如果这时X为0就输出素数Next iEnd Sub

VB编程输出100以内的素数

具体是这样子的：从For i = 1 To 100到next i这是一个完整的for循环，而For j = 2 To i - 1到next j是一个内层循环，外层循环用来控制数字是几，就是1到100么，内层是x当作标记来看，给他附初值，0，然后开始内层循环就是那个 j 循环，开始判断素数，什么时素数？就是不能被1和他本身整除的数字，就是素数，这样可以设置最大循环判断的那个数字是比她小的，其实可以改为i/2，也是对的，甚至是sqr(i)也可以，x是一个标志，如果可以被一个数字整除，那么x就不是1了，再循环结束的时候进行判断，如果还是0，那么说明是素数，在窗体上输出，如果不是0，就不是素数了呗，什么也不做，进行下一个循环！纯手打……不含假……不懂追问我，谢谢望采纳，谢谢

vb:求1~100之间的所有素数,在窗体上显示,可控制每行显示8个数

Private Sub Command1_Click()Dim i, j, n As IntegerFor i = 1 To 100  For j = 2 To i - 1    If i Mod j = 0 Then Exit For  Next  If j = i Then    Print i;    n = n + 1    If n Mod 8 = 0 Then Print  End IfNextEnd Sub

vb求100以内的所有素数

2 Function CalcPrimes(intPrimeUBound) 3 ’intPrimeUBound 是要计算素数的上限值 4 Dim i, j 5 Dim strTmp 6 Dim bitArray 7 8 Redim bitArray(intPrimeUBound + 1) 9 10 For i = 0 To intPrimeUBound 11 bitArray(i) = 1 12 Next 13 14 For i = 2 To CInt(Sqr(intPrimeUBound)) 15 If 1 = bitArray(i) Then 16 j = i 17 While j*i 《= intPrimeUBound 18 bitArray(i*j) = 0 19 j = j + 1 20 Wend 21 End If 22 Next 23 24 For i = 2 To intPrimeUBound 25 If 1 = bitArray(i) Then 26 strTmp = strTmp & CStr(i) & "," 27 End If 28 Next 29 30 If strTmp 《》 "" Then 31 strTmp = Left(strTmp, Len(strTmp) - 1) 32 CalcPrimes = Split(strTmp, ",") 33 Else 34 CalcPrimes = "" 35 End If 36 37 End Function 前面是行号， 自己去掉， 返回结果是 intPrimeUBound 以内所有的素数组成的数组

VB编程:求100内的素数打印出来的是:100以内的素数为2，3，5，7，11，13，17

Function prime(x As Long) As BooleanDim i As IntegerFor i = 2 To Sqr(x)    If x Mod i = 0 Then Exit FunctionNextprime = TrueEnd FunctionPrivate Sub Form_Click() ’点击窗体运行Dim i As Long, n As IntegerPrint "100以内的素数为："For i = 2 To 100    If prime(i) Then        Print i;        n = n + 1        If n Mod 8 = 0 Then Print    End IfNextPrintPrint "共有"; n; "个素数"End Sub

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

判断一个整数是否为素数的通用过程：Dim i as integerprime = TrueFor i =2 to sqr(n) if n Mod i =0 Then prime = False Exit For End ifNext i100以内的素数：For I = 100 to 2 step -1 if prime (I) Then ReDim preserve S(k) S(k)=I k=k+1 Ene ifNext I5个一行输出：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 iEnd Sub