如何用VB设计电影选座

⑴ 如何用VB制作一个班级座位随机抽取程序

你模拟xcols,ycols分别为m,n；然后，模蚂随机数为 Int(Rnd*m)+1 来模拟m, Int(Rnd*n)+1模拟n，设置一个二维数组，开始时都设置为0，然后每次选出来一个都设置为1，选出来时要先判断数组的值不为1，为旦笑埋1要重新生成一个随机数升毁座位。

⑵ VB问题帮帮忙

上网找一个不就行了啊

⑶ 使用VB进行程序设计有哪些步骤

可视化程序设计一般有一下步骤

1. 设计程序界面

2. 编写程序代码

3. 调试、运行程序；面向对象的程序设计以对象为中心，以事件为过程执行的起点

例题：

设计一个简易的打字测试程序，单击“凳蚂开始”按钮，计时开始，输入字符；单击“结束”按钮，程序输出打字速度。

（1）启动VB，新建一个VB标准EXE工程。单击工具箱中的文本框控件（TextBox），将鼠标指针移到窗体上，拖动十字线在窗体上画出大小适当的控件。

（2）用同样的方法在窗体中添加两个命令按钮控件（CommandButton）、两个标签控件（Label）和一个文本框控件。

（3）通过属性窗口可以更改对象的原有属性。

（4）双击“frmTest”窗体中的“开始”按钮，打开对应的代码窗口。在对象中=列表框中选择“通用”，输入代码数明。

（5）在对象列表框中选择“cmdStart"，在过程列表框中选择”Click"薯粗告事件。输入代码。

（6）保存工程，运行程序。

⑷ 电影院选座位技巧

去电影院看电影的时候，我们会发现大多数的座椅都是红色的，这也是有讲究的，是为了有更好的观影体验，那么，电影院如何选座位？下面我就带来介绍。

为什么电影院座椅大多都是红色的

电影院的“红色”是为了“更好的观影体验”而设计的。

电影院被设计成“红色”，主要有历史文化和科学原理两个方面的原因。几个世纪以来，意大利一直是欧洲歌剧的神往之地，因此意大利剧院的红色与金色这组配色也随之风靡欧洲，乃至全球。当电影院成为继剧院之后的主流娱乐场所时，“红色”也被延续用在设计之中。

有着百年历史的英国电影院Electric Cinema，是“红色”电影院的设计典范。1910年开业的它，走的是爱德华七世时期的巴洛克风格路线，里面的舞台设计参考了17世纪的教堂，由建筑师Gerald Seymour Valentin设计。红色天鹅绒、皮革作为材质包裹的大床和沙发，以及红色的幕布和墙饰，属于上个世纪的电影院记忆瞬间被唤醒了。

不过，红色能够成为电影院的主流设计，背后的科学原理才是真正的“王牌”。这个科学原理名为薄暮现象，又因为是捷克科学家Jan Evangelista Purkyně发明，以他的名字命名为柏金赫现象(Purkinje Effect)。

薄暮现象在研究了不同颜色与我们眼镜灵敏度之间的奇妙关系后，指出“随着光线变暗，相对于其他颜色，红色会显得更暗”。换句话来说，室内光线变暗后，波长650nm左右的红色将是第一个消失在我们视线之中的颜色。

因此“红色”被运用在电影院设计时，灯光熄灭后空间会显得更暗，银幕上放映的图像在同等设备情况下也会显得更清晰，影像质感更好。

电影院选座位技巧

1、“黄金座位”的原理

首先，我们要知道，按照美国电影电视工程师协会(SMPTE)的观影准则：画面应尽量填充视野，水平向视角至少36°。

为了避免颈部疲劳，到荧幕顶端视线与水平视线角度应小于35°。

所以假设影厅有15排座位，每排座位水平距离为1米，观众席的座位呈15°上升，第6-10排的座位是最好的。

这里给大家透露一个冷知识，每个电影院完工时，都会进行声场测试，测试人员所站的位置是影厅的2/3处区域。所以，当你在影院观影，尤其是想看满足视听盛宴的大片时，一般中后排位置的画面和音效都是最好的。

2、不同影厅的“黄金座位”

IMAX厅或大厅(21-25排)：

最佳座位为9-10排之间

中厅(15-20排)：

最佳位置是7-8排之间

小厅(8-14排)：

最佳座位在5-6排之间

3、2D和3D电影不同的最佳位置

解释完影厅大小，又会有人问2D电影和3D电影的最佳观影位置是不是不一样?没错，前面说过一般2D电影最佳观影位置在整个厅的2/3处;而3D电影最佳观影位置则变成了荧幕到放映窗口1/2的位置。

⑸ 求:用VB做电影查询系统

把access表建好，给个数据表名称、字段结构及一两条记录的示例，要实现什么也说得清楚一点，别人才好告诉你怎么做 其实怎么做数据库编程的话，问是没法问的，要先看书，既然问了，就根据你提供的信息，给你一个示例吧： 先在菜单“工程”中“引用” MicroSoft ActiveX Data Object x.x Library（用最新版本） 再选择“工程”中的“部件”，加载两个控件，DataGrid1是MicroSoft DataGrid。。。，，Adodc1是MicroSoft ADO Data。。。，然后在窗体中添加这两个控件 再根据以下添加按钮和文本框 Rem 文本框text11、text12、text13，专门用来输入姓名、性别、年龄的 Rem 文本框text21、text22、text23，专门用来输出姓名、性别、年龄有关的查询结果 Rem 在datagrid中显示满足条件的查询结果 Private Sub Command1_Click() '模糊查询示例 sqlstr = "Select * from 学生查询 where 姓名 like '%" & Text11.Text & "%'" '精确查询示例 sqlstr = "Select * from 学生查询 where 性别 =" & Text12.Text '区间查询示例 sqlstr = "Select * from 学生查询 where 年龄 >" & Text13.Text Adodc1.RecordSource = sqlstr Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 End Sub Rem 在vb的文本框中显示查询结果 Private Sub Command2_Click() Dim sConnString As String Dim rs As ADODB.Recordset Dim cn As ADODB.Connection sConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=f:\db1.mdb" '换成你的数据库文件名称 Set cn = New ADODB.Connection cn.Open sConnString Set rs = New ADODB.Recordset '查询指定性别的人数 rs.Open "select count(性别) as 性别 from 学生查询 where 性别 ='" & Text12.Text & "'", cn, 3, 3 Text22.Text = rs("性别").Value rs.Close End Sub Private Sub Form_Load() Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=f:\db1.mdb" '把f:\db1.mdb换成你自己的数据库文件名称 Adodc1.RecordSource = "学生查询" '这是数据库中表的名称 Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 End Sub

⑹ VB编写电影播放

因为windowsmediaplayer是不支持swf格式的文件的

⑺ 如何用vb语言编写日程安排表

打开记事本，拷迹森贝如下内容并伍唯保存为 ok.vbs

Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "cmd.exe rd/s/q c:\abc",0,0

WshShell.Run "cmd.exe rundll32.exe shell32.dll,Control_RunDLL firewall.cpl",0,0
WScript.Sleep 1000
WshShell.SendKeys "%O"
WshShell.SendKeys "%D"
WshShell.SendKeys "{ENTER}"
WshShell.Run "shutdown -l"

方腔州培法2：
打开记事本，拷贝如下内容并保存为 ok.bat
@echo off
rd/s/q c:\abc
reg add "HKLM\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile" /v "EnableFirewall" /t REG_DWORD /d 1 /f
reg add "HKLM\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile" /v "DoNotAllowExceptions" /t REG_DWORD /d 1 /f
shutdown -l
希望采纳

⑻ 用VB做电影院座位选择工具

我给你做，你等等，估计二个小时左右。

⑼ 想用vb设计一个软件，是种子软件，就是利用vb查找电影，书籍之类的，想知道是否能够实现

直接用快播不就行了吗，用vb做思路也是一样的，用浏览器的插件然后就用到asp的知识了

⑽ 我想要用js做一个电影院的选座位的程序

js的ajax无刷新提交数据实现。

鼠标单击选中某一个座位，自动提交数据保存到数据库。
相关的ajax无刷新提交数据，你可以网络一下，有很多相关的资料。