题目
用VB在1-100中产生10个随机整数,按从小到大的顺序排列 如题..求代码
提问时间：2021-01-01
答案
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
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的值和该切线方程．
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
- 1由于地球自转,南北极会出现极昼夜现象那要怎么划分,
- 2把这篇英语小短文改成现在式.
- 3王村有一个占地3384平方米的梯形鱼塘，两条平行的边分别是84米和60米，你能用学过的数学知识算出两岸的宽度吗？
- 4关于引号内标点的使用
- 5表示时间是傍晚的句.
- 6给主题为“新学期新目标新气象”的手抄报求一个好的富有诗意的题目!
- 7当x等于2时,代数式ax立方+bx+7的值是5,当x等于-2时的式子的值是多少?
- 8数一数，图中有 _ 条线段， _ 条射线， _ 条直线．
- 9某校五年级有学生120人,占学校人数的3/7；四年级人数占全校人数的3/20,
- 10某支行去年储蓄存款为3000万元．今年比去年定期存款增加25%，活期存款减少25%，但存款总额还是增加了15%．问今年的定期、活期存款各是多少？
热门考点