迟到的vb作业

 我觉得这节课的内容挺简单的,不像上节课那么的枯燥无味,方法也简遍,我也在规定时间里做完了练习,但是令我苦恼的是:电脑不配合,连不上网.so 作业又交迟了.不过,迟也有迟的好处,我又趁这机会练习了一遍,印象更深刻了.(这是十天前的感悟,至于为什么现在交,因为每次上机时,都没时间登博客了,所以,作业还是要当堂完成,要不然就会出现像我这样一拖再拖的情况)

任务有:

1: 出现15个数

2:出现15个数,最小的在最后

3:出现15个数,从小到大排序

4:在窗体上添加个文本框,便于改变数量

在此,就只打上最难的最后一个程序吧

Option Base 1

 

Private Sub Command1_Click()

Dim n As Integer

Dim size As Integer

size = Int(Val(Me.Text1.Text))

Dim sierdun() As Integer

ReDim sierdun(size)

 

n = LBound(sierdun)

While n <= UBound(sierdun)

 sierdun(n) = Int(Rnd * 1000)

 n =n + 1

Wend

 

Dim swap As Integer

m = LBound(sierdun)

While m <= UBound(sierdun) - 1

n = LBound(sierdun)

While n <= UBound(sierdun) - m

   Ifsierdun(n) < sierdun(n + 1) Then

  swap = sierdun(n)

  sierdun(n) = sierdun(n + 1)

  sierdun(n + 1) = swap

  End If

   n= n + 1

  Wend

   m= m + 1

  Wend

While n <= UBound(sierdun)

 Print sierdun(n)

  n =n + 1

Wend

End Sub

 结果展示:

第一个

第二个

第三个

v

第四个