*主程序
SET TALK OFF
PUBLIC x1,x12,xyz
STORE   5   TO x1,x12,xyz,a
DO   sub1
?"x1=",x1,"x12=",x12,"xyz=",xyz,"a=",a
CANCEL
*子程序sub1.prg
PRIVATE ALL LIKE xi*
STORE   0  TO   x1,x12,xyz
x1=x1+1
x12=x12+1
xyz=xyz+1
?"x1=",x1,"x12=",x12,"xyz=",xyz,"a=",a
WALT
DO  sub2
RETURN
*子程序SUB2.PRG
x1=x1+1
x12=x12+1
xyz=xyz+1
RETURN
  
 
 
读下面的程序写出运行结果.
*主程序
SET TALK OFF
PUBLIC x1,x12,xyz
STORE   5   TO x1,x12,xyz,a
DO   sub1
?"x1=",x1,"x12=",x12,"xyz=",xyz,"a=",a
CANCEL
*子程序sub1.prg
PRIVATE ALL LIKE xi*
STORE   0  TO   x1,x12,xyz
x1=x1+1
x12=x12+1
xyz=xyz+1
?"x1=",x1,"x12=",x12,"xyz=",xyz,"a=",a
WALT
DO  sub2
RETURN
*子程序SUB2.PRG
x1=x1+1
x12=x12+1
xyz=xyz+1
RETURN
  
 结果是什么呢？

还有就是谁能给我说说下边这个怎么做，他的步骤是什么

 实验八创建表单
实验要求与内容
1利用订表单,创建一个表单,字段及样式自定
2以订单表为父表,专业表为子表,创建一个表单
3创建一个基于订单表的快捷表单
4使用表设计器创建一个基于专业表的表单
5使用表单设计器创建一个表单,表单中选取订单表中的专业编号,书号,书名,作者编号,专业表中的所有字段