•回答
•回答
•回答
•回答
•回答
就一个人回答啊！有些看不懂，急求个简单点的
这样注释一下应该看的懂吧，不懂在追问#include &stdio.h&int main(){ int a[10],i,count=0; double x=0,y=0; for(i=0;i&10;i++) {
scanf(&%d&,&a[i]);//依次输入**
if (a[i]%2==1)//如果输入的是奇数，则加到x中
count++;//统计奇数个数
el** y+=a[i];//输入的是偶数，则加入的y中 } x=x///求奇数平均值，并记录在x中 y=y/(10-count);//求偶数平均值，并记录在y中 printf(&有%d个奇数，平均值为%f\n&,count,x);//输出奇数个数及奇数平均值 printf(&有%d个偶数，平均值为%f\n&,10-count,y);//输出偶数个数及偶数平均值 return 0;}
占有≠拥有&
猜你感兴趣
服务声明： 信息来源于互联网，不保证内容的可靠性、真实性及准确性，仅供参考，版权归原作者所有！Copyright &
.&&闽ICP备号&&&
Powered byVB程序设计中如何产生随机数并分别求奇数和偶数的和_百度作业帮
VB程序设计中如何产生随机数并分别求奇数和偶数的和
VB程序设计中如何产生随机数并分别求奇数和偶数的和
Private Sub Command1_Click()Randomize TimerFor i = 1 To 100x = Int(Rnd() * 90 + 10)If x Mod 2 = 0 Thenm = m + xElsen = n + xEnd IfNextPrint "偶数和："; Str(m)Print "奇数和："; Str(n)End Sub随机产生100个两位数,并分别求出奇数、偶数和VB编程1~100的奇数和-中国学网-中国IT综合门户网站
> VB编程1~100的奇数和
VB编程1~100的奇数和
转载 编辑：李强
为了帮助网友解决“VB编程1~100的奇数和”相关的问题，中国学网通过互联网对“VB编程1~100的奇数和”相关的解决方案进行了整理,用户详细问题包括:RT,我想知道:VB编程1~100的奇数和，具体解决方案如下：解决方案1：<解决方案2：太给力了，你的回答完美解决了我的问题！通过对数据库的索引,我们还为您准备了：问：用function去写答：在窗口上建立一个按钮： Function Total(Num1, Num2) As String 'Num1 为奇数和 'Num2 为偶数和 For i = 1 To 100 If i Mod 2 0 Then Num1 = Num1 + i Else Num2 = Num2 + i End If Next Total = "奇数和：" & Num1 & " 偶数和：" & Num2 End Fu...===========================================问：用function去写答：Function QiuHe() As integer dim a as integer,sum as integer sum=0 for a = 1 to 100 step 2 sum = sum+a next End Function Text1.Text = QiuHe()===========================================问：用function去写答：Sub main() Dim i As Integer Dim sum As Integer sum = 0 For i = 1 To 100 Step 1 If i Mod 2 = 1 Then sum = sum + i End If Next MsgBox sum End Sub===========================================问：用function去写答：Private Sub Form_Click() Dim i As Long Dim sum As Long sum = 0 For i = 1 To 100 Step 2 sum = sum + i Next i Print sum End Sub===========================================问：急答：Private Sub iTest() Dim s%, i%, ms$ For i = 1 To 100 If i Mod 2 = 1 Then s = s + i ms = ms & vbTab & i Next i ' Print "0-100间的奇数和为：" & s MsgBox "0-100间的奇数和为：" & s & vbCrLf & ms End Sub===========================================问：急答：Private Sub Command1_Click() For i = 1 To 99 Step 2 s = s + i Next i Print s End Sub===========================================问：请问vb编程--随机给出的两个数字的奇数和 的代码是什么 万分感谢答：Private Sub Form_Click() For i = 1 To 100 Step 2 s = s + i Next Print "1到100的奇数和为：" & s End Sub===========================================问：请问vb编程--随机给出的两个数字的奇数和 的代码是什么 万分感谢答：dim i as integer,s as integer for i=1 to 100 step 2 s=s+i next i print s===========================================没问题呀,结果和正确,就是没有显示结果 可以加个 print s或者 msgbox s===========================================As Integer, i As Integer Private Sub Form_Load() For i = 1 To 100 sumZ = sumZ + i If i Mod 2 = 0 Then sumO = sumO + i Else sumJ = sumJ + i End If Next Text1.Text...===========================================dim i, suma, sumbsuma=0sumb=0for i=1 to 100if i mod 2 thensuma=suma+ielsesumb=sumb+iendifnextprint suma - sumb===========================================100a = a + iIf i Mod 2 = 0 Thenb = b + iElsec = c + iEnd IfNextPrint "1~100的和为:" & aPrint "1~100的偶数和为:" & bPrint "1~100的奇数和为...============================================ b + iElsec = c + iEnd IfNextPrint &1~100的和为:& & aPrint &1~100的偶数和为:& & bPrint &1~100的奇数和为:&am...===========================================Private Sub iTest() Dim s%, i%, ms$ For i = 1 To 100 If i Mod 2 = 1 Then s = s + i ms = ms & vbTab & i Next i &#39; Print "0-100间的奇数和为:" & s MsgBox...=========================================== 6) As Integer For s = 0 To 5 &#39;因为生成6组,0到5就行了 For s1 = 0 To 5 If s1 = 0 Or s1 = 2 Or s1 = 4 Then a(s, s1) = 0 Else a(s, s1) = Rnd * 100 End If Print a(s, s1) ...===========================================Private Sub Command6_Click() dim As Integer, b As Integer a = Int(Rnd(2) * 100 + 1) If a = Int(a / 2) * 2 Then b = MsgBox("a是偶数") Else b = MsgBox("a是奇数") End If ...===========================================private sub command1_click() dim js,os,i,a for i=1 to 20 a=int(Rnd*99)+1 if a mod 2=0 then js=js+i else os=os+i next print "奇数之和=" & js print "偶数之和=...===========================================private sub command1_click()dim js,os,i,afor i=1 to 20a=int(Rnd*99)+1if a mod 2=0 then js=js+i else os=os+inextprint &奇数之和=& & jsprint &quot...===========================================
本文欢迎转载，转载请注明：转载自中国学网： []
用户还关注
可能有帮助输入一批非0数，直到输入0为止，计算其中奇数的平均值和偶数的乘积， 这是我们的一道c_百度知道
输入一批非0数，直到输入0为止，计算其中奇数的平均值和偶数的乘积， 这是我们的一道c
计算其中奇数的平均值和偶数的乘积输入一批非0数，直到输入0为止，大一刚接触还不太懂，
这是我们的一道c语言题目，求大神解答
&nbsp!scanf(&a[i];else&&&nbsp：&nbspinclude&&sizeof(a)/sizeof(int);&&&&printf(&&$a[i]))&&&nbsp，&%。2f;0)&}&&%d;&&&&&%d&&&cj);&int&&&偶数的乘积是.h&gt,&}&100void&&&nbsp,&&&%&=&&&&&a[MAX];&&&&&奇数的平均值是;s/&&&&&main()&&nbsp,&&&偶数&&&&&&&+=&&i=0,s=0;{&}&&nbsp,&&&&&&{&}&&//&{&&nbsp：&&cj&&&&&&&++&;len&奇数&nbsp,&&&&&&&&2&==&while(;&&&&&{&(a[i]&&s&&&++i;&\n&;MAX&nbsp,cj=1;&&&&{&&&&&&&for(i=0;&&&define&&&&i&&a[i];&&&&&&//&nbsp,&&js=0;&&&&*=&&&&&&&&&&++i)&if&nbsp,&nbsp
其他类似问题
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁