请问VB里怎么做一个随机选择座位的程序？
你定义的变量计算的时候进行赋值，清除的时候再全部的变量redim重新定义,用的时候再赋值就行了~
只要你能找到将文本转换为二维码的控件，程序应当不难
用随机函数不就可以了吗？？？vb问题 定义一个二维数组,该数组的值用inputbox输入,并在提上输入该数 ...
form 上 放一个 按钮，一个文本框（多行，垂直滚动条）Private Sub Command1_Click()Dim i, j As Integer Dim a(2, 3) As Integer Dim max As Integer Dim Imax, Jmax As Integer For i = 0 To 3 - 1 For j = 0 To 4 - 1 a(i, j) = CInt(InputBox("Input " + CStr(i)...
用VB编写一个程序,三个数比较大小的问题
你们的代码都属于新手看不懂的 呵呵 我给你写了一个比较容易懂的！ 先和你说一下原理 首先我弄了4个输入框控件（text） 一个按钮 输入框1 在代码中为 A ， 输入框2 为B，3为C， 4为D ！ 前三个 是比大小的输入数 输入框4也就是D 为显示最大数的！ 原理为：a和...
vb问题请问怎么做!!十分感谢
For i = 1 To 5 total = total + arr(i).cost * arr(i).sold Next MsgBox CStr(total)End Sub Private Sub Command3_Click() '（d）列出存货小于20的柜台存货数 Dim s As String s = "Bin" + vbTab + "Cost per Item" + vbTab + "Contains left" + vbCrLf For i = 1 T...
vb问题,我想做一个程序渐隐进入和退出的程序,帮忙看下代码,它最后unloa...
Cancel = 1 i = 255 Timer2.Enabled = True End If End Sub 这是因为你最后那个Unload Me会再次触发Form_QueryUnload事件的。通过UnloadMode参数可区分你手工点击退出操作与程序调用Unload的操作，从而把Unload过滤掉。楼上两位的代码也可行，但我的才是最正宗的，没有使用其他的变量，因为这种情况VB早...
vb中一个简单for循环的问题
For循环的格式是：For 循环变量=初值 To 终值 [Step 步长][语句]Next[循环变量]当步长缺省时，缺省值为1。在Visual Basic中For循环属于“先检查后执行”语句，这种语句的执行过程：当步长为正，“循环变量”首先取得“初值”，检查是否超过“终值”，如果超过就一次也不执行而跳出循环。如果没有超过就...
你好 我想问一下 VB 里面 怎么在一个FRAME 里做出三个同心圆的shape...
因为在VB里控件是用左上角确定位置的，所以要将控件进行“中心对齐”（就是现在需要的同心圆），需要一点变通。以下是先固定圆心的方法。假设你是在设计时添加的控件数组，数组名字为S，圆心的位置为 (X1,Y1)，那么以下代码可以将3个圆保持同心：S(0).Move X1 - S(0).Width \/ 2,Y1 - S(0)...
一个VB的编程问题
yy = Inet1.GetChunk(32768)If yy = "" Or Abs(t - Timer) > 20 Then Exit Do xx = xx & Uf8ToUf(yy) ‘为了解决中文乱码问题的函数 dl = xx Loop Public Function Uf8ToUf(strUf8 As String) As String '将UF8转为VB内部处理编码UF ''On Error GoTo MyErr Dim lngStrLen As...
vb addnew的问题
2）AddNew 方法（远程数据），为可更新的 rdoResultset 对象建立一个新行。语法：object.AddNew object 所在处代表一个对象表达式，其值为“应用于”列表中的一个对象。3）AddNew 方法范例 该范例使用 AddNew 方法创建具有指定名称的新记录。Public Sub AddNewX() Dim cnn1 As ADODB.Connection ...
我想问下vb中向列表框添加项目使用什么方法?
vb中向列表框添加项目的操作方法：1、打开VB软件，绘制好相应的控件，页面中共有两个命令按钮，一个是列表框，另一个是文本框。2、接下来更改一下各个控件的属性详情。3、编写命令按钮从键盘输入文本框，并添加项目代码。4、编写删除代码，记得遍历查询。5、运行后便可以看到这样的程序。6、此时就可以...
用vb编写一个程序,解决搬砖问题:
i为男人,j为女人,o为小孩子。for(i=0;i<9;i++){ for(j=0;j<12;j++){ for(o=0;o<36;o=o+2){ if((i+i+o==36)&&(4*i+3*j+o\/2==36)){ print(i&"=="&j&"=="&o);}}}
苌齐复方： 思路:还是产生随机序列的问题.1.建立一个有62个元素的一维数组.2.产生62个(1--62之间)的随机数,每产生1个要与已经存在的不重复,就存放到数组里.3.根据数组下标的序号按照8行输出. 1个按钮,1个文本框,代码如下:Private Sub ...
桃江县18358426695： 如何用VB制作一个班级座位随机抽取程序 - ？
苌齐复方： 你模拟xcols,ycols分别为m,n;然后,随机数为 Int(Rnd*m)+1 来模拟m, Int(Rnd*n)+1模拟n,设置一个二维数组,开始时都设置为0,然后每次选出来一个都设置为1,选出来时要先判断数组的值不为1,为1要重新生成一个随机数座位.
桃江县18358426695： 请用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 = ...
桃江县18358426695： 如何用VB程序,生成一个随机名单的抽取? - ？
苌齐复方： 随机数公式:Int((upperbound - lowerbound + 1) * Rnd + lowerbound) 是产生指定区间的随机数 ,这里,upperbound 是随机数范围的上限,而 lowerbound 则是随机数范围的下限.在使用产生随机数公式之前要先调用函数Randomize 这样每次产生的随机数就不会重复了
桃江县18358426695： 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 ...
桃江县18358426695： 用VB做电影院座位选择工具 - ？
苌齐复方： 这个应该不难,定义一个行列的坐标系,用来标识每个座位,如果有座位的就标位1,没有座位的就标位0,如果此座位票已售出,就设为99(或者其他也行),至于移动,删除等其实就是改变整个坐标系的值了,然后通过图形方式显示出来,移动呀,删除呀什么的操作可以通过拖动等来实现,考虑到电影院中实际的前排与后排座位是有一定的错开的,所以在绘制的时候,要考虑这个错开距离,这样就美观了
桃江县18358426695： 如何用Vb做一个摇号器,就是摇班级座位号的,给个方法,或者其他…… - ？
苌齐复方： 你好!就是用产生随机数的方法啊.如有疑问,请追问.
桃江县18358426695： VB怎么做随机啊?要可以调几率的.给下代码 - ？
苌齐复方： 函数名称RndNumber,要传两个参数,MaxNum 最大值,MinNum 最小值,函数中间没有进行判断,需要的话可以自己改一下:)Function RndNumber(MaxNum,MinNum) Randomize RndNumber=int((MaxNum-MinNum+1)*rnd+MinNum) RndNumber=RndNumber End Function%> 调用:response.write RndNumber(30,10)
桃江县18358426695： 求VB程序:输入多个数字随机选取1个 - ？
苌齐复方： Private Sub Command1_Click() Randomize Label1.Caption = List1.List(CInt(Rnd * (List1.ListCount - 1))) End Sub Private Sub Form_Load() Dim str As String Dim str1() As String str = InputBox(＂请输入数字,以'.'隔开＂, ＂输入数字＂) str1 ...
桃江县18358426695： 如何用VB编一个随机抽签的程序?急急急急急急! - ？
苌齐复方： Public a As IntegerPrivate Sub Command1_Click()If a < 3 Then Label1.Visible = TrueIf a >= 3 And a <= 6 Then Label2.Visible = TrueIf a > 6 Then L...
