2016 3 24第一次写博客
今天的vb课上的还阔以,主要学习了数字的交换,排序,if函数的简单运用等等。感触最深的是15个数的排序问题。用了好多的复制粘贴。
下面让我们来回忆一下,首先建一个小按钮双击后开始输入程序。
1. 给A-O这15个字母赋一种数值型如Dim a As Integer Dim b As Integer Dim c As Integer……
2. 给15个字母定义随机数范围如
a = Int(Rnd * 1000)
b = Int(Rnd * 1000)
c = Int(Rnd * 1000)……
3.然后输入if条件函数
If a < b Then
swap = a
a = b
b = swap
End If……【由于该过程涉及100多个此项比较繁琐该形式可以转换为If a < b Then
Call swap(a, b)
End If这样5行的文字就变为3行,但是需要在程序的末尾加Private Sub swap(x AsInteger, y As Integer)
Dim temp As Integer
If x < y Then
temp = x
x = y
y = temp
End If】
注:排序问题可以理解成比较大小的问题,15个数比大小,利用那个辉三角易知ab bc cd de ef fg gh hi ij jk kl lm mn no ; ab bc cd de ef fg gh hiij jk kl lm mn; ab bc cd de ef fg gh hi ij jk kl lm ; ab bc cd de ef fg gh hiij jk kl ……依次减少一项,最后输出a-o这15个数