上周进行了15个数的排序,多次的复制粘贴我竟然是一个一个粘的(捂脸),今天上课才反应过来其实可以一变二,二变四,四变八…….如约而至,老师教给了我们简单的方法。但是程序有点多来不及记下来(没有过目不忘的本事),甚至没有拍下来,所以做作业的时候有点慢,过程中出现了好多问题。感觉vb有点像数学的证明题,但是又不完全像,因为有时候判卷老师没有勇气把我的证明过程全部看完,看着差不多就会把分给我,但是计算机却显得好绝情,有一点错就不会运行。有时候试过好多遍都不行真的想放弃了,初学vb经验不足,查错,改错对我来说真的是太困难了,没办法只能厚着脸皮问,在这里特别感谢老师,学长对我的指点,感谢你们不厌其烦地回答我特别幼稚的问题。最终终于完成了四个小作业。
下面让我们一起回顾一下本节课内容吧。
Dim n As Integer 注意:一定要注意n值的变换避免出现死循环。
Dim sierdun(15) AsInteger
n = 1
While n <= 15
sierdun(n) = Int(Rnd *1000)
n = n + 1 (瞧十五行的字变成了五行)
Wend
n = 1
While n <= 15
Print sierdun(n)
n =n + 1
Wend
End Sub
以下这个是最后一个作业(感觉程序好复杂,至少我今天还不能消化,更记不住。慢慢来吧。)
Option Base 1 (下标下界从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