VB随机产生10个两位数,求出他们的总和及平均数.(或按奇偶行排列)
来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/10/05 05:47:24
VB随机产生10个两位数,求出他们的总和及平均数.(或按奇偶行排列)
Randomize
dim a(10) as integer
sum=0
for i=1 to 10
a(i)=int(rnd*90+10)
sum=sum+a(i)
next
Print "SUM:" & Sum
avr=sum /10
Print "Average:" & Avr
再问: 不完整啊,我需要两种可能,一种是求和,一种是奇偶行排列、
再答: 什么叫按奇偶行排列
再问: 就是 奇数一行,偶数一行。。。
再答: 这样啊 Randomize dim a(10) as integer dim b(10) as integer dim os as integer dim js as integer dim tmp as integer dim ss as string sum=0 os=0 js=0 for i=1 to 10 tmp=int(rnd*90+10) if a(i) mod 2=0 then os=os+1 a(i)=tmp else js=js+1 b(i)=tmp end if sum=sum+tmp next Print "SUM:" & Sum avr=sum /10 Print "Average:" & Avr ss="" for i=1 to js ss=ss & b(i) & " " next Print "奇数列:" & ss ss="" for i=1 to os ss=ss & a(i) & " " next Print "偶数列:" & ss
dim a(10) as integer
sum=0
for i=1 to 10
a(i)=int(rnd*90+10)
sum=sum+a(i)
next
Print "SUM:" & Sum
avr=sum /10
Print "Average:" & Avr
再问: 不完整啊,我需要两种可能,一种是求和,一种是奇偶行排列、
再答: 什么叫按奇偶行排列
再问: 就是 奇数一行,偶数一行。。。
再答: 这样啊 Randomize dim a(10) as integer dim b(10) as integer dim os as integer dim js as integer dim tmp as integer dim ss as string sum=0 os=0 js=0 for i=1 to 10 tmp=int(rnd*90+10) if a(i) mod 2=0 then os=os+1 a(i)=tmp else js=js+1 b(i)=tmp end if sum=sum+tmp next Print "SUM:" & Sum avr=sum /10 Print "Average:" & Avr ss="" for i=1 to js ss=ss & b(i) & " " next Print "奇数列:" & ss ss="" for i=1 to os ss=ss & a(i) & " " next Print "偶数列:" & ss
VB随机产生10个两位数,求出他们的总和及平均数.(或按奇偶行排列)
vb题 随机生成10个两位整数,求出他们的总和及平均数
(1)VB 用随机函数产生20个两位数的整数,存于4行5列的二维数组中,并求出其中的最大元素及它的行、列坐标,将数组按行
vb中随机产生10个1—100之间的数,求出小于这十个平均数的数字个数.
1.VB随机产生10个两位数正整数的素数 2.随机产生10个两位数正整数,并输出其中的素数(用for或while语句
VB随机产生10个两位数整数(正整数),要求分别用选择排序法和冒泡排序法将这10个数降序排列输出在窗体上
vb 用随机函数产生10个[100,200]之间的随机整数向数组赋值,按降序排列并输出
怎样用VB做随机产生10个1-100以内的整型数,求出其的最大值,最小值,平均值
VB 随机产生10个0~100之间的随机整数,去掉最大值与最小值,剩下8个数的和与平均数.
vb随机产生10个两位数随机正整数,求其中素数之和(用过程实现判断一个数是否是素数)
vb语句 设计一个随机数程序,生成10个范围是1到100随机整数,并求出这10个数的最大值,最小值和平均数
随机产生300个1000以内的正整数,求出素数个数找出其中素数并按升序排列