VB.用随机函数产生100个【0,99】范围内的随机整数,统计个位上的数字为0,1,2..9的元素个数（使用数组
暖风袭人0355
&dim&a(99)&as&integerdim&i&as&integerdim&sums(9)&as&integerdim&index&as&integerRandomizefor&i=0&to&99&&&&a(i)=int(100*rnd)&&&&index=a(i)&mod&10&&&&sums(index)=sums(index)&+1next&ifor&i&=0&to&9&&&&print&i&&&&的个数是：&&&&sums(i)next
为您推荐：
其他类似问题
扫描下载二维码VB编程：产生20个10至100间的随机整数存入一维数组A中，每行5个元素输出；定义一个4行5列的二维数组-中国学网-中国IT综合门户网站-提供健康,养生,留学,移民,创业,汽车等信息
> 信息中心 >
VB编程：产生20个10至100间的随机整数存入一维数组A中，每行5个元素输出；定义一个4行5列的二维数组
来源：互联网 发表时间： 9:46:22 责任编辑：李志喜字体：
为了帮助网友解决“VB编程：产生20个10至100间的随机整数存入一维数组A中，每行5个元素输出；定义一个4行5列的二维数组”相关的问题，中国学网通过互联网对“VB编程：产生20个10至100间的随机整数存入一维数组A中，每行5个元素输出；定义一个4行5列的二维数组”相关的解决方案进行了整理,用户详细问题包括:输出数组B：产生20个10至100间的随机整数存入一维数组A中，以查看正确性，谢谢各位。请高手们给我代码吧，每行5个元素输出，把A的前五个数存入B的第一行把A的第二组五个数存入B的第二行……；定义一个4行5列的二维数组BVB编程，具体解决方案如下：解决方案1：
j), 5) As IntegerRandomizeFor i = 1 To 20a(i) = Int(Rnd * 91) + 10Print a(i), b(4, j) = a(j + (i - 1) * 5) Print b(i;If i Mod 5 = 0 Then PrintNextPrintFor i = 1 To 4 For j = 1 To 5 b(iPrivate Sub Command1_Click()Dim a(20) As Integer
解决方案2：
i As Integerj = 1For i = 1 To 20 Randomize a(i) = Int(Rnd() * 90) + 10Next iFor i = 1 To 20 k = i Mod 5 If k = 0 Then k = 5 b(j, j);a;For i = 1 To 4 For j = 1 To 5 Print b(i;For i = 1 To 20 Print a(i):&b, If i Mod 5 = 0 Then Print Chr(13) Next iPrint &quot:&quot, k) = a(i) If i Mod 5 = 0 Then j = j + 1Next iPrint &quot, 1 To 5) As IntegerDim jPrivate Sub Form_Load()Dim a(1 To 20) As IntegerDim b(1 To 4, Next j PrintNext iEnd Sub原创哟
解决方案3：
dim i as long,A(1 to 20) as longfor i=1 to 20A(i)=CInt(Int((100- 10+ 1) * Rnd() + 10))next i
相关文章：
最新添加资讯
24小时热门资讯
Copyright © 2004- All Rights Reserved. 中国学网 版权所有
京ICP备号-1 京公网安备02号用VB编程：随机产生10个0~100之间的随机整数,存放在一个数组中,然后求个元素和、平均值,统计大于平均值的元素个数并把它们显示出来.
Private Sub Form_Load()Dim a(10), i, x, j As IntegerDim y As StringFor i = 0 To 9Randomizea(i) = Int(Rnd(1) * 101)x = x + a(i)Next iPrint "元素和=" & xPrint "平均值=" & x / 10For i = 0 To 9If a(i) > (...
为您推荐：
其他类似问题
扫描下载二维码}