作业帮随机产生并显示10个1～10之间的整数,分别求出其中的所有奇数之和和偶数之积 .利用For/Next、Do/Loop两种
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/16 00:07:19
随机产生并显示10个1～10之间的整数,分别求出其中的所有奇数之和和偶数之积 .利用For/Next、Do/Loop两种循环.
Private Sub Form_Click()
Dim a(10),b(10),c,d,i,j,Num As Integer
c = 0
d = 0
Randomize
For i = 1 To 10
Num = Int(Rnd * 10 + 1)
If Num Mod 2 = 0 Then
c = c + 1
a(c) = Num '定义偶数数组
Else
d = d + 1
b(d) = Num '定义奇数数组
End If
Print Num;
Next i
Print
i = 0
j = 1
Do Until i >= c
i = i + 1
j = j * a(i)
Loop
Print "偶数之积"; j
i = 0
j = 0
Do Until i >= d
i = i + 1
j = j + b(i)
Loop
Print "奇数之和"; j
End Su
Dim a(10),b(10),c,d,i,j,Num As Integer
c = 0
d = 0
Randomize
For i = 1 To 10
Num = Int(Rnd * 10 + 1)
If Num Mod 2 = 0 Then
c = c + 1
a(c) = Num '定义偶数数组
Else
d = d + 1
b(d) = Num '定义奇数数组
End If
Print Num;
Next i
i = 0
j = 1
Do Until i >= c
i = i + 1
j = j * a(i)
Loop
Print "偶数之积"; j
i = 0
j = 0
Do Until i >= d
i = i + 1
j = j + b(i)
Loop
Print "奇数之和"; j
End Su
随机产生并显示10个1～10之间的整数,分别求出其中的所有奇数之和和偶数之积 .利用For/Next、Do/Loop两种
从键盘上输入10个整数,并求出这10个数中所有奇数的和与所有偶数之和要求：分别用while,do ...while
利用随机函数产生100个10~99之间的随机整数,找出其中的奇数和素数,并将奇数按从小到大的顺序排列
利用随机函数产生80个10～99之间的随机整数,将其中的奇数按由小到大的顺序排列并输出
求VB 程序设计利用随机函数产生80个10～99之间的随机整数,将其中的偶数按由小到大的顺序排列并输出,将奇
VB程序设计题——随机产生20个大于0小于100的整数,并分别计算出所有奇数和所有偶数的和.
vb编程题.随机产生10个【50,300】之间的整数,求最大的偶数和最小的奇数.
1.随机生成20个位于[1,100]间的整数,分别统计并显示其中的奇数和偶数的个数.
利用高级语言程序设计（VB）随机函数产生90个10～99之间的随机整数,将其中的偶数按由小到大的顺序排列…
VB编程题目单击按钮随机产生5个0-9之间不同的整数并排序,试求出5个数能组合的所有5位数显示在文本框中,并求出最大数和
我想知道,用vb编程,生成10个0-100之间的随机数,要求分别求出其中所有基数之和以及所有偶数之和,该怎么
利用JAVA:10个整数{33,22,55,11,77,43,76,34,13,54} 求出该数组中,所有的奇数和、偶数