用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的值和该切线方程．
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
热门考点