编程代码可复制（国外留学编程作业不能复制代码吗）

：暂无数据 2026-06-22 20:20:01 ：0

今天给各位分享国外留学编程作业不能复制代码吗的知识，其中也会对国外留学编程作业不能复制代码吗进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录

国外留学编程作业不能复制代码吗
有什么好玩的表白代码
几个简单的C语言编程求大神解答啊
scratch编程里的代码可以复制到新建里吗
网页编程求一比较简单的代码!
计算机编程代码是
谁能提供个C++小程序，画面好玩的就可以要程序代码
教你计算机如何复制代码
谁能提供个C++小程序，画面好玩的就可以.要程序代码
求一个VB小游戏编程，要有代码的

国外留学编程作业不能复制代码吗

国外留学编程作业不能复制代码。国外留学时编程作业复制代码，会被视定为抄袭，并且侵犯他人权利，严重者会导致无法毕业。

有什么好玩的表白代码

表白代码大全可复制免费

表白代码大全可复制免费，用代码表白是一件非常浪漫的事情，只需要短短的一行代码,就可以制作生活中的惊喜和小浪漫，但是设置代码是需要技巧的，以下分享表白代码大全可复制免费。

表白代码大全可复制免费1

1.发送xoxO(会出现满屏亲亲)

2.发送mi manchi(会出现满屏小星星)

3.发送ohh(翻译:留在我身边)

4.发送ch will mit dir S wim(翻译:我想和你在一起)

5.发送Voce e meu bebe(翻译:你是我的宝贝)

6.发送 RUYDUAautrinuU(翻译我只喜欢你)

7.发送 love at first sight(翻译:—见钟情)

8.发送We will be happy(我们会幸福)

9.发送missu(会出现星星雨)

10.发送u621u7231u460(翻译:爱你)

11.发送u5728u4e0Ou8d7Nu5427(翻译在一起)

12.发送Milji pouze jednu osobu, ta osoba jste vy.我只爱一个人,那个人就是你)

13.发送 yax you(翻译我跟你说)发送yyyax you翻译我喜欢你)发送 yox you!(我爱死你了)

14.n 55 iw!(倒过来是i miss you我想你。)

15.我想要两颗西柚("1 wanttoseeyou"我想要见你)

16.962464(用九宫格输入试试)

17.Mg+Znso4==MgSo4+zn(你的镁夺走了我的锌）

18.Te echo de menos(微信翻译:我想你)

19.双木非林田下有心(相思)

20.n.nggui(倒过来看就是ineedyoy我需要你)

表白代码大全可复制免费2

程序员的表白代码

第一条语言：Java代码翻译：直到死之前，每天爱你多一点代码：while(lifeend){love++;}

第二条语言：C语言代码翻译：IcannotsayHellototheWorldwithoutu.代码：#incldestdio.hintmain(){printf(HelloWorldn);retrn0;}//IcannotsayHellototheWorldwithoutu.

第三条语言：python代码翻译：山无陵，江水为竭，冬雷震震，夏雨雪，天地合，乃敢与君绝！代码：if(mountain.arris==None):if(river.water==None):if(winter.thunder==True):if(summer.snow==

True):if(sky.height==ground.height):i.withyou=Falseelse:i.withyou=True.

第四条语言：Erlang代码代码翻译：深圳相遇，至死不渝代码：-module(you_and_me).-export().see_you_next_world(Name)-one_world(Name).

第五条语言：Java语言代码翻译：爱你到天荒地老代码：while(!world.destroy){System.out.println(iloveyou);}

表白代码大全可复制免费3

第一条

语言：Java

代码翻译：

直到死之前，每天爱你多一点

代码：

while (life 《 end) {

love++;

}

// I can not say Hello to the World without u.

第二条

语言：python

代码翻译：

山无陵，江水为竭，冬雷震震，夏雨雪，天地合，乃敢与君绝！

代码：

if(mountain.arris==None):

if(river.water==None):

if(winter.thunder==True):

if(summer.snow==True):

if(sky.height==ground.height):

i.withyou=False

else:

i.withyou=True

one_world(Name).

第三条

语言：Java语言

代码翻译：

爱你到天荒地老

代码：

while(!world.destroy){

System.out.println("i love you");

}

第四条

语言：C语言

代码翻译：

两隔的`世界;

无名的信件;

短暂的停留;

长久的记忆;

说这么多，只是想说：我想你了。

代码：

#include

int main()

{

double world;

unsigned letter;

short stay;

long memories;

printf("I miss you. ");

return 0;

}

#include《stdio.h》
#include《stdlib.h》
#include 《iostream》
using namespace std;
int main()
{
    int a={0};
    int b={0};
    int i = 0;
    for(i=0;i《5;i++)
    {
        cin》》a;

    }
    for(i=0;i《5;i++)
    {
        b;
    }
    for(i=0;i《5;i++)
    {
        cout《《b《《endl;
    }
    return 0;
}

第二段参考如下代码：

#include《stdio.h》
#include《stdlib.h》
#include 《iostream》
using namespace std;
int main()
{
    int ax={1,2,3,4,0,-1,-2,-3,-4};
    for(int i=0;i《9/2;i++)
    {
        int t = ax;
        ax;
        ax = t;

    }
    for(int i=0;i《9;i++)
    {
        cout《《ax《《endl;
    }
    return 0;
}

scratch编程里的代码可以复制到新建里吗

可以复制到新建文件里。
1、设置－模板设置－自定义模板－创建新模板，将你写好的代码选中，CTRL+C复制你写好的代码。
2、CTRL+V粘贴代码－设置好模板名字和标签等点“另存为”。
3、然后再进入设置－自定义模板，找到你刚才保存的那个模板，点“使用”。
4、新建文件，将代码存进去。

网页编程求一比较简单的代码!

《html》
《head》
《title》00000001.gif《/title》
***隐藏网址***
《!-- Fireworks MX Dreamweaver MX target. Created Tue Jul 04 07:17:36 GMT+0800 (?D1ú±ê×?ê±??) 2006--》
《script language="JavaScript"》
《!--
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))》0&&parent.frames.length) {
d=parent.frames.document; n=n.substring(0,p);}
if(!(x=d;
for(i=0;!x&&d.layers&&i《d.layers.length;i++) x=MM_findObj(n,d.layers.document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}
function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i《(a.length-2);i+=3)
if ((x=MM_findObj(a;}
}
function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i《a.length&&(x=a)&&x.oSrci++) x.src=x.oSrc;
}
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i《a.length; i++)
if (a;}}
}
//--》
《/script》
《/head》
《body bgcolor="#ffffff" onLoad="MM_preloadImages(’00000001_r2_c2_f2.gif’);"》
《table border="0" cellpadding="0" cellspacing="0" width="800"》
《!-- fwtable fwsrc="未命名-4.png" fwbase="00000001.gif" fwstyle="Dreamweaver" fwdocid = "742308039" fwnested="0" --》
《tr》
《td》《img src="spacer.gif" width="338" height="1" border="0" alt=""》《/td》
《td》《img src="spacer.gif" width="136" height="1" border="0" alt=""》《/td》
《td》《img src="spacer.gif" width="326" height="1" border="0" alt=""》《/td》
《td》《img src="spacer.gif" width="1" height="1" border="0" alt=""》《/td》
《/tr》
《tr》
《td colspan="3"》《img name="n00000001_r1_c1" src="00000001_r1_c1.gif" width="800" height="267" border="0" alt=""》《/td》
《td》《img src="spacer.gif" width="1" height="267" border="0" alt=""》《/td》
《/tr》
《tr》
《td rowspan="2"》《img name="n00000001_r2_c1" src="00000001_r2_c1.gif" width="338" height="333" border="0" alt=""》《/td》
《td》《a href="#" onMouseOut="MM_swapImgRestore();" onMouseOver="MM_swapImage(’n00000001_r2_c2’,’’,’00000001_r2_c2_f2.gif’,1);"》《img name="n00000001_r2_c2" src="00000001_r2_c2.gif" width="136" height="64" border="0" alt=""》《/a》《/td》
《td rowspan="2"》《img name="n00000001_r2_c3" src="00000001_r2_c3.gif" width="326" height="333" border="0" alt=""》《/td》
《td》《img src="spacer.gif" width="1" height="64" border="0" alt=""》《/td》
《/tr》
《tr》
《td》《img name="n00000001_r3_c2" src="00000001_r3_c2.gif" width="136" height="269" border="0" alt=""》《/td》
《td》《img src="spacer.gif" width="1" height="269" border="0" alt=""》《/td》
《/tr》
《/table》
《/body》
《/html》

计算机编程代码是

《html》
《head》
《title》计算器《/title》
《script language="javascript"》
var sum1;//储存数字1！
var sum2;//储存数字2！
var sum3=" ";//储存运算符！
var isnew=false;//是否显示新操作数
var sum4=" ";//储存结果的值！function show(message)
{
if (!isnew)
{
if (document.getElementById("taglespace").value =="0")
{
document.getElementById("taglespace").value=message;//第一次是0，所以就走这里
}
else
{
//alert("dfasdfasdf");
document.getElementById("taglespace").value=document.getElementById("taglespace").value+message;
//因为massage的值被第一次点击的时候改变了，所以不等于0
}
}
else
{document.getElementById("taglespace").value=message;
isnew=false;
}}function yunsuan(op)//计算
{sum1=document.getElementById("taglespace").value;//把第一个值给sum1储存起来
sum3=op;//储存运算符
isnew=true;////是否显示新操作数}
function dengyu()//等于
{sum2=document.getElementById("taglespace").value;//因为这个值已经被第二次输入的值覆盖了，所以这个是第二次的值！sum4=eval(sum1+sum3+sum2);//eval作用是把数值1。运算符和数值2计算出来document.getElementById("taglespace").value=sum4;//然而在屏幕上重新输出结果
isnew=true;//是否显示新操作数
}
function xo()//清零
{
document.getElementById("taglespace").value=0;//这个显示值等于0，是因为把值改成0了，所以显示的值也是0
isnew=false;//应该是不要重新显示数值
}《/script》
《/head》
《body》
《form name="nameform"》
《table border="1" width="250" height="150" align="center"》《tr》
《th colspan="4"》
《input type="text" name="daan" size="30" id="taglespace" value="0"》
《/th》
《/tr》
《tr align="center"》
《td》
《input type="button" name="one" value=" 1 " onclick="show(1)"》
《/td》
《td》
《input type="button" name="two" value=" 2 " onclick="show(2)"》
《/td》
《td》
《input type="button" name="three" value=" 3 " onclick="show(3)"》
《/td》
《td》
《input type="button" name="plus" value=" + " onclick="yunsuan(’+’)"》
《/td》
《/tr》
《tr align="center"》
《td》
《input type="button" name="four" value=" 4 " onclick="show(4)"》
《/td》
《td》
《input type="button" name="five" value=" 5 " onclick="show(5)"》
《/td》
《td》
《input type="button" name="six" value=" 6 " onclick="show(6)"》
《/td》
《td》
《input type="button" name="minus" value=" - " onclick="yunsuan(’-’)"》
《/td》
《/tr》
《tr align="center"》
《td》
《input type="button" name="seven" value=" 7 " onclick="show(7)"》
《/td》
《td》
《input type="button" name="eight" value=" 8 " onclick="show(8)"》
《/td》
《td》
《input type="button" name="nine" value=" 9 " onclick="show(9)"》
《/td》
《td》
《input type="button" name="cheng" value=" * " onclick="yunsuan(’*’)"》
《/td》
《/tr》
《tr align="center"》
《td》
《input type="button" name="zero" value=" 0 " onclick="show(0)"》
《/td》
《td》
《input type="button" name="qingling" value=" C " onclick="xo()"》
《/td》
《td》
《input type="button" name="amount" value=" = " onclick="dengyu()"》
《/td》
《td》
《input type="button" name="chu" value=" / " onclick="yunsuan(’/’)"》
《/td》
《/tr》
《/table》
《/form》
《/body》
《/html》复制就行了

谁能提供个C++小程序，画面好玩的就可以要程序代码

我编的小型计算器程序，能计算普通+，-，*，/，和带括号的表达式，使用顺序栈的数据结构，程序如下：
//////////////////////////////////////////////
#include "iostream"
#include "string"
using namespace std;
//---------------------------------- Stack.h --------------------------
//定义Stack类
const maxsize=20;
enum Error_code { success, overflow, underflow };
template 《class T》
class Stack {
public:
Stack();
bool empty() const;
bool full() const;
int size() const;
void clear();
Error_code top(T &item) const;
Error_code pop();
Error_code push(const T &item);
private:
int count;
T entry;
};
template 《class T》
Stack《T》::Stack() {
count=0;
}
template 《class T》
bool Stack《T》::empty () const {
return count==0;
}
template 《class T》
bool Stack《T》::full () const {
return count==maxsize;
}
template 《class T》
int Stack《T》::size() const {
return count;
}
template 《class T》
void Stack《T》::clear() {
count=0;
}
template 《class T》
Error_code Stack《T》::top (T &item) const {
if (empty()) return underflow;
item= entry;
return success;
}
template 《class T》
Error_code Stack《T》::pop () {
if (empty()) return underflow;
count--;
return success;
}
template 《class T》
Error_code Stack《T》::push (const T &item) {
if (full()) return overflow;
entry=item;
return success;
}
//------------------------------------------额外函数------------------
bool user_says_yes()
{
int c;
bool initial_response = true;
do { // Loop until an appropriate input is received.
if (initial_response)
cout 《《 " (y,n)? " 《《 flush;
else
cout 《《 "Respond with either y or n: " 《《 flush;
do { // Ignore white space.
c = cin.get();
} while (c == ’\n’ || c ==’ ’ || c == ’\t’);
initial_response = false;
} while (c != ’y’ && c != ’Y’ && c != ’n’ && c != ’N’);
return (c == ’y’ || c == ’Y’);
}
//---------------------------------- Main Program ----------------------
Stack《char》 sign;
Stack《double》 num;
int set; // 判断程序中的异常，以便适时退出
void process(char c) { //计算两个数的 + - * / 运算
int k=0;
double a,b;
sign.pop();
if (num.top(b)==success){ //判断例外
num.pop();
if (num.top(a)==success) {
num.pop();
k=1;
}
}
if (k) {
switch (c) {
case ’+’: num.push(a+b); break;
case ’-’: num.push(a-b); break;
case ’*’: num.push(a*b); break;
case ’/’:
if (b==0) { //分母不能为0
set=4;
num.push(-1);
}
else
num.push(a/b);
break;
}
}
else {set=1;num.push(-1);}
}
//输入表达式
void get_command(string &str) {
cout《《"\n请输入要进行运算的表达式,包括\" +,-,*,/,=,(,)\"和数字,"《《endl
《《"例如:\" 3+2.5*(6-25/4)-8.32= \"."《《endl
《《"注意: 以数字开头,等号结尾,中间括号要匹配."《《endl;
cin》》str;
}
//求值表达式
double do_command(const string &str) {
string s="";
double outcome=-1;
char c;
for (int i=0;str!=’\0’;i++)
{
if (set!=0) break; //例外则停止运行
while (1) { //分离数据与运算符
if (str==’.’) {
s+=str;
i++;
}
else {
if(s!="") {
if (num.push(atof(s.c_str ()))==overflow)
set=3;
s="";
}
break;
}
}
char ch= str;
switch (ch) { //处理运算的优先级，并注意例外抛出
case ’*’:
case ’/’:
if (sign.top(c)==success)
if(c==’*’||c==’/’) process(c);
if (sign.push(ch)==overflow)
set=3;
break;
case ’+’:
case ’-’:
while (sign.top(c)==success) {
if (c!=’(’) process(c);
else break;
}
if (sign.push(ch)==overflow)
set=3;
break;
case ’(’:
if (sign.push(ch)==overflow)
set=3;
break;
case ’)’:
while (sign.top(c)==success) {
if (c!=’(’) process(c);
else break;
}
sign.pop();
break;
case ’=’:
while (sign.top(c)==success) {
if (c!=’(’) process(c);
else break;
}
break;
default: set=2;break;
}
}
if (num.size()==1 && sign.size()==0)
num.top(outcome);
else set=1;
if (set==0) cout《《"运算结果是：\n"《《endl; //出错时的错误信息
else {
outcome=-1;
if (set==1) cout《《"\n您输入的不匹配，有错误发生。Result lost!!"《《endl;
if (set==2) cout《《"\n您输入了非法字符 , 请重新输入,谢谢合作!"《《endl;
if (set==3) cout《《"\nStack is full, Lost result!!"《《endl;
if (set==4) cout《《"\n 分母为0，不能进行除法运算，出现溢出， Lost result!!"《《endl;
}
return outcome;
}
// 主程序main()
int main() {
do {
string str,s;
set=0;
get_command(str);
s=str;
if( str==’-’) str=’0’+str; //处理表达式中的负号
for (int i=1;str!=’\0’;i++) {
if (str==’(’) {
str.insert (i,"0");
i++;
}
}
double out= do_command(str);
cout《《s《《out《《endl; //输出结果
num.clear(); //清空栈
sign.clear();
cout《《"\n还要计算其它的吗"《《flush;
}while (user_says_yes()); //允许多次执行运算
return 1;
}
////////////////////////////////////////////////
////////////////////////////////////////////////
你可以输入一个算式，比如：
3+(4.5-2*8)/4-2*6=
程序得出计算结果：
3+(4.5-2*8)/4-2*6=-11.875
请参考代码，并试验程序。。。

教你计算机如何复制代码

　　复制代码代码如下:

　　for(variable in object)

　　statement

　　variable 是声明一个变量的var语句，数组的一个元素或者是对象的一个属性

　　在循环体内部，对象的一个属性名会被作为字符串赋给变量variable。

　　注意：对象的有些属性以相同的`方式标记成了只读的，永久的（不可删除的）或者不可列举的，这些属性使用for/in循环不能枚举出来。虽然所有的用户定义的属性都可以枚举，但是许多内部属性，包括所有的内部方法都是不可枚举的。另外对象可以继承其他对象的属性，那些已继承的用户定义的属性可以使用for/in 循环枚举出来。

　　for(var i=0;i《len;i++)这样的用法一般都可以用for in 来替代。

　　例如：

　　复制代码代码如下:

　　var a = ;

　　for(var el in a){

　　alert(a);

　　}

　　这个就是穷举出a中的所有元素，当然上面这个例子是可以用

　　复制代码代码如下:

　　for(var i=0,len=a.length;i《len;i++){

　　alert(a);

　　}

　　这种方式进行循环列出的，不过有时候这种方式就不一定奏效了。

　　例如：

　　复制代码代码如下:

　　var a = {"first":1,"second":2,"third":3};

　　这个时候就只能用for in来穷举了。

　　一个对象是否可以进行for in穷举，我们可以通过propertyIsEnumerable属性来判断，说明如下：

　　object.propertyIsEnumerable(propname)是否可以通过for/in循环看到属性

　　propname 一个字符串，包含object属性的名称

　　如果object具有名为propname的非继承属性，而且该属性是可枚举的(即用for/in循环可以枚举它),则返回true

　　描述:

　　用for/in语句可以遍历一个对象"可枚举"的属性,但并非一个对象的所有属性都是可枚举的,通过JavaScript代码添加到对象的属性是可枚举的,而内部对象的预定义属性(如方法)通常是不可枚举的.

　　propertyIsEnumerable()方法不检测原型链,这意味它只适用于对象的局部属性,不能检测继承属性的可枚举性

　　复制代码代码如下:

　　var o=new Object();

　　o.x=3.14;

　　o.propertyIsEnumerable("x");//true

　　o.propertyIsEnumerable("y");//false have not the property

　　o.propertyIsEnumerable("toString");//false inherited

　　Object.prototype.propertyIsEnumerable("toString");//false nonenumerable

谁能提供个C++小程序，画面好玩的就可以.要程序代码

#include《cstdio》
#include《cstring》
#include《cstdlib》
#include《ctime》
#include《conio.h》
#include《windows.h》
#include《iostream》
using namespace std;
const int dd={{1,0},{0,1},{-1,0},{0,-1}};
char map;
int d,fx,fy,score;
bool eat;
struct body
{
int x,y;
body *last,*next;
body(){last=next=NULL;}
}*head;
int Rand(int l,int r)
{
return rand()%(r-l+1)+l;
}
void init()
{
for(int i=0;i《22;i++)
for(int j=0;j《52;j++)
map=’ ’;
for(int i=0;i《52;i++)
map=’#’;
for(int i=0;i《22;i++)
map=’#’;
srand((unsigned)time(NULL));
head=new body;
head-》x=Rand(5,15),head-》y=Rand(10,40);
d=Rand(0,3);
switch(d)
{
case 0:map=’|’;break;
case 1:map=’-’;break;
case 2:map=’|’;break;
case 3:map=’-’;break;
}
body *l=new body;
*l=*head;
l-》x+=dd;
l-》y+=dd;
head-》last=l;
l-》next=head;
d=(d+2)%4;
do
{
fx=Rand(1,20);fy=Rand(1,50);
}while(map!=’ ’);
map=’*’;
}
void print()
{
system("cls");
for(int i=0;i《22;i++)
puts(map);
printf("Your score:%d\n",score);
}
void Update(body *u,int x,int y)
{
if(map==’|’)
{cout《《"Game over!"《《endl;MessageBox(NULL,"Game over!","Game over!",NULL);exit(0);}
if(u==NULL)return;
if(u-》last!=NULL||eat==0)
map=’ ’;
else
{
u-》last=new body;
u-》last-》next=u;
u-》last-》x=u-》x;
u-》last-》y=u-》y;
score++;
do
{
fx=Rand(1,20);fy=Rand(1,50);
}while(map!=’ ’);
map=’*’;
}
char c;
if(u-》x==x)
c=’-’;
if(u-》y==y)
c=’|’;
map=c;
if(u-》last&&(u-》last-》x!=u-》x||u-》last-》y!=u-》y))Update(u-》last,u-》x,u-》y);
u-》x=x;u-》y=y;
}
int main()
{
init();
while(1)
{
print();
int x=d;
for(int i=0;i《=10;i++)
{
if(GetKeyState(’S’)《0&&d!=2)
x=0;
if(GetKeyState(’D’)《0&&d!=3)
x=1;
if(GetKeyState(’W’)《0&&d!=0)
x=2;
if(GetKeyState(’A’)《0&&d!=1)
x=3;
Sleep(10);
}
d=x;
eat=(map==’*’);
Update(head,head-》x+dd);
}
return 0;
}

贪吃蛇代码，wsad控制移动，我写的小游戏

求一个VB小游戏编程，要有代码的

贪吃蛇
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim C As Long
If KeyCode = 27 Then End
If KeyCode = 32 Then
If Timer1.Enabled = True Then
Timer1.Enabled = False
Label1.Visible = True
Else
Timer1.Enabled = True
Label1.Visible = False
End If
End If
C = UBound(She)
If GFangXiang = True Then Exit Sub
Select Case KeyCode
Case 37
If She(C).F = 2 Then Exit Sub
She(C).F = 0
GFangXiang = True
Case 38
If She(C).F = 3 Then Exit Sub
She(C).F = 1
GFangXiang = True
Case 39
If She(C).F = 0 Then Exit Sub
She(C).F = 2
GFangXiang = True
Case 40
If She(C).F = 1 Then Exit Sub
She(C).F = 3
GFangXiang = True
End Select
End Sub
Private Sub Form_Load()
Me.AutoRedraw = True
Me.BackColor = &HC000&
Me.FillColor = 255
Me.FillStyle = 0
Me.ScaleWidth = 24
Me.ScaleHeight = 24
Me.WindowState = 2
Set Timer1 = Controls.Add("VB.Timer", "Timer1")
Set Label1 = Controls.Add("VB.Label", "Label1")
Label1.AutoSize = True
Label1.BackStyle = 0
Label1 = "暂停"
Label1.ForeColor = RGB(255, 255, 0)
Label1.FontSize = 50
ChuShiHua
End Sub
Private Sub Form_Resize()
On Error GoTo 1:
With Me
If .WindowState 《》 1 Then
.Cls
.ScaleMode = 3
HWB = .ScaleHeight / .ScaleWidth
.ScaleWidth = 24
.ScaleHeight = 24
Label1.Move (Me.ScaleWidth - Label1.Width) / 2, (Me.ScaleHeight - Label1.Height) / 2
HuaTu
Me.Line (X, Y)-(X + 1, Y + 1), RGB(255, 255, 0), BF
End If
End With
1:
End Sub
Private Sub Timer1_Timer()
Dim C As Long, I As Long
On Error GoTo 2:
QingChu
C = UBound(She)
Select Case She(C).F
Case 0
If ZhuangTai(She(C).X - 1, She(C).Y) = 2 Then
C = C + 1
ReDim Preserve She(C)
She(C).F = She(C - 1).F
She(C).X = She(C - 1).X - 1
She(C).Y = She(C - 1).Y
ChanShengShiWu
GoTo 1:
ElseIf ZhuangTai(She(C).X - 1, She(C).Y) = 1 Then
GoTo 2:
End If
Case 1
If ZhuangTai(She(C).X, She(C).Y - 1) = 2 Then
C = C + 1
ReDim Preserve She(C)
She(C).F = She(C - 1).F
She(C).X = She(C - 1).X
She(C).Y = She(C - 1).Y - 1
ChanShengShiWu
GoTo 1:
ElseIf ZhuangTai(She(C).X, She(C).Y - 1) = 1 Then
GoTo 2:
End If
Case 2
If ZhuangTai(She(C).X + 1, She(C).Y) = 2 Then
C = C + 1
ReDim Preserve She(C)
She(C).F = She(C - 1).F
She(C).X = She(C - 1).X + 1
She(C).Y = She(C - 1).Y
ChanShengShiWu
GoTo 1:
ElseIf ZhuangTai(She(C).X + 1, She(C).Y) = 1 Then
GoTo 2:
End If
Case 3
If ZhuangTai(She(C).X, She(C).Y + 1) = 2 Then
C = C + 1
ReDim Preserve She(C)
She(C).F = She(C - 1).F
She(C).X = She(C - 1).X
She(C).Y = She(C - 1).Y + 1
ChanShengShiWu
GoTo 1:
ElseIf ZhuangTai(She(C).X, She(C).Y + 1) = 1 Then
GoTo 2:
End If
End Select
ZhuangTai(She(0).X, She(0).Y) = 0
For I = 0 To C
Select Case She(I).F
Case 0
She(I).X = She(I).X - 1
Case 1
She(I).Y = She(I).Y - 1
Case 2
She(I).X = She(I).X + 1
Case 3
She(I).Y = She(I).Y + 1
End Select
Next
TiaoZheng
1:
GFangXiang = False
ZhuangTai(She(C).X, She(C).Y) = 1
HuaTu
Exit Sub
2:
If MsgBox("游戏结束，点“是”重新开始游戏，点“否”", vbYesNo, "贪吃蛇") = vbYes Then
ChuShiHua
Else
End
End If
End Sub
Private Sub ChuShiHua()
Me.Cls
Timer1.Enabled = True
Timer1.Interval = 200
Erase ZhuangTai
ReDim She(2)
She(0).F = 2
She(0).X = 9
She(0).Y = 11
ZhuangTai(9, 11) = 1
She(1).F = 2
She(1).X = 10
She(1).Y = 11
ZhuangTai(10, 11) = 1
She(2).F = 2
She(2).X = 11
She(2).Y = 11
ZhuangTai(11, 11) = 1
HuaTu
ChanShengShiWu
End Sub
Private Sub QingChu()
Dim I As Long
For I = 0 To UBound(She)
Me.Line (She(I).X, She(I).Y)-(She(I).X + 1, She(I).Y + 1), Me.BackColor, BF
Next
End Sub
Private Sub HuaTu()
Dim I As Long
For I = 0 To UBound(She)
Me.Circle (She(I).X + 0.5, She(I).Y + 0.5), 0.49, RGB(255, 255, 0), , , HWB
Next
End Sub
Private Sub TiaoZheng()
Dim I As Long
For I = 0 To UBound(She) - 1
She(I).F = She(I + 1).F
Next
End Sub
Private Sub ChanShengShiWu()
Randomize Timer
1:
X = Int(Rnd * 24)
Y = Int(Rnd * 24)
If ZhuangTai(X, Y) 》 0 Then GoTo 1:
ZhuangTai(X, Y) = 2
Me.Line (X, Y)-(X + 1, Y + 1), RGB(255, 255, 0), BF
End Sub
直接复制到空代码窗口