爱问知识人 爱问教育 医院库

vb数组排序

首页

vb数组排序

Private Sub Form_Load()
Dim a(1 To 10) As Integer
Dim i As Integer
Dim j As Integer
Dim temp As Integer
Dim p As Integer

Print
Print "排序前数组"
For i = 1 To 10
Randomize
a(i) = ((100 - 10) * Rnd + 10)
Print a(i); " ";
Next i
Print


For i = 1 To 9
p = i
For j = i + 1 To 10
If a(p) > a(j) Then p = j
Next j
temp = a(i)
a(i) = a(p)
a(p) = temp
Next i
Print "排序后数组"
For i = 1 To 10
Print a(i); " ";
Next i
End Sub

首先是随机函数, 以前学过的例子是
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

这里,upperbound 是随机数范围的上限,而 lowerbound 则是随机数范围的下限。
格式对不上了~请高手介绍一下

然后就是
for i =1 to 9
p=i
然后一直下来 都要解释一下了~看不明白啊~~

提交回答
好评回答
  • 2010-02-04 18:25:49
    Int((upperbound - lowerbound + 1) * Rnd + lowerbound)表示产生从下限开始起的(上限-下限+1)个随机数。用upperbound - lowerbound + 1只是为了让你更容易计算出你所要的随机数的范围。比如产生1-10的随机数,而1到10有十个数,用10-1=9,再加1得10个数。所以上面用100-10得到90并无不妥,只是将来取不到100,而是只求到99,所以这道题可能是对产生的随机数的要求是二位数。
    下面的是冒泡法排序,详细参考下面的网址:
     
    如果还有不懂的地方可以问我。
    

    风***

    2010-02-04 18:25:49

其他答案

类似问题

换一换
  • VB 相关知识

  • 电脑网络技术
  • 电脑网络

相关推荐

正在加载...
最新问答 推荐信息 热门专题 热点推荐
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 171-190
返回
顶部
帮助 意见
反馈

确定举报此问题

举报原因(必选):