编写程序 1、求1到100间的偶数之和。要求用二种以上方法编写。 2输入任意个整数，分别统计偶数和奇数的个

Question

如题所述

Answer 1

java实现的程序1：
public class Testfornnn {
//求1-100的偶数之和
public static void main(String[] args) {
//方法1:
int sum=0;
int sum1=0;
for(int i=0;i<=100;i++){
if(i%2==0)
sum=sum+i;
}
System.out.println("sum===="+sum);

//方法2：
for(int s=0;s<=100;s=s+2){
sum1=sum1+s;
}
System.out.println("sum1======"+sum1);
}
}
程序2：
//求控制台录入的数字中偶数和奇数的个数
public class TestforCount {
//控制台输入数字，输入-1结束录入。回车分隔
public static void main(String[] args) {
Scanner sc = new Scanner(System.in);
String x=null;
int s=0;
int d=0;
for(;;){
x = sc.next();
if(Integer.parseInt(x)%2==0){
s=s+1;
}else{
d =d+1;
}
if(x.equals("-1")){
d=d-1;
break;
}
}
System.out.println("偶数的个数："+s+" 奇数的个数："+d);
}
}

Answer 2

Private Sub Form_Load()
Dim Valu As Long
Dim T
T = InputBox("输入一个整数", "求偶数何")
Valu = Test(CLng(T))
MsgBox Valu

End Sub

Function Test(Tval As Long) As Long
Dim Result As Long
Result = 0
For i = 2 To Tval Step 2
Result = Result + i
Next
Test = Result
End Function

Answer 3

孝。友。传。家。清。伯。相 。承。韶。。。。。本回答被提问者和网友采纳