vb窗体程序 求3-100的质数表每十个一行 代码能按照电脑上的来么谢谢啦

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

这道题不难。看代码：
Private Form1_Load（）
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim flag As Boolean
flag=true
For i=3 To 100
For j=2 To i-1
If i Mod j =0 then
flag=false
k=k+1
End If
If flag then
Print "是素数" & i;
End If
Next i
Print
Next i
Print "非素数的个数是:" & k
End Sub

Private Sub Command1_Click()
  Dim flag As Boolean
  For i = 3 To 100
    flag = True
    For j = 2 To Sqr(i)
      If i Mod j = 0 Then
        flag = False
        Exit For
      End If
    Next j
    If flag Then
      k = k + 1
      Print Format(i, "00") + Space(1);
      If k Mod 10 = 0 Then Print
    End If
  Next i
End Sub

---

喀什市13230127591： vb编写程序找出3~100间所有素数并输出窗体 - ？
闵强辅舒： Private Sub Command1_Click() Dim s As Long, x As Long For s = 3 To 100 If zhi(s) Then x = x + 1: Print s Next Print ＂共 ＂ & x & ＂个质数＂ End Sub Private Function zhi(x As Long) As Boolean Dim b As Single, i As Long, f As Long For i = 2 To ...

喀什市13230127591： 求代码,用VB编程输出3 - 100之间的所有素数 - ？
闵强辅舒： 窗体放一个按钮Commad1 ,双击按钮,输入以下代码.运行后单击按钮,在窗体上显示素数 For n = 3 To 100 f = 0 For j = 2 To Sqr(n) If n Mod j = 0 Then '能整除 f = 1 '不是素数 Exit For End If Next j If f = 0 Then Print n; '一次都没被除断过,肯定是素数 Next n

喀什市13230127591： VB编程 输出3到100之间所有素数 - ？
闵强辅舒： 1 2 3 4 5 6 7 8dim i,j,x for i=3 to 100x=1for j=2 to i-1if i mod j=0 then x=0next jif x=1 then print i next i

喀什市13230127591： vb窗体程序 求3 - 100的质数表每十个一行 代码能按照电脑上的来么谢谢啦-？
闵强辅舒： Private Sub Command1_Click() Dim flag As Boolean For i = 3 To 100 flag = True For j = 2 To Sqr(i) If i Mod j = 0 Then flag = False Exit For End If Next j If flag Then k = k + 1 Print Format(i, ＂00＂) + Space(1); If k Mod 10 = 0 Then Print End If Next iEnd Sub

喀什市13230127591： 编写程序,在窗体上输出3 - 100之间的所有素数,要求每行显示4个数!？
闵强辅舒： Private Sub Form_Click() Dim n As Integer For i = 3 To 100 For j = 3 To Sqr(i) If i Mod j = 0 Then Exit For Next j If j > Sqr(i) Then Print i; n = n + 1 If n = 4 Then Print n = 0 End If End If Next i End Sub

喀什市13230127591： VB编写程序,在窗体上输出3~100之间的所有素数.要求每行显示4个数. - ？
闵强辅舒： form1.cls dim a as long,b as long ,c as boolean for a=3 to 100 c=false for b=a-1 to 2 step -1 if a mod b=0 then c=true exti for end if next b if c=false then pint a; next a

喀什市13230127591： vb编程计算并显示3 - 100的所有素数 - ？
闵强辅舒： function prim(x as integer) as boolean dim ok as boolean, i as integer ok=true for i=2 to x-1if x mod i=0 then ok=false next i prim=ok end function sub main() dim i for i=3 to 100 if prim(i) then print i next i end sub

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

喀什市13230127591： 试用VB程序求出2到100间的所有质数 - ？
闵强辅舒： 添加一个Command,一个ListBox:Private Sub Command1_Click() Dim i% For i = 2 To 100 If SuShu(i) Then List1.AddItem i Next i End Sub Function SuShu(n%) As Boolean Dim i% SuShu = True For i = 2 To Int(Sqr(n)) If (n Mod i) = 0 Then SuShu = False Next i End Function

喀什市13230127591： 用 vb 做 100以内质数求和 的程序 - ？
闵强辅舒： Dim s, m, i As Integer s = 5 '后面的只能判断大于7的数是否是质数,所以s初始值为前两个质数2和3的和 For i = 7 To 100 Step 2 '质数除了2以外都是奇数,所以步长为2 For m = 3 To i - 2 Step 2 '原理同上 If i Mod m = 0 Then GoTo notSign '如果能整除,则不是质数,跳过相加环节 Next m s = s + i notSign:Next i Print s 's值即为和