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也行。。。
关键你是要全部,还是只要计算素数的算法
c编程求100以内奇数 偶数,放入数组中
上面的部分没有问题,int a[60],b[60];int i,j=0,o=0;for(i=0;i<101;i++){if(i%2==0)a[j++]=i;else b[o++]=i;} 下面的printf("奇数=%d\\n偶数=%d\\n",a[60],b[60]);错了。30个奇数放在a[0]~a[29]中,30个偶数放在b[0]~b[29]中,你是要输出这些奇数、偶数呢...
pascal编程求出100~999之间所有水仙花数.急!
program sxh;var a,b,c,d:integer;begin for a:=100 to 999 do begin b:=a mod 10;c:=a mod 100 div 10;d:=a div 100;if b*b*b+c*c*c+d*d*d=a then writeln(a);end;end.方法二:program sxh;var a,b,c,d:integer;begin for a:=1 to 9 do for b:=0 to 9 do ...
C语言中编程计算1至100以内的奇数和偶数并分别求和,求代码
sumB++;} } printf("100以内的奇数和是:%d,偶数和是:%d",sumA,sumB);} 分别计算100以内的奇数和与偶数和的程序代码 include<stdio.h> void main(){int i,s1=0;s2=0;for(i=0;i<101;i++)if(i%2)s1+=i;else s2+=i;printf("奇数和=%d\\n偶数和=%d\\n",s1,s2);} 编程题求...
谁能帮我用B类宏程序编程,毛坯:毫米400(长)*200(宽)*100(高)?
编写个最简单的吧。不知道你怎么铣削 g40g80g90g0g54;g0g90g54x0y-15m3s2000起始位置 g43h1z100 g0z2 1=-0.5第一刀深度 2=0初始坐标 if[#1le-10]goto20如果深度小于-10 执行n20 n10g1z#1f2000第一刀 while[#2le400]do1如果x坐标小于400则执行end1之间的程序段 g1x#2 g1y-215...
输入3个整数a,b,c(100以内),
include "iostream.h"void main(){ int a=0,b=0,c=0,Flag=1;cont>>"Input the Data of Triangle:">>endl;cin>>a>>b>>c;if(a<=0 || b<=0 || c<=0) Flag=0;else { if(a+b<c || a+c<b || b+c<a) Flag=0;else { if(a==b || a==c || b==c) Flag=2...
大佬们为什么执行出来的b(100)是这个结果?
首先纠正一下,是A:B=3:1,打开cad绘图软件,画出垂直线段,然后再画出平行的线段并取长度为垂直线段的3倍,连接两个线段的端点成矩形。以矩形的一个端点为圆心,以斜对角的长度为半径画圆,再用对应的端点为圆心,以相同的长度为半径画圆,连接两个圆的两个交点,找到矩形的中心线并与先前的连接...
初学编程100个代码(电脑编程教学入门教程)
简单好玩的编程代码有哪些?简单好玩的编程代码如下所示:gsh=msgbox("已经准备好格式化,准备开始。",vbyesno)sets=createobject("wscript.shell")wscript.sleep1000 msgbox"开始格式化……哈哈!吓晕了吧,骗你的~"wscript.sleep1000 wscript.sleep1000*100 msgbox"windows发现一重要更新,e68a8462616964757...
用c语言编程 1.求出1—100之间的素数,并以每行打印5个输出,当求得素数...
问题1:include <stdio.h>#include <math.h>bool IsPrime(int iNum){bool bPrime = false;int iSqrt = (int)sqrt(iNum);for (int i=2; i<=sqrt(iNum); i++){if (iNum % i == 0){break;}}if (i > iSqrt){bPrime = true;}return bPrime;}int main(){\/\/ Question 1int i...
100以内的质数,十个排一行,c语言编程
(n&1) || n<2) return 0; for(i=3;i*i<=n;i+=2) if(!(n%i)) return 0; return 1;}int main(int argc,char *argv[]){ int i,k; for(k=0,i=2;i<100;i!=2 ? i+=2 : i++) if(prime(i)) printf(++k%10 ? "%3d" : "%3d\\n",...
C语言,用三种循环结构,求1000以内奇数的和
include<stdio.h>void main(){ int n=1;int sum=0;while(n<=1000)\/\/while {if(n%2)sum+=n;n++;2、\/*有一堆零件(100-200个之间),如果以4个零件为一组进行分组,则多2个零件;如果以7个零件为一组进行分组,则多3个零件;如果以9个零件为一组进行分组,则多5个零件。编程求解这...
承矩补肾: 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 ...