题目

有一批货物，已知每件货物的重量和货架号，机器人在可承受的载量范围内，每趟按货物顺序连续装载尽量多的货物，并将各货物送到其货架号相应的货架上。如图a所示，货架构成是环形结构，货架是按顺时针方向从1到10进行编号，第10号货架（即图中A处）不装货物，机器人在A处装载货物。每趟装载货物后，机器人按所装载货物的倒序配送货物，配送过程中尽可能走更短的路线，例如：某趟机器人所装载货物的货架号依次为：3，1，7，9，则机器人按倒序配送货物的路线如图a中带箭头虚线所示，配送完成后回到A处继续下一趟配送任务。现要求在限定配送趟数内完成任务时，计算机器人所能承受装载的最大重量至少为多少？机器人完成所有趟数的配送任务并回到A点的总行程是多少？ 图 a 小李编写VB程序实现上述功能：在列表框List1中按货物顺序显示其重量和货架号，在文本框Text1中输入机器人送货趟数，单击“结果”按钮Command1后，标签Label3和Label4中分别显示要求机器人可承受的最大载重最小值和送货总行程。程序运行界面如图b所示。 图 b 请回答下列问题： （1） 如图b所示，机器人最大载量达到20时，机器人第3趟配送的货物数量是件。 （2） 实现机器人送货功能的VB程序如下，请在划线处填入合适的代码。 Const num = 8     '货物数量 Const shelf = 10     '货架数量，1-9号货架可供存储货物，第10号货架用作机器人装货点 Dim g(1 To num) As Integer      '各货物的重量 Dim s(1 To num) As Integer       '各货物的货架号 Private Sub Form_Load() '从数据库中读入num件物品的重量、货架号，分别存储在数组g、s中 '将各物品数据显示在list1中，代码略。 End Sub Private Sub Command1_Click() Dim i As Integer, j As Integer, n As Integer, max As Integer, total As Integer Dim head As Integer, tail As Integer, dis As Integer, part As Integer total = g(1) For i = 2 To num If g(i) > max Then max = g(i) total = total + g(i) Next i n = 0 For i = max To total part = 0: n = 0: head = 1: dis = 0 For j = 1 To num part = part + g(j) If part > i Then     n = n + 1: j = j - 1: tail = j     dis = dis + tran(head, tail)     part = 0: head = tail + 1 End If     Next j If part > 0 Then n = n + 1 dis = dis + tran(head, tail) End If If n <= Val(Text1.Text) Then Exit For Next i Label3.Caption = "机器人可承受的最大载量至少为：" + Str(i) Label4.Caption = "机器人完成各趟任务的总行程为：" + Str(dis) End Sub Function tran(p As Integer, q As Integer) As Integer '计算机器人每趟按装货倒序配送并回到A 处的行程 Dim temp As Integer, t1 As Integer, t2 As Integer, k As Integer temp = 0: t2 = shelf For i = q To p Step -1 t1 = t2: t2 = s(i) k =  If k > (shelf + 1) \ 2 Then k = shelf - k temp = temp + k Next i If t2 <= shelf \ 2 Then temp = temp + t2 Else temp = temp + shelf - t2 tran = temp End Function 答案： 【1】2 【1】max=g(1)【2】tail=num【3】(t2 -t1+shelf) mod shelf 或等价表达式

查看本题答案和解析