用vb编一个程序!随机产生十个三位数,实现从小到大和从大到小的排序,并计算这十个三位数的和

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/15 13:52:50
用vb编一个程序!随机产生十个三位数,实现从小到大和从大到小的排序,并计算这十个三位数的和
xRNP *M꒒ P-QWY|h$Pcb$̽-[^a;43g朙9T*7fqi5.HOw*Y^*?1p  U4pH NJy;RC*9X|ۏVzu M@ D5oK A;p +'FI5pX$ð=eRMPcIE:iOjH9I"n"hjl -A6iy Iȋ8m]$G'G ̠Ȏ"7 w;/D7ܯM}b_ρVNWh5Yh€&bl16fN4^~KdOá(a ?^j1&0Ơj 0U99ZS7S

用vb编一个程序!随机产生十个三位数,实现从小到大和从大到小的排序,并计算这十个三位数的和
用vb编一个程序!随机产生十个三位数,实现从小到大和从大到小的排序,并计算这十个三位数的和

用vb编一个程序!随机产生十个三位数,实现从小到大和从大到小的排序,并计算这十个三位数的和
dim ary(14),jg as long,dim SerAim(),sum as long
randomize
for i=1 to 13
ary(i)=int(rnd*1000)
next
For i = 1To 12
For j = i + 1 To 13
ReDim SerAim(i)
If ary(i) > ary(j) Then '这个语句是以小到大排序,数组的第一个就是最小数
If ary(i) < ary(j) Then '这个语句是以大到小排序,数组的第一个就是最大数
'注意上面的二个语句只能用一个!
Num = ary(i)
ary(i) = ary(j)
ary(j) = Num
End If
Next
Sum = Sum +ary(i)
Next

用vb编一个程序!随机产生十个三位数,实现从小到大和从大到小的排序,并计算这十个三位数的和 VB随机产生一个英文字母程序怎么编啊? 用VB编一个程序,随机产生10个100以内的不同的偶数要不同的10个 pascal程序怎样随机产生一个三位数?并解释为什么要这样编写? 用VB编写程序:随机产生三个数,求出其中最小的那个数 编一VB程序,随机产生10个30~100(包括30,100)的正整数,求最大值,最小值和平均值,并显示整个数组的值和结果 编写一个VB循环程序用line方法或line控件对象在屏幕上随机产生20条长度、颜色、宽度各异的直线段 对不起哈,我问错了,问题是编一个循环程序,用LINE方法在屏幕上随机产生20条长度颜色宽度各异的直线段 用VB编一个程序,求从1至100的自然数的和 vb程序随机1到100产生二十个随机数,并从高到低排序数组score中存储有20个学生一门课程的成绩(整型),编程用随机函数给整型数组score赋值,然后从高到低排序,并按一行五个输出显示在文本框 产生三十个不同的两位随机整数怎么有VB语言写? 用VB编一个钟表,表针运动程序怎么编?我用VB编了一个钟表,可表针(不是数字!)1秒1秒在变动,怎么编写这段程序? VB语言中,在固定的10个数中随机产生3个数,怎么编 随机产生一个四位数的VB编码 谢谢了 如何用vB程序随机产生30个不同的字母? 用vb设计一个随即抽取幸运数字的程序,单击开始按钮,在文本框中随机产生7为数字,并不断滚动.单击暂停按钮,文本框内停止翻滚.单击退出关闭窗体. vb编写程序,单击按钮,使计算机产生一个0到100之间的随机整数,然后判断这个数是奇数还是偶数,并输出该 有这么道题目要求用VB编写,有11列的数,要求前十个是随机产生(可重复),最后个数是与前十个有关的.具体是这样的:有这么道题目要求用VB编写,有11列的数,要求前十个是随机产生(可重复