用VB在1-100中产生10个随机整数,按从小到大的顺序排列 如题..求代码
题目
用VB在1-100中产生10个随机整数,按从小到大的顺序排列 如题..求代码
答案
Dim MyValue(10) As Integer
Dim i,j,p As Integer
For i = 0 To 9
Randomize
MyValue(i) = Int((100 * Rnd) + 1)
Next
For i = 0 To 9
For j = i + 1 To 10
If MyValue(i) > MyValue(j) Then
p = MyValue(i)
MyValue(i) = MyValue(j)
MyValue(j) = p
End If
Next
Next
For i = 0 To 9
Print MyValue(i)
Next i
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
热门考点
- 英语翻译
- 四边形ABCD中,连接AC,BD于O,线段AC=8,BC=6,AC于BD垂直相交(垂足不与A,B,C,D重合),求四边形ABCD的面积,求证
- 列方程解应用:甲乙两人骑自行车从东西两村同时出发相向而行,相遇时离中点12千米,甲每小时行30千米,
- 怎样区分need是情态动词还是实义动词?
- 废除井田制是春秋时期的事还是战国时期的事.井田制和国有制有什么关系.井田制的废除是哪个国家的事
- 由相邻的两个基本音级以及变化音级所构成的半音叫什么?
- 我们已经知道硫元素的常见化合价有-2、+4和+6价,请你列举不同价态的含硫化合物,并写出他们的化学式
- 1.将80gSO3溶于1L水,求溶液物质的量的浓度.求
- 已知等式5(m-3) x 的|m|-2次方+3=0是关于x的一元一次方程,则x=_______
- 杂合子自交三代以上的要怎么计算?