怎么用VB制作一个随机座位生成器

推荐回答

思路：还是产生随机序列的问题．1．建立一个有62个元素的一维数组．2．产生62个(1－－62之间）的随机数，每产生1个要与已经存在的不重复，就存放到数组里．3．根据数组下标的序号按照8行输出．1个按钮，1个文本框，代码如下：Private Sub Command1_Click()Dim I As IntegerDim n As IntegerDim x As IntegerDim YesNo As BooleanDim D(1 To 62) As IntegerDim MyStr As StringRandomizen = 0Do While n < 62x = Int((62 * Rnd) + 1) ' 生成 1 到 32 之间的随机数值。YesNo = FalseFor I = 1 To nIf x = D(I) ThenYesNo = TrueExit ForEnd IfNext IIf Not YesNo Thenn = n + 1D(n) = xEnd IfLoopMyStr = ""For I = 1 To 62If D(I) < 10 ThenMyStr = MyStr & " " & D(I) & " "ElseMyStr = MyStr & D(I) & " "End IfIf I Mod 8 = 0 ThenMyStr = MyStr & Chr(13) & Chr(10) & Chr(13) & Chr(10)End IfNext IText1.Text = MyStrEnd Sub