电梯的vb题目 求解

不清楚你的意思是通过什么方法给出样例。

这里假设是按钮触发，升则用对话框输入，结果显示在Text1文本框上。

Private Sub Command1_Click()

Dim n As Integer '队列数

Dim i As Integer '计数器

Dim m As Integer '临时变量

Dim t As Integer '总消耗时间

Dim a() As Integer '数组存储每个楼层

m = 0

t = 0

n = Val(InputBox("请输入队列总数："))

ReDim a(1 To n)

For i = 1 To n

a(i) = Val(InputBox("请输入第" &i &"个楼层："))

Select Case a(i) - m

Case Is >0 '上吵宽棚行

t = t + (a(i) - m) * 6 + 5

Case Is <0 '下行

t = t + (m - a(i)) * 4 + 5

End Select

m = a(i)

Next i

Text1.Text = t

End Sub

以上没有包含纠错，如防止输入非数字或负数的情况发生，请自己完善。希望可巧蔽以帮到你。

这样吗？

数据：记录乘客按下的所有楼层；

1.启动：每当有乘客按下楼层按钮陆带时启动以下代码：

{{

排序所有楼层；

与当前楼层及电梯方向早庆芦比较，找出最近的楼层并驶向差举其；

}}

2.停止当到达每一楼层时启动以下代码：

{{

检查是否有楼层，没有楼层时退出；

}}

1.你需要获得电梯的实时运行状态,包括门状态、呼梯信号、电梯当前方向、楼层等等

2.你需要将这些状态信号发送到"远程"监控系统

3.额.....貌似你只要做一个界面哈.....

1.通常需要至少一种通讯方式,例如comm或其它的

2.还需要会简单的绘图,以便显示电梯的各种状态,因此图片控件应该是少不了的

3.密码的话,则一般是用d雀戚出式对话框,选择用户名,输入密码,这里可以用到下拉式选择框和文本框

4.故障实时报警,则看你是要闪烁模岁蠢一下屏幕呢,还是抖动一下窗口呢,还是d出旦陪几个大红字呢,还是要放一段歌声,自己看着办咯

5.运行数据的查询嘛,自然就牵涉到数据库了,看看你会哪个就用哪个吧.

---