学进去

任意一个大于2位的正整数(各个位上数全相同的除外，如111)，如297，三个位上的数从大到小和从小到大各排一次，为972和279，相减，得693按上面做法再做一次，得到594，再做一次，得到495之后反复都得到495，495就为黑洞数。小丽编写了一个查找4位正整数黑洞数的程序，功能如下：
在文本框(text1)中输入，一个任意的四位正整数(全相同的除外，如1111)，点击计算按钮，在列表框(List1)中显示计算结果，在标签Label1中显示找到的黑洞数，具体代码如下所示，请完成下列问题：
Dim su(1 To 10) As Integer ‘su(i)数组用来存放原始4位数和每次计算结果
Dim a(1 To 4) As Integer ‘用来存放4位数每一位上的值
Private Sub Command1_Click()
su(1)＝Val(Text1.Text)
su(2)＝zp(su(1))
p＝2
Do While su(p)＜＞su(p－1)
p＝p＋1
____①____
Loop
For i＝1 To p
List1.AddItem su(i)
Next i
Label1.Caption＝Str(su(p))
End Sub
Function zp(m As Integer) As Integer
a(1)＝m Mod 10
a(2)＝(m\10)Mod 10
a(3)＝(m\100) Mod 10
a(4)＝m\1000
For i＝1 To 3
For j＝____②____ Step－1
If a(j)＞a(j－1) Then
t＝a(j)：a(j)＝a(j－1)：a(j－1)＝t
End If
Next j
Next i
____③____
End Function
①处程序代码为____________________________________。
②处程序代码为____________________________________。
③处程序代码为_____________________________________。

打开“考生文件夹\4350”文件夹中的“俄语系教师授课管理.mdb”数据库文件，完成以下操作后并保存:
（1）在“课程安排”表中添加一条记录，依次输入“A10”、“俄语阅读”、“选修”、“24”；
（2）以“课程编号”字段，为“课程安排”和“老师”两表建立一对多关系，并实施参照完整性；
（3）以“老师”表为数据源，创建一个名为“工龄”的选择查询，依次显示“职工编号”、“姓名”、“工龄”字段，并只显示“工龄”大于5的老师信息；
（4）以“课程安排”表为数据源，创建一个名为“课程信息”的自动报表。

（加试题）若数组元素d(1)到d(8)的值依次为“86,75,58,46,20,18,12,5”，查找某Key值的VB程序段如下：
n = 0 : i = 1 : j = 8
Key = Val(Text1.Text)
Do While i <= j
m = (i + j) \ 2             
If Key = d(m) Then  Exit Do   'Exit Do表示退出循环
If Key > d(m) Then
j = m - 1 : n = n - 1
Else
i = m + 1 : n = n + 1
End If
Loop
Label1.Caption = Str(n)
当输入不同的Key值，运行该程序段后，在标签Label1中显示的不同结果共有

A．5种

B．6种

C．7种

D．8种

eBay微调策略
eBay已经成为网络拍卖的同义词。它是第一批成功的网络拍卖商中的一员，爆发式发展为一个巨大的电子市场，在线店面有532000家。2007年eBay市场收入约达770亿美元。无数人在eBay上销售商品，数百万人通过eBay来补贴收入。eBay现在拥有的实时用户达8300万。
eBay的收入主要来源于商品销售费用和拍卖佣金，还有部分收入来源于广告费，此外，还有一些收入来自终端对终端的服务，如PayPal，它的服务解除了eBay的交易障碍，使eBay的交易速度加快。
不久以前，eBay的增长策略集中于区域扩张，以及持续革新其网站上产品的品种和影响力。eBay已经开始开发和寻求新产品、新服务，其中包括实时用户在互联网上的操作。它正在形成多元化投资组合，触及互联网每一个赚钱的领域：购物、通信、搜索和娱乐。
PayPal可以使个人与个人之间通过互联网支付钱款，这给eBay带来了额外的交易佣金。eBay在PayPal上的方式使其成为在线交易的标准支付模式，而在这个业务中的40%并非来自eBay。
2005年，eBay获得Shopping.com（一个在线购物比较网站）的Skype技术，该技术可以提供免费或费用很低的网络语音电话服务。一些eBay传统上难以渗透的市场如房地产、旅游、新车销售和高价收藏，与现在提供的服务相比，需要买家和卖家之间更多的沟通，而Skype提供的语音通信服务刚好可以解决这个问题。
eBay正在寻求票据再销售网站StubHub，并购买了分类广告网站Craislist25%的股权，还并购了Kurant，现在Prostores技术有助于eBay用户设置在线店面。一些分析家认为，当eBay的个别并购成功时，其并没有创造预期中的协同效应，多样化已经弱化了eBay的核心业务——拍卖。
eBay的拍卖业务在发生变化。eBay以固定价格销售大量商品，其固定价格销售收入已占总收入的40%。以固定价格销售这种业务的增长比在线拍卖的增长速度快。亚马逊和其他竞争对手也在用固定价格吸引更多的消费者。为了转向这种模式，eBay和网络零售巨人Buy.com达成交易，以比零售商更低的服务费，在eBay上销售DVD、电子产品、书籍和其他商品。2008年8月，eBay针对所有卖家，以“一口价”（buyitnow）的格式填写固定价格商品，降低了其登记服务费。
夫妻经销商强烈反对，但eBay认为，由可靠的零售商以固定价格销售可以使在线购物以客为本，并有利于预测。“我们正在挑战我们过去业务的核心假设，”StephanieTilenius，eBay北美区域总经理评价说，“不再关注于仅作为一家拍卖企业，我们现在正在寻找最佳的市场增长点。”这是否会带来大量的网络卖家，淡化eBay的品牌和声誉，使其成为一个跳蚤市场，还是会引导eBay向电子商务增长最快的方向发展？圈里人对此密切关注。
请回答下列问题：
（1）eBay如何利用信息系统创业？
（2）eBay的微调策略是什么？
（3）随着信息技术的发展，eBay的拍卖业务在发生哪些变化？

通过调查，收集到MMM商厦有限公司的商品进销存管理系统业务中进货管理子系统，有三个实体集。一是“商品”实体集，属性有：商品号、商品名、规格、单价、产地、备注等；二是“商店”实体集，属性有：商店号、商店名、地址等；三是“供应商”实体集，属性有：供应商编号、供应商名、地址等。供应商与商品之间存在“供应”联系：每个供应商可供应多种商品，每种商品可向多个供应商订购，每个供应商供应每种商品按月供应量控制；商店与商品间存在“销售”联系：每个商店可销售多种商品，每种商品可在多个商店销售，每个商店销售每种商品按月销售量控制。
要求：
（1）绘制进货管理子系统E-R图。
（2）依据相关规则，把进货管理子系统E-R图转换为关系模型，并注明主键和外键。

供应链管理系统如何协调计划、生产和供应商物流

通过调查，收集到MMM商厦有限公司的商品进销存管理系统业务中销售管理子系统有三个实体集。一是“商店”实体集，属性有：商店号、商店名、地址等；二是“商品”实体集，属性有：商品号、商品名、规格、单价、产地、备注等；三是“职工”实体集，属性有：职工编号、姓名、性别等。商店与商品间存在“销售”联系：每个商店可销售多种商品，每种商品可在多个商店销售，每个商店销售每种商品按月销售量控制；商店与职工间存在“聘用”联系：每个商店可聘用多个职工，每个职工只能在一个商店工作，商店聘用职工有聘用期和月薪。
要求：
（1）绘制销售管理子系统E-R图。
（2）依据相关规则，把销售管理子系统E-R图转换为关系模型，并注明主键和外键。

塔塔纳诺开创数字制造历史
2008年1月，印度塔塔纳诺轿车亮相。这是一个历史时刻，因为纳诺是当时最便宜的汽车，其价格大约为2500美元。纳诺希望在几百万人中普及，这些人以前买不起车。
塔塔汽车在2003年开始它的纳诺项目，当团队设计轿车时，该轿车要求在不影响安全、美感和顾客价值的情况下，其成本不能高于500美元。这是一项艰巨的任务。塔塔用数字制造系统应对这个挑战，该系统大大地缩短了设计新产品并将其投入市场所要求的时间。在非常短的时间内开发和生产多品种新产品的能力，是汽车工业的关键竞争优势。
直至几年以前，纳诺不可能设计和生产这样价格的汽车。塔塔汽车曾有落后的制造过程。创建和维护过程、厂房、产品设计全是手工开展，造成了选择合适的运行工具时间较长。同时要手工为装配线机塔塔纳诺开创数字制造历史器人编程，这是一个错误丛生并耗时很多的过程。这些延时产生了大量的负面后果：一辆车的计划数据过时作废，公司不能很容易地改变其生产组合，不能在现有的生产线上生产新产品，不能在相同的生产线上调度两个不同产品的组装等。
所有这些在2005年7月发生了变化，当时塔塔汽车切换至数字制造系统（DassaultSystems’Dig­italEnterpriseLeanManufacturingInteractiveApplication，DELMIA）。数字制造使产品设计和生产工程计划的过程自动化，使塔塔能计划制造过程、设计厂房平面，然后模拟这些计划的执行，包括新的制造技术的影响和在现有生产线上的产品变更。它提供数据给塔塔SAP的ERP系统，该系统计算出产品或装配的成本。数字制造系统也能模拟车间工作人员的运动，因而计划员可以设计互动的工作过程。公司使用数字制造系统能使产品和运行模型化，可在计算机上对它们进行修改。这就省去了应用昂贵的物理模型，后者每次设计变更后都要重建。
根据塔塔汽车数字制造计划的负责人T.N.Umamaheshwaran说：“如果没有DM工具，我们不可能设想有一个新厂。在厂房奠基的前两年，我们已经在它上面工作。我们不知道这个厂在什么地方，但我们知道它能做什么，每天生产750辆轿车。”
作为采用数字制造的成果，塔塔汽车缩短了新轿车的上市时间至少6个月。这个公司可以快速地识别“工作超过负荷的领域”和约束，从而快速地调整装配线以适应多种汽车型号。模拟设备和过程的能力减少了物力上的再运作成本。制造和设备计划时间减少了30%。制造计划过程的成本减少了20%。对某些功能，设计全过程的时间缩短了50%。
请回答下列问题：
（1）塔塔汽车的经验说明了信息系统在企业中扮演的角色是什么？
（2）怎样识别信息系统改善企业绩效？
（3）塔塔汽车采用数字制造的成果是什么？

（加试题）下列VB程序的功能是：程序运行时，单击命令按钮Commandl后，产生10个[1，999]范围内互不相同的随机整数，依次显示在列表框List1中，然后将它们按从小到大的顺序排序，排序结果显示在列表框List2中。
数组a用于存储产生的10个随机整数，函数f(x)用于判断随机整数x与已生成的整数是否有重复，若有重复则返回True，否则返回False。
（1）虚线框内程序段所采用的排序算法名称是__________。（填：冒泡排序 / 选择排序）
（2）在程序①和②划线处，填入适当的语句或表达式，把程序补充完整。
Dim a(1 To 10) As Integer
Function f(x As Integer) As Boolean   
′代码略
End Function
Private Sub Commandl_Click()
Dim n As Integer                         ′n用于统计已经产生的随机整数个数
Dim i As Integer，j As Integer
Dim x As Integer，k As Integer
Randomize                                  ′初始化Rnd函数
n=0
List1.Clear                                ′清除列表框中内容
List2.Clear
Do While n<10
①________                      ′产生[1，999]范围内的随机整数
If Not f(x) Then
n=n+1
a(n)=x
List1.AddItem Str( a(n))
End If
Loop
For i=1 To 9                                 ′进行排序
For j=10 To i+1 step -1
If a(j)<a(j-1) Then
k=a(j):a(j)=a(j-1):a(j-1)=k
End If
Next j   
Next i 
For i=1 To 10
②___________
Next i
End Sub

（加试题）有一组正整数，基于冒泡排序对其中的数进行升序排序。排序后奇数在前，偶数在后。排序示例如下：

排序前	78	30	64	39	49	4	8	32	18	32
排序后	39	49	83	4	8	18	30	32	64	78

 
实现上述功能的VB程序如下，但加框处代码有误，请改正。
Const n = 10
Dim d(1 To n) As Integer
Private Sub Command1_Click()
Dim i As Integer, j As Integer, t As Integer
'读取一组正整数，存储在数组d中，代码略
i = 1
Do While i <= n - 1
For j = n To i + 1 Step -1
If d(j) Mod 2 = d(j - 1) Mod 2 Then
If  d(j) > d(i)  Then              '(1)________
t = d(j): d(j) = d(j - 1): d(j - 1) = t
End If
Else                             '(2)________
t = d(j): d(j) = d(j - 1): d(j - 1) = t
End If
Next j
i = i + 1
Loop
'依次输出排序后的数据，代码略
End Sub