《程序》 文/林语
定义数组变量 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);
}
程序结束 |