在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生成不重复的随机数 我的建议是:第一步、先做一个数组,存上这35个数(可以不是连续的数,也可以是人名、字符串什么的);第二步、随机生成一个1-35之间的数,输出;第三步:把这个数和数组的第一个单元交换;第...
只是一个初学者的一个小小的程序,产生一个随机数的小程序!
VB.NET生成1-10不重复随机数.重点是生成随机数,而且不重复。
1.VB产生随机数 2.指定范围,如多少以内 ,指定位数,产生指定范围的随机数数个
易语言取十个随机数源码,取十个随机数,取一个随机数
vb.net写的随机数生成 界面美观 生成后可冒泡排序 可自定义生成个数 和范围
用VB产生20个100到300之间的随机数 并按大小排列输出
生成随机数,冒泡,升序,降序排列 刚刚接触VB.NET一个星期,写了一个简单的小程序。 我还是一个菜菜 环境:日文XP2+VB.NET2005
C语言代码,可以随机生成10个随机数,并且按照升序排列好输出
老师每次上课都用这个程序来产生随机数抽取题目,可以自由选择哪些数已经选过不再出现
随机数随机数随机数随机数随机数随机数随机数随机数
VB写的产生30个介于0至50之间的互不相同的随机数,并排序输出.代码在XP,VB6环境下调试通过
产生20个不重复的随机数的代码,可以在随即选题时使用
C++ 1~100 十个随机数代码~ 这个代码用处很多,比如写题目时(骗分),玩游戏(垃圾游戏)。(好像不对啊~……) 66666666666666666666~
VB.NET生成不重复的随机数源程序。 VB.NET生成不重复的随机数源程序。
猜随机数的java代码 游戏运行时产生一个0-1000之间的随机整数,要求用户从控制台输入数字,若输入的数字比产生的数字小,则输出:“太小了,再大一点!”,若输入的数字比产生的数字大,则输出:“太大了,再小一点...
Java产生随机数代码 Java产生随机数代码
matlab生成随机数+源代码
使用 C 语言产生正态分布的随机数。给出了全部的源代码。产生的随机数保存在文本文件中,并给出了 MATLAB 直方图验证的源代码。
1. 设计并实现一个随机数生成电路,每2秒随机生成一个0~999之间的数字,并在数码管上显示生成的随机数。2. 为系统设置一个复位键,复位后数码管显示“000”,2秒后再开始每2秒生成并显示随机数,要求使用按键复位。