⑴根据每试场安排的人数，判断输入的试场号是否在试场总数范围内，若是则转到⑵，否则重输试场号；

⑵根据考生次序和试场人数，计算每一考生所在试场号存入数组sc；

⑶计算考生在本试场中的次序，再根据试场安排的排数，计算考生座位所在的组数和排数，分别存人数组z和数组P。座位分布为“S”形，奇数组和偶数组座位排列顺序不同。

根据以上算法编写VB程序，在文本框Text1中输入组数，在文本框Text2中输入排数，在文本框Text3中输入试场号，单击“查询”按钮Command1，在List1中显示该试场座位表(名字前的数字是考生在名单中的次序)，运行界面如图2所示。

PRIVATE SUB FORM__CLICK( )

   S=0

  FOR A = 1 TO 5

    FOR B= 1 TO 3

    S=S+1

    NEXT B

  NEXT A

PRINT S

END SUB

具体算法描述如下：

⑴将文本框Text1中的n个数据依次读取到数组a中；

⑵构造一个数组b(j)，j表示升序子序列的长度，b(j)的值表示所有j长度升序序列中最小的末尾元素值。例：序列(2,6,4,5)，长度为2的子序列有(2,6)、(2,4)、(2,5)、(4,5)，则b(2)=4；

⑶从第1个元素开始，依次处理到第i（1≤i≤n）个元素为止，b数组所能达到的最大下标值maxlen，处理过程分两种情况：

A.a(i)>b(maxlen)，则最长升序子序列的长度增加；

B.a(i)<b(maxlen)，则在b数组中逆序查找到第一个b(j)>a(i)(maxlen-1≤j≤1)，更新数组b中升序子序列长度为j+1时所存储的元素值。

以图中数据为例：

⑷数组b的最大下标值即为最长升序子序列的长度。实现上述过程的VB程序如下，请回答下列问题：

⑴将第一个整数各位上的数字按照从低位到高位的顺序依次存入数组a（1）、a（2）、…a（La）中，将另一个整数各位上的数字按照从低位到高位的顺序依次存入数组b（1）、b（2）、…、b（Lb）中。其中，La表示第一个整数的位数，Lb表示第二个整数的位数；

⑵按照从低位到高位的顺序，将两个整数各位数值进行逐位乘法计算（第一轮先让b（1）依次乘以a(1)、a(2)、…、a(La)，第二轮再让b(2)依次乘以a(1)、a(2)、…a(La)，依次进行)，每位的乘法结果也按照低位到高位的顺序依次存入数组ans(1)、ans(2)、ans(3)…中；

⑶对数组ans中的计算结果进行从低位到高位的进位处理；

⑷统计数组ans中实际计算结果的有效数值位数，并将位数值存入变量 length；

⑸按照高位到低位的顺序输出数组ans中的计算结果。

张老师设计了两个正整数进行高精度乘法计算的VB程序，功能如下：在文本框 Text1和Text2中依次输入两个整数，单击“计算”按钮 Command1，程序进行高精度乘法计算，并在标签 Label4中输出计算结果。下面信息显示了进行高精度乘法计算的主要过程（假设输入的两个整数分别为“123”和“45”）：

程序运行效果如图所示。