请问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...