3.4.grs

UG二次开发很好的东西 需要的朋友可以下载来看看 很好用啊

$$声明响应矩阵变量。
number/array(5)

$$选择菜单选项。
l10:
mchoose/'select the options','option1','option2','option3',$
                              'option4','option5',array,resp
jump/l10:,trm:, l20:,resp

$$根据响应矩阵变量的值进行对应的操作。
l20:
if/array(1)==1,print/'option1'
if/array(2)==1,print/'option2'
if/array(3)==1,print/'option3'
if/array(4)==1,print/'option4'
if/array(5)==1,print/'option5'

$$结束程序
trm:
halt