在VB中,编写程序代码很容易找到最大数量和最小数量,三个数量比较大小也很容易。 前几天,遇到问题的是用VB编写一个小程序,实现10个随机数的排列。
我查了一些资料,在网上找到了一些有趣的排列视频。 叫做《舞动的排序算法》。 看起来很有趣,还有形象,对这个问题很有帮助。 地址是: http://v.youku.com/v _ show/id _ xmzmyodk 4nt Q4.html
3358 v.youku.com/v _ show/id _ xmzmyodk5njg4. html
3358 v.youku.com/v _ show/id _ xmzmyotaymzq0. html
具体办法如下:
打开VB6.0,在Form1中添加两个按钮Command1和Command2,将其Caption属性分别更改为“生成10个随机数”和“排序”,添加Label控件,然后在“代码”窗口中输入以下代码
选项退出
Dim c As Integer
Dim t As Integer
dim标志as integer
DIMa(9) )。
Dim p As String
私有子命令1 _ click (
Dim i As Integer
p=' ' '
Label1.Caption=' '
a(0)=int (100 * rnd1) ) )
For i=1 To 9
c=int(100*rnd1) ) )
flag=1
For t=0 To i - 1
IFc=a(t ) Then
i=i - 1
flag=0
Exit For
End If
下一步
If flag=1 Then
a(I )=c
End If
下一步
For i=0 To 9
p=p''a(I ) ) )。
下一步
Label1.Caption=p
最终辅
私有子命令2 _ click (
p=' ' '
Dim j As Integer
Dim i As Integer
Dim temp As Integer
For i=0 To 9
p=p''a(I ) ) )。
下一步
Label1.Caption=p
最终辅
第二个代码:
选项退出
Dim c As Integer
Dim t As Integer
dim标志as integer
DIMa(9) )。
Dim p As String
私有子命令1 _ click (
Dim i As Integer
p=' ' '
Label1.Caption=' '
a(0)=int (100 * rnd1) ) )
For i=1 To 9
c=int(100*rnd1) ) )
flag=1
For t=0 To i - 1
IFc=a(t ) Then
i=i - 1
flag=0
Exit For
End If
下一步
If flag=1 Then
a(I )=c
End If
下一步
For i=0 To 9
p=p''a(I ) ) )。
下一步
Label1.Caption=p
最终辅
私有子命令2 _ click (
p=' ' '
Dim j As Integer
Dim i As Integer
Dim temp As Integer
----------每次选最大的
For j=0 To 9 - i
ifa(j ) a ) j1 ) Then
temp=a(j )
a(j )=a (J1 ) )。
a(j1 )=temp
End If
Next j
下一步
For i=0 To 9
p=p''a(I ) ) )。
下一步
Label1.Caption=p
最终辅
代码有很多种,但这只是一部分。 希望能帮上忙。