当前位置:Home-FurnishingsHome

vb随机函数(繁体:數)rnd公式

2025-02-28 20:21:19Home-FurnishingsHome

VB题,急求。利用随机函数rnd产生30个10~100之间的整数,再将它们按照由小到大的顺序排列输出?前几天,我写信给别人弄的,他是一个1-100号十,命令改变,我稍微(别忘了细长形状的背后哦!短,无

VB题,急求。利用随机函数rnd产生30个10~100之间的整数,再将它们按照由小到大的顺序排列输出?

前几天,我写信给别人弄的,他是一个1-100号十,命令改变,我稍微(别忘了细长形状的背后哦!短,无法显示)也增加命令

澳门银河私人Command1_Click()

i随澳门新葡京着昏暗的整数shù ,B字符串,A(20)作为INTEGER

做,直到我= 20"开始循环添加阵列变【练:biàn】量

我:“设【练:shè】置”选项卡,重复跳一个随机数

A(I)=娱乐城 INT(RND * 101)"分配给变量数组随机(读:jī)数

当j = 0到i - 1"循环检[繁体:檢]查重复

澳门巴黎人

如果A(J)= A(I)然后转到我:皇冠体育"如果你重复跳转到“设置”选项卡,一个随机数下xià 面j个"退出循环

B = B&“,”&A(I)

I = I 1"数(繁:數)组循环加1

皇冠体育循xún 环

B"输[繁:輸]出

结束(读:shù)子

开云体育

求教一道VB题目:利用随机函数产生10个10~100内的随机整数,求其中的最大数、最小数,以及它们的平均数。求程序?

Dim a(1 to 10) dim ave,max,min randomize for i=1 to 10 a(i)=int(rnd*91 10) print a(i) next i print max=a(1) min=a(1) for i=2 to 10 if maxa(i) then min=a(i) next i print max,min

本文链接:http://10.21taiyang.com/Home-FurnishingsHome/14066.html
vb随机函数(繁体:數)rnd公式转载请注明出处来源