VB随机产生10个两位数,求出他们的总和及平均数.（或按奇偶行排列）

来源：学生作业帮编辑：百度作业网作业帮分类：数学作业时间：2024/07/15 20:45:35

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

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以内的正整数,求出素数个数找出其中素数并按升序排列