九连环

谁能将“九连环答案生成器的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++;
}
}

谁知道啊？

你说说什么是九连环,要求是什么

只要熟悉两种语言，转换并不难，例如：int 可以转Integer,char可以byte,
setnow()
{int i=0;
while(buf[i]!='*' && buf[i]!='\0'){i++;}
now=i;
return now;
}

private function setnow () as integer

{

dim i as integer=0
do while buf[i]<>"*" and buf[i]<>Chr(13) & Chr(10)'这是回撤换行符，结束表及应该是什么，我也得现查
i=i+1
loop
setnow=i

}
vb基本的语法了解，一般都能描述来。不过上述代码并未考证，但是大概的意思差不多，楼主慢慢的改就是了。

xinfresh:看了下面这个网站，就知道九连环这个东西了！

http://qzc.zgz.cn/jiulianhuan5.htm

因为c语言不熟悉，所以在这儿提出来请各位帮帮忙！