十个随机数排列(vb代码)
来源:互联网 发布:ps3模拟器卡顿优化 编辑:程序博客网 时间:2024/05/17 06:21
在VB中,通过编写程序代码,找出最大的数和最小的数很简单,三个数比较大小也很简单,前今天碰到了一个问题,就是,用VB制作一个小程序,实现十个随机数的排列。
我查了一些资料,在网上找到了有几个很有趣的排列视频。叫做《舞动的排序算法》。看起来很有趣,也很形象,对这个问题很有帮助。地址如下:http://v.youku.com/v_show/id_XMzMyODk4NTQ4.html
http://v.youku.com/v_show/id_XMzMyODk5Njg4.html
http://v.youku.com/v_show/id_XMzMyOTAyMzQ0.html
具体的方法如下:
打开VB6.0,在Form1中添加两个按钮Command1和Command2,将其Caption属性分别改为“产生十个随机数”和“排序”,添加一个Label控件在代码窗口中输入如下代码:
Option Explicit
Dim c As Integer
Dim t As Integer
Dim flag As Integer
Dim a(9)
Dim p As String
Private Sub Command1_Click()
Dim i As Integer
p = ""
Label1.Caption = ""
a(0) = Int(100 * Rnd + 1)
For i = 1 To 9
c = Int(100 * Rnd + 1)
flag = 1
For t = 0 To i - 1
If c = a(t) Then
i = i - 1
flag = 0
Exit For
End If
Next t
If flag = 1 Then
a(i) = c
End If
Next i
For i = 0 To 9
p = p & " " & a(i)
Next i
Label1.Caption = p
End Sub
Private Sub Command2_Click()
p = ""
Dim j As Integer
Dim i As Integer
Dim temp As Integer
For i = 0 To 9
p = p & " " & a(i)
Next i
Label1.Caption = p
End Sub
第二种代码:
Option Explicit
Dim c As Integer
Dim t As Integer
Dim flag As Integer
Dim a(9)
Dim p As String
Private Sub Command1_Click()
Dim i As Integer
p = ""
Label1.Caption = ""
a(0) = Int(100 * Rnd + 1)
For i = 1 To 9
c = Int(100 * Rnd + 1)
flag = 1
For t = 0 To i - 1
If c = a(t) Then
i = i - 1
flag = 0
Exit For
End If
Next t
If flag = 1 Then
a(i) = c
End If
Next i
For i = 0 To 9
p = p & " " & a(i)
Next i
Label1.Caption = p
End Sub
Private Sub Command2_Click()
p = ""
Dim j As Integer
Dim i As Integer
Dim temp As Integer
'----------每次选最大-------
For j = 0 To 9 - i
If a(j) > a(j + 1) Then
temp = a(j)
a(j) = a(j + 1)
a(j + 1) = temp
End If
Next j
Next i
For i = 0 To 9
p = p & " " & a(i)
Next i
Label1.Caption = p
End Sub
代码有很多种,这只是其中的一小部分,希望对您有用所帮助。
- 十个随机数排列(vb代码)
- 十个随机数的排列(选择排序)
- 应用VB语言程序生成十个随机数
- VB小程序:生成十个不重复的随机数
- 如何用c++产生1-10十个不同的随机数(代码很经典)
- VB.net 生成随机数的小代码
- 十个随机数相加(9种方法)
- 十个随机数相加(9种方法)
- flash中乱数排列(随机数)方法
- 十个随机数的生成
- 生成十个随机数
- 十个随机数相加
- 十个随机数求和
- 十个随机数求和
- 十个随机数相加
- 十个随机数求和
- 十个随机数的求和
- 十个随机数求和 一
- 【状压DP】棋盘游戏 board
- 2013寒假练习 1088 车厢重组
- DevExpress VCL 动态加载皮肤换肤示例,支持Ribbion
- Oracle动态性能视图 v$sysstat
- Nodejs根据字符串调用对象方法
- 十个随机数排列(vb代码)
- hibernate 多对一 存id就可以了
- POJ 3292 Semi-prime H-numbers
- python 学习笔记
- 教育豪赌让中国农村家庭不堪重负
- Delphi 编译错误信息表
- java设计模式——观察者模式
- poj1113Wall
- cookie无法设置除当前域名或者其父域名之外的其他domain.