随机产生并显示10个1~10之间的整数,分别求出其中的所有奇数之和和偶数之积 .利用For/Next、Do/Loop两种循环.

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/29 21:33:01
随机产生并显示10个1~10之间的整数,分别求出其中的所有奇数之和和偶数之积 .利用For/Next、Do/Loop两种循环.

随机产生并显示10个1~10之间的整数,分别求出其中的所有奇数之和和偶数之积 .利用For/Next、Do/Loop两种循环.
随机产生并显示10个1~10之间的整数,分别求出其中的所有奇数之和和偶数之积 .利用For/Next、Do/Loop两种循环.

随机产生并显示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 Sub

VB随机产生10个1~100的整数放入数组中并将各元素的值显示在窗体上,求出最小值并显示. 随机产生并显示10个1~10之间的整数,分别求出其中的所有奇数之和和偶数之积 .利用For/Next、Do/Loop两种循环. 利用随机函数产生10个30~100之间的随机正整数,求最大值,最小值 平均值,并显示数组的值和结果用VB程序设计 通过随机函数在1~100之间产生的30个随机整数,求出平均值,并将这30个随机整数以每行5个数形式输出 产生10个1到20之间没有重复的随机整数 Vb 随机函数产生20个10到50之间的数,放入数组,并且计算所有20个随机整数的平均值并输出 利用随机函数产生100个10~99之间的随机整数,找出其中的奇数和素数,并将奇数按从小到大的顺序排列vb语言. vb 用随机函数产生10个[100,200]之间的随机整数向数组赋值,按降序排列并输出 利用随机函数产生80个10~99之间的随机整数,将其中的奇数按由小到大的顺序排列并输出利用随机函数产生80个10~99之间的随机整数,将其中的奇数按由小到大的顺序排列并输出;在产生的80个 VB语言随机产生10个10-99内的整数,分别用冒泡法和选择法将数据从大到小排序并显示结果 vb问题利用随机函数产生80个10~99之间的随机整数,利用随机函数产生80个10~99之间的随机整数,将其中的偶数按由小到大的顺序排列并输出,将奇数按由大到小的顺序排列并输出在两个文本框 用VB编程:随机产生10个0~100之间的随机整数,存放在一个数组中,然后求个元素和、平均值,统计大于平均值的元素个数并把它们显示出来. vfp改错题求解1下列程序用来产生20个0~100之间的随机整数,* 并找出其中的最大数和最小数,输出时20个随机* 整数*均在一行显示,下一行显示最大数和最小数.*要求:* (1)将下列程序输入到项目中 matlab 产生[-10 10]之间的随机整数 求产生[-10 10]之间的随机整数 matlab 1、随机产生10个10-99范围内的整数,分别用选择和冒泡法将数据按从大到小递减的顺序排列,并显示排序结果 matlab中如何产生10个1--4之间的随机整数?在matlab中如何产生10个1到4之间的随机整数呢?初用matlab,不知如何开始,在matlab中如何产生10个1到4之间的随机整数呢?比如:4,2,4,1,3,2,4,1,1,2,不知道怎么编 求VB 程序设计利用随机函数产生80个10~99之间的随机整数,将其中的偶数按由小到大的顺序排列并输出,将奇数按由大到小的顺序排列并输出;在产生的80个随机整数中,找出其中的素数,并将这