用vb编一个程序!随机产生十个三位数,实现从小到大和从大到小的排序,并计算这十个三位数的和
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/10/01 07:34:19
用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
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程序随机1到100产生二十个随机数,并从高到低排序
c#程序,从0到9十个数字组成没有重复数字的三位数.算出个数和输出这些三位数.
用C语言的指针(!)实现①输入十个数字,按从小到大的顺序排序后并输出②输入十个字符,按字典顺序排序输
十个连续的三位数中最大的一个数不超过130,这十个数的和是105的倍数,求这十个数的和?
VB语言随机产生10个10-99内的整数,分别用冒泡法和选择法将数据从大到小排序并显示结果
用VB编一个程序,随机产生10个100以内的不同的偶数
用0到9十个数组成一个四位数 一个三位数 一个两位数和一个一位数 使它们的和为1998 请问三位数最小是多少
用VB求“用0~9这十个数字可以组成能被15整除且无重复数字的三位数的个数”并打印结果
十个连续的三位数相加的和是77的倍数最大的三位数小于130求这十个数的和
从0至9这十个数字中,选出九个数字,组成一个两位数,一个三位数,一个四位数,和为2012,求未选的数.
把0至9十个数字任意组合成两个三位数和一个四位数,并满足这两个三位数的和等于这个四位数.数字不能重复