[求助]九连环
九连环谁能将“九连环答案生成器的C源程序 ”转换成VB6.0程序:
九连环答案生成器的C源程序
#include "stdio.h"
char in;
int now=0;
int jishu=0;
int down=1;
char buf[100]="*********";
char buf2[100]=".........";
setnow()
{int i=0;
while(buf[i]!='*' && buf[i]!='\0'){i++;}
now=i;
return now;
}
change(int pos)
{int i;
char b[10];
if(pos>=9)return;
if(buf[pos]=='*')
{buf[pos]='.';strcpy(b,"卸下");}
else
{buf[pos]='*';strcpy(b,"装上");}
setnow();
printf("\n%s\t%d\t%s%d环",buf,jishu+1,b,pos +1);
printf("\n");
for(i=0;i<=now;i++)printf(" ");
printf("^");
}
main(int argc,char *argv[])
{
printf("\n%s",buf);
while(strcmp(buf,buf2))
{change(0);jishu++;
change(now+1);jishu++;
}
}