程序

小格子

《程序》 文/林语

　　定义数组变量 name（3）字符串型 ；
　　定义数组变量 letter1（10）字节型；
　　定义数组变量 letter2（10）字节型；
　　定义数组变量 letter3（10）字节型；
　　定义数组变量 x（20）整数型；
　　定义数组变量alphabet（4）字符串型；

　　初始化alphabet（0）=“abcdefg”
　　初始化alphabet（1）=“hijklmn”
　　初始化alphabet（2）=“opq rst”
　　初始化alphabet（3）=“uvw xyz”

　　定义子程序get_number（）
　　{
　　功能为选出10以内的质数并依次存入数组x ；
　　}

　　定义子程序her_name（数组变量letter字节型，数组变量n整数型）
　　{
　　//注释：功能为将数字转化为相应的字母
　　定义局部变量a整数型；
　　定义局部数组变量b字符型；
　　定义局部变量name1字符串；
　　For (定义局部变量a整数型 =0 ，a<20,a=a+1)
　　{
　　If n（a）=0 Then 退出循环；
　　else
　　b（a）=letter（a）；
　　}
　　}

　　定义子程序form_name字符串型（数组变量letter字节型）
　　{
　　功能为将数组letter，连成字符串，并返回到子程序名中；
　　}

　　程序开始（）
　　{
　　定义数组变量 love_ number1（5）整数型；
　　定义数组变量 love_ number2（5）整数型；
　　定义数组变量 love_ number3（5）整数型；

　　If MsgBox（"是否想知道她的名字？", 是否选项）=否 Then 程序结束；
　　get_number ；
　　x（0）=x（0）+x（1）；
　　x（1）=x（0）-x（1）；
　　x（0）=x（0）-x（1）；
　　x（2）=x（0）-x（1）；
　　x（4）=x（3）-x（0）；

　　for（定义局部变量a整数型 =0 ，a<6,a=a+1 ）
　　{
　　love_ number1（a）=x（3）；
　　love_ number2（a）=x（3）；
　　love_ number3（a）=x（3）；
　　}
　　love_number（0）= x（0）
　　love_number（1）= x（2）
　　love_number2（0）= love_number1（0）+love_number1（1）
　　love_number2（1）= love_number1（1）
　　love_number2（0）= love_number1（0）+love_number2（0）
　　love_number3（0）= love_number1（0）+love_number2（0）
　　love_number3（1）= love_number1（1）+love_number2（1）
　　love_ number1（4）=0；
　　love_ number1（4）=0；
　　love_ number1（4）=0；

　　her_name (letter1 ，love_number（0）) ;
　　her_name (letter2 ，love_number（1）) ;
　　her_name (letter3 ，love_number（2）) ;
　　name（0）=form_name （letter1 ）；
　　name（1）=form_name （letter2 ）；
　　name（2）=form_name （letter3 ）；

　　MsgBox（"她的名字叫"+name）；
　　}
　　程序结束

鹤鸿

首读。祝好

高作苦

有意思