C、VB实例.docVIP

输出素数实例 ① Main { int i; int j; for (i=3;i=100;i++) for (j=2;j+1=i;j++) if(i%j==0) break; else printf(%d,i); } ② Private sub command1_command1-click() Dim a as integer, b as integer For a=3 to 100 For b=2 to a If a mod b=0 then Exit for End if Next a If a=b then Print i Next b End if End sub ③ main {int n; int i; for(n=100;n=200;n++) for(i=2;i=k;i++) if(n%i==0) break; if(i==k+1) /*等于就行了。*/ { printf(%d为素数,n); } } 二、输出最大公约数 ① Private Sub Command1_Click() Dim m As Integer, n As Integer m = Int(Val(Text1.Text)) n = Int(Val(Text2.Text)) r = m Mod n Do While r 0 m = n n = r Loop If r = 0 Then Print n Label1.Caption = n End If End Sub ② main {int i; int j; int m; int n; printf(input two numbers:); scanf(%d,%d,i,j); if(ij) { m=i; i=j; j=m; } if(j=0) { printf(Cannot input two these numbers); } n=i%j; if(n==0) printf(greatest common divisor is %d,j); if((n!=0)((j%n)==0)) printf(greatest common divisor is %d,n); if((n!=0)((j%n)!=0)) printf(greatest common divisor isnot exist); } ③ main() { int m; int n; int r; int true=1; printf(input two numbers:); scanf(%d,%d,m,n); r=m%n; while (r!=0) { m=n; n=r; r=m%n; } printf(%d,n); getch(); } ④ Private Sub Command1_Click() Dim m As Integer, n As Integer, i As Integer, r As Integer m = Int(Val(Text1.Text)) n = Int(Val(Text2.Text)) r = m Mod n For i = 1 To Int(Val(Text2.Text)) If r 0 Then m = n n = r r = m Mod n End If Next i If r = 0 Then Print n Label1.Caption = n End If End Sub 输出润年 ① Private Sub Command1_Click() Dim i As Integer For i = 1990 To 2000 If i Mod 4 = 0 And i Mod 100 0 Then Print i ElseIf i Mod 100 = 0 And i Mod 400 = 0 Then Print i Label1.Caption = i End If Next i End Sub ② #include stdio.h #include conio.h #include math.h main() { int i; int j; printf(Please input a year for displaying:); scanf(%d,i); if(i%