求用VB排一个随机座位生成器

vb 随机排座位的程序~

form内代码修改为：
Private Sub Command1_Click()


Dim a(3) As student
a(0).sname = "sdf"
a(0).sex = "男"
a(1).sname = "gsdf"
a(1).sex = "女"
a(2).sname = "jkj"
a(2).sex = "女"
a(3).sname = "kjjij"
a(3).sex = "男"

Dim i As Integer, temp As Integer

For i = 0 To 3
a(i).num = i
Next

Dim m As Integer
For i = 3 To 0 Step -1
Randomize Timer
m = a(Int(Rnd * (i + 1))).num
Text1(i) = a(m).sname

'把用过的学号换到数组的后面
temp = a(i).num
a(i).num = a(Int(Rnd * (i + 1))).num
a(Int(Rnd * (i + 1))).num = temp
Next
End Sub


'说的直白点就是，所有数据下标全部移到a的后面。
'具体的程序代码没有细看，但提示的错误己解决

n = 1
For i = 1 To 8
Print Tab(3);
For j = 1 To 9
Print "f0711" & num(n),
n = n + 1
Next
Next

思路：还是产生随机序列的问题．
1．建立一个有62个元素的一维数组．
2．产生62个(1－－62之间）的随机数，每产生1个要与已经存在的不重复，就存放到数组里．
3．根据数组下标的序号按照8行输出．
1个按钮，1个文本框，代码如下：
Private Sub Command1_Click()
Dim I As Integer
Dim n As Integer
Dim x As Integer
Dim YesNo As Boolean
Dim D(1 To 62) As Integer
Dim MyStr As String

Randomize
n = 0
Do While n < 62
x = Int((62 * Rnd) + 1) ' 生成 1 到 32 之间的随机数值。
YesNo = False
For I = 1 To n
If x = D(I) Then
YesNo = True
Exit For
End If
Next I
If Not YesNo Then
n = n + 1
D(n) = x
End If
Loop

MyStr = ""
For I = 1 To 62
If D(I) < 10 Then
MyStr = MyStr & " " & D(I) & " "
Else
MyStr = MyStr & D(I) & " "
End If
If I Mod 8 = 0 Then
MyStr = MyStr & Chr(13) & Chr(10) & Chr(13) & Chr(10)
End If
Next I
Text1.Text = MyStr

End Sub

---

泉港区18213681820： 求用VB排一个随机座位生成器 - ？
乌锦消癌： 思路:还是产生随机序列的问题.1.建立一个有62个元素的一维数组.2.产生62个(1--62之间)的随机数,每产生1个要与已经存在的不重复,就存放到数组里.3.根据数组下标的序号按照8行输出. 1个按钮,1个文本框,代码如下:Private Sub ...

泉港区18213681820： 如何用VB制作一个班级座位随机抽取程序 - ？
乌锦消癌： 你模拟xcols,ycols分别为m,n;然后,随机数为 Int(Rnd*m)+1 来模拟m, Int(Rnd*n)+1模拟n,设置一个二维数组,开始时都设置为0,然后每次选出来一个都设置为1,选出来时要先判断数组的值不为1,为1要重新生成一个随机数座位.

泉港区18213681820： 请用VB编一个随机座位表,横9纵7,就用学号1—63来显示,其中60号要一直出现在前三排中…要详细的哦 - ？
乌锦消癌： 添加一个按钮,窗体适当拉大,代码如下:Option Explicit Private Sub Command1_Click() Dim z(63) As Integer Dim i As Integer Dim j As Integer Dim x As Integer Dim n As Integer Dim YesNo As Boolean'生成1-63随机排列数字 Randomize n = ...

泉港区18213681820： 如何用VB程序,生成一个随机名单的抽取? - ？
乌锦消癌： 随机数公式:Int((upperbound - lowerbound + 1) * Rnd + lowerbound) 是产生指定区间的随机数 ,这里,upperbound 是随机数范围的上限,而 lowerbound 则是随机数范围的下限.在使用产生随机数公式之前要先调用函数Randomize 这样每次产生的随机数就不会重复了

泉港区18213681820： vb 随机排座位的程序 - ？
乌锦消癌： form内代码修改为:Private Sub Command1_Click() Dim a(3) As student a(0).sname = ＂sdf＂ a(0).sex = ＂男＂ a(1).sname = ＂gsdf＂ a(1).sex = ＂女＂ a(2).sname = ＂jkj＂ a(2).sex = ＂女＂ a(3).sname = ＂kjjij＂ a(3).sex = ＂男＂ Dim i As ...

泉港区18213681820： 用VB做电影院座位选择工具 - ？
乌锦消癌： 这个应该不难,定义一个行列的坐标系,用来标识每个座位,如果有座位的就标位1,没有座位的就标位0,如果此座位票已售出,就设为99(或者其他也行),至于移动,删除等其实就是改变整个坐标系的值了,然后通过图形方式显示出来,移动呀,删除呀什么的操作可以通过拖动等来实现,考虑到电影院中实际的前排与后排座位是有一定的错开的,所以在绘制的时候,要考虑这个错开距离,这样就美观了

泉港区18213681820： 如何用vb编程随机排列从1到100 - ？
乌锦消癌： 使用Rnd 函数完成随机数取得.1. Rnd 函数,返回一个包含随机数值的 Single.2. Dim MyValue Randomize ' 对随机数生成器做初始化的动作.MyValue = Int((100 * Rnd) + 1) ' 生成 1 到100之间的随机数值.

泉港区18213681820： 怎么用VB语言做随机点名器? - ？
乌锦消癌： 代码如下: Private Sub Command1_Click() Dim a As Integer '申明一个整形变量 Const n = 10 '设置备选人数 Randomize '初始化随机数 a = Int(Rnd * n + 1) '产生随机数 MsgBox ＂第＂ & a & ＂位被点名!＂, vbOKOnly, ＂点名＂ '输出结果 End Sub

泉港区18213681820： 求一VB随机排数的代码？
乌锦消癌： Dim a(5) As Integer Private Sub Command1_Click() '生成不重复的随机数 aa: Text1.Text = ＂＂ For i = 1 To 5 Randomize a(i) = Int(Rnd * 15) + 1 Text1.Text = Text1.Text & ＂ ＂ & a(i) Next i For i = 1 To 5 For j = i To 4 If a(i) = a(j + 1) Then GoTo ...

泉港区18213681820： VB程序随机数的排列 - ？
乌锦消癌： Dim A(5) As IntegerPrivate Sub Form_Click() Dim I, J As Integer Dim Temp As Integer Form1.Cls '产生6个随机数 Randomize For I = 0 To 5A(I) = Int(Rnd * 100)Print A(I); Next I '从小到大排列 For I = 0 To 4For J = I + 1 To 5If A(I) > A(J) Then...