visualc60c語言

1. c語言轉換為VB.NET

Option Explicit On
Option Strict On
Imports System
Mole Program
Sub Main()
Dim y,m,t As Integer
begin:
' 輸入數據時一行一個
y=CInt(Console.ReadLine())
m=CInt(Console.ReadLine())
t=CInt(Console.ReadLine())
If y
200 Then
Console.WriteLine("ERROR")
goto begin
End If
pr(y,m,t)
Console.Write("Press any key to continue . . . ")
Console.ReadKey(True)
End Sub
Function pr(y As Integer,m As Integer,t As Integer) As Integer
Dim ye,[Me],i As Integer
ye=CInt((m+t-2)/12+y)
[Me]=(m+t-2) Mod 12+1

End If
End Function
Function mday(y As Integer,m As Integer) As Integer
Dim day As Integer()={0,31,28,31,30,31,30,31,31,30,31,30,31}
Dim ad As I

2. C語言編程問題 成績統計

Open "C:\score2007.txt" For Input As #1
Dim linetxt As String
Dim c90, c80, c70, c60, c0 As Integer

Do While Not EOF(1)
Line Input #1, linetxt
If Len(Trim(linetxt)) > 0 Then
tmpArr = Split(linetxt, " ")
Select Case CDbl(tmpArr(1))
Case Is >= 90
c90 = c90 + 1
Case Is >= 80
c80 = c80 + 1
Case Is >= 70
c70 = c70 + 1
Case Is >= 60
c60 = c60 + 1
Case Else
c0 = c0 + 1
End Select
End If
Loop
Close #1

Open "c:\renshu.txt" For Output As #2

Print #2, "100-90 共：" + CStr(c90) + " 人"
Print #2, "---------------------------------------------------"
Print #2, "89-80 共：" + CStr(c80) + " 人"
Print #2, "---------------------------------------------------"
Print #2, "79-70 共：" + CStr(c70) + " 人"
Print #2, "---------------------------------------------------"
Print #2, "69-60 共：" + CStr(c60) + " 人"
Print #2, "---------------------------------------------------"
Print #2, "59-0 共：" + CStr(c0) + " 人"
Print #2, "---------------------------------------------------"
Close #2

3. Compac Visual Fortran 如何做並行計算

程序要實現並行其實有兩個方面，不單單是編譯器的問題，首先你還要裝並行庫，比如mpich;其次，你要把源程序改為並行程序，要加上一些並行語句如MPI_Init (&argc, &argv)，必要時還應該把程序結構改為適用於並行。最後，你就可以把程序編譯為並行執行碼了，祝你好運！
給你一個vc++配置編譯並行的網址，cvf也應該差不多，windows下並行其實我沒做過，我主要在linux下做並行，
http://securelvlan.spaces.live.com/Blog/cns!C60FD6EABDDFC877!250.entry

4. vscode怎麼創建c項目

vscode怎樣編寫c程序？

一、獲取C/C++擴展

1、打開vscode

2、ctrl+shift+x打開商店

3、搜索C/C++安裝、重啟vscode

.png

二、安裝GCC

1、下載MinGW

2、打開安裝程序，安裝到D盤（需要創建MinGW文件夾），安裝完成之後生成MinGW安裝管理器

3、管理器自動打開（如果沒有請手動），點擊All Packages,選中gcc.bin,g++.bin,gdb.bin,點擊Installation,選擇Apply Changes,點擊Apply提交進行安裝

.png

win+R,輸入control進入控制面板,依次點擊系統與安裝->系統->高級系統設置->環境變數，找到Path->編輯->新建，將安裝好的MinGW的bin文件夾路徑粘貼進去。

.png

三、配置智能提示

1、編寫一個測試文件demo.c,點擊引入的標准庫下的「提示燈」,生成c_cpp_properties.json文件

2、編輯c_cpp_properties.json

.png

c_cpp_properties.json修改內容如下：

.png

四、開啟調試功能

F5或Ctrl+F5啟用調試，選擇C++(GDB/LLDB)生成launch.json文件，修改如下：

Ctrl+Shift+P輸入Tasks:Configure Task配置任務，選擇使用模塊創建task.json文件，選擇Others模板，生成task.json文件，修改如下：

如果出現錯誤：進程終止，退出代碼：1，可能是gcc還沒被編輯器載入（測試方法：打開控制台，輸入gcc，看提示信息），重啟編輯器就可以。

5. c語言在vc++下 編程的俄羅斯方源程序

以下代碼來自 easyx 官網，已經測試過可以用，支持各版本 vc。需要安裝 easyx 庫才能編譯。

項目直接建立控制台項目就好了。

////////////////////////////////////////////
//程序名稱：俄羅斯方塊
//編譯環境：VisualC++6.0/2010，EasyX_v20131006(beta)
//程序編寫：krissi<[email protected]>
//更新記錄：2010-12-18	[email protected]編寫
//2011-9-28	[email protected]修改了下落超時的邏輯
//[email protected]修改了繪制方法，將原來的立體效果修改為扁平效果
//
#include<easyx.h>
#include<conio.h>
#include<time.h>/////////////////////////////////////////////
//定義常量、枚舉量、結構體、全局變數
/////////////////////////////////////////////

#define	WIDTH	10		//游戲區寬度
#define	HEIGHT	22		//游戲區高度
#define	UNIT	20		//每個游戲區單位的實際像素

//定義操作類型
enumCMD
{
	CMD_ROTATE,						//方塊旋轉
	CMD_LEFT,CMD_RIGHT,CMD_DOWN,	//方塊左、右、下移動
	CMD_SINK,						//方塊沉底
	CMD_QUIT						//退出遊戲
};

//定義繪制方塊的方法
enumDRAW
{
	SHOW,	//顯示方塊
	CLEAR,	//擦除方塊
	FIX		//固定方塊
};

//定義七種俄羅斯方塊
structBLOCK
{
	WORDdir[4];	//方塊的四個旋轉狀態
	COLORREFcolor;	//方塊的顏色
}	g_Blocks[7]={	{0x0F00,0x4444,0x0F00,0x4444,RED},		//I
					{0x0660,0x0660,0x0660,0x0660,BLUE},		//口
					{0x4460,0x02E0,0x0622,0x0740,MAGENTA},	//L
					{0x2260,0x0E20,0x0644,0x0470,YELLOW},	//反L
					{0x0C60,0x2640,0x0C60,0x2640,CYAN},		//Z
					{0x0360,0x4620,0x0360,0x4620,GREEN},	//反Z
					{0x4E00,0x4C40,0x0E40,0x4640,BROWN}};	//T

//定義當前方塊、下一個方塊的信息
structBLOCKINFO
{
	byteid;	//方塊ID
	charx,y;	//方塊在游戲區中的坐標
	bytedir:2;	//方向
}	g_CurBlock,g_NextBlock;

//定義游戲區
BYTEg_World[WIDTH][HEIGHT]={0};/////////////////////////////////////////////
//函數聲明
/////////////////////////////////////////////

voidInit();											//初始化游戲
voidQuit();											//退出遊戲
voidNewGame();											//開始新游戲
voidGameOver();										//結束游戲
CMDGetCmd();											//獲取控制命令
voidDispatchCmd(CMD_cmd);								//分發控制命令
voidNewBlock();										//生成新的方塊
boolCheckBlock(BLOCKINFO_block);						//檢測指定方塊是否可以放下
voidDrawUnit(intx,inty,COLORREFc,DRAW_draw);	//畫單元方塊
voidDrawBlock(BLOCKINFO_block,DRAW_draw=SHOW);	//畫方塊
voidOnRotate();										//旋轉方塊
voidOnLeft();											//左移方塊
voidOnRight();											//右移方塊
voidOnDown();											//下移方塊
voidOnSink();											//沉底方塊/////////////////////////////////////////////
//函數定義
/////////////////////////////////////////////

//主函數
voidmain()
{
	Init();

	CMDc;
	while(true)
	{
		c=GetCmd();
		DispatchCmd(c);

		//按退出時，顯示對話框咨詢用戶是否退出
		if(c==CMD_QUIT)
		{
			HWNDwnd=GetHWnd();
			if(MessageBox(wnd,_T("您要退出遊戲嗎？"),_T("提醒"),MB_OKCANCEL|MB_ICONQUESTION)==IDOK)
				Quit();
		}
	}
}


//初始化游戲
voidInit()
{
	initgraph(640,480);
	srand((unsigned)time(NULL));
	setbkmode(TRANSPARENT);			//設置圖案填充的背景色為透明

	//顯示操作說明
	settextstyle(14,0,_T("宋體"));
	outtextxy(20,330,_T("操作說明"));
	outtextxy(20,350,_T("上：旋轉"));
	outtextxy(20,370,_T("左：左移"));
	outtextxy(20,390,_T("右：右移"));
	outtextxy(20,410,_T("下：下移"));
	outtextxy(20,430,_T("空格：沉底"));
	outtextxy(20,450,_T("ESC：退出"));

	//設置坐標原點
	setorigin(220,20);

	//繪制游戲區邊界
	rectangle(-1,-1,WIDTH*UNIT,HEIGHT*UNIT);
	rectangle((WIDTH+1)*UNIT-1,-1,(WIDTH+5)*UNIT,4*UNIT);

	//開始新游戲
	NewGame();
}


//退出遊戲
voidQuit()
{
	closegraph();
	exit(0);
}


//開始新游戲
voidNewGame()
{
	//清空游戲區
	setfillcolor(BLACK);
	solidrectangle(0,0,WIDTH*UNIT-1,HEIGHT*UNIT-1);
	ZeroMemory(g_World,WIDTH*HEIGHT);

	//生成下一個方塊
	g_NextBlock.id=rand()%7;
	g_NextBlock.dir=rand()%4;
	g_NextBlock.x=WIDTH+1;
	g_NextBlock.y=HEIGHT-1;

	//獲取新方塊
	NewBlock();
}


//結束游戲
voidGameOver()
{
	HWNDwnd=GetHWnd();
	if(MessageBox(wnd,_T("游戲結束。
您想重新來一局嗎？"),_T("游戲結束"),MB_YESNO|MB_ICONQUESTION)==IDYES)
		NewGame();
	else
		Quit();
}


//獲取控制命令
DWORDm_oldtime;
CMDGetCmd()
{
	//獲取控制值
	while(true)
	{
		//如果超時，自動下落一格
		DWORDnewtime=GetTickCount();
		if(newtime-m_oldtime>=500)
		{
			m_oldtime=newtime;
			returnCMD_DOWN;
		}

		//如果有按鍵，返回按鍵對應的功能
		if(kbhit())
		{
			switch(getch())
			{
				case'w':
				case'W':	returnCMD_ROTATE;
				case'a':
				case'A':	returnCMD_LEFT;
				case'd':
				case'D':	returnCMD_RIGHT;
				case's':
				case'S':	returnCMD_DOWN;
				case27:	returnCMD_QUIT;
				case'':	returnCMD_SINK;
				case0:
				case0xE0:
					switch(getch())
					{
						case72:	returnCMD_ROTATE;
						case75:	returnCMD_LEFT;
						case77:	returnCMD_RIGHT;
						case80:	returnCMD_DOWN;
					}
			}
		}

		//延時(降低CPU佔用率)
		Sleep(20);
	}
}


//分發控制命令
voidDispatchCmd(CMD_cmd)
{
	switch(_cmd)
	{
		caseCMD_ROTATE:	OnRotate();		break;
		caseCMD_LEFT:		OnLeft();		break;
		caseCMD_RIGHT:		OnRight();		break;
		caseCMD_DOWN:		OnDown();		break;
		caseCMD_SINK:		OnSink();		break;
		caseCMD_QUIT:		break;
	}
}


//生成新的方塊
voidNewBlock()
{
	g_CurBlock.id=g_NextBlock.id,		g_NextBlock.id=rand()%7;
	g_CurBlock.dir=g_NextBlock.dir,	g_NextBlock.dir=rand()%4;
	g_CurBlock.x=(WIDTH-4)/2;
	g_CurBlock.y=HEIGHT+2;

	//下移新方塊直到有局部顯示
	WORDc=g_Blocks[g_CurBlock.id].dir[g_CurBlock.dir];
	while((c&0xF)==0)
	{
		g_CurBlock.y--;
		c>>=4;
	}

	//繪制新方塊
	DrawBlock(g_CurBlock);

	//繪制下一個方塊
	setfillcolor(BLACK);
	solidrectangle((WIDTH+1)*UNIT,0,(WIDTH+5)*UNIT-1,4*UNIT-1);
	DrawBlock(g_NextBlock);

	//設置計時器，用於判斷自動下落
	m_oldtime=GetTickCount();
}


//畫單元方塊
voidDrawUnit(intx,inty,COLORREFc,DRAW_draw)
{
	//計算單元方塊對應的屏幕坐標
	intleft=x*UNIT;
	inttop=(HEIGHT-y-1)*UNIT;
	intright=(x+1)*UNIT-1;
	intbottom=(HEIGHT-y)*UNIT-1;

	//畫單元方塊
	switch(_draw)
	{
		caseSHOW:
			//畫普通方塊
			setlinecolor(0x006060);
			roundrect(left+1,top+1,right-1,bottom-1,5,5);
			setlinecolor(0x003030);
			roundrect(left,top,right,bottom,8,8);
			setfillcolor(c);
			setlinecolor(LIGHTGRAY);
			fillrectangle(left+2,top+2,right-2,bottom-2);
			break;

		caseFIX:
			//畫固定的方塊
			setfillcolor(RGB(GetRValue(c)*2/3,GetGValue(c)*2/3,GetBValue(c)*2/3));
			setlinecolor(DARKGRAY);
			fillrectangle(left+1,top+1,right-1,bottom-1);
			break;

		caseCLEAR:
			//擦除方塊
			setfillcolor(BLACK);
			solidrectangle(x*UNIT,(HEIGHT-y-1)*UNIT,(x+1)*UNIT-1,(HEIGHT-y)*UNIT-1);
			break;
	}
}


//畫方塊
voidDrawBlock(BLOCKINFO_block,DRAW_draw)
{
	WORDb=g_Blocks[_block.id].dir[_block.dir];
	intx,y;

	for(inti=0;i<16;i++,b<<=1)
		if(b&0x8000)
		{
			x=_block.x+i%4;
			y=_block.y-i/4;
			if(y<HEIGHT)
				DrawUnit(x,y,g_Blocks[_block.id].color,_draw);
		}
}


//檢測指定方塊是否可以放下
boolCheckBlock(BLOCKINFO_block)
{
	WORDb=g_Blocks[_block.id].dir[_block.dir];
	intx,y;

	for(inti=0;i<16;i++,b<<=1)
		if(b&0x8000)
		{
			x=_block.x+i%4;
			y=_block.y-i/4;
			if((x<0)||(x>=WIDTH)||(y<0))
				returnfalse;

			if((y<HEIGHT)&&(g_World[x][y]))
				returnfalse;
		}

	returntrue;
}


//旋轉方塊
voidOnRotate()
{
	//獲取可以旋轉的x偏移量
	intdx;
	BLOCKINFOtmp=g_CurBlock;
	tmp.dir++;					if(CheckBlock(tmp))	{	dx=0;		gotorotate;	}
	tmp.x=g_CurBlock.x-1;	if(CheckBlock(tmp))	{	dx=-1;	gotorotate;	}
	tmp.x=g_CurBlock.x+1;	if(CheckBlock(tmp))	{	dx=1;		gotorotate;	}
	tmp.x=g_CurBlock.x-2;	if(CheckBlock(tmp))	{	dx=-2;	gotorotate;	}
	tmp.x=g_CurBlock.x+2;	if(CheckBlock(tmp))	{	dx=2;		gotorotate;	}
	return;

rotate:
	//旋轉
	DrawBlock(g_CurBlock,CLEAR);
	g_CurBlock.dir++;
	g_CurBlock.x+=dx;
	DrawBlock(g_CurBlock);
}


//左移方塊
voidOnLeft()
{
	BLOCKINFOtmp=g_CurBlock;
	tmp.x--;
	if(CheckBlock(tmp))
	{
		DrawBlock(g_CurBlock,CLEAR);
		g_CurBlock.x--;
		DrawBlock(g_CurBlock);
	}
}


//右移方塊
voidOnRight()
{
	BLOCKINFOtmp=g_CurBlock;
	tmp.x++;
	if(CheckBlock(tmp))
	{
		DrawBlock(g_CurBlock,CLEAR);
		g_CurBlock.x++;
		DrawBlock(g_CurBlock);
	}
}


//下移方塊
voidOnDown()
{
	BLOCKINFOtmp=g_CurBlock;
	tmp.y--;
	if(CheckBlock(tmp))
	{
		DrawBlock(g_CurBlock,CLEAR);
		g_CurBlock.y--;
		DrawBlock(g_CurBlock);
	}
	else
		OnSink();	//不可下移時，執行「沉底方塊」操作
}


//沉底方塊
voidOnSink()
{
	inti,x,y;

	//連續下移方塊
	DrawBlock(g_CurBlock,CLEAR);
	BLOCKINFOtmp=g_CurBlock;
	tmp.y--;
	while(CheckBlock(tmp))
	{
		g_CurBlock.y--;
		tmp.y--;
	}
	DrawBlock(g_CurBlock,FIX);

	//固定方塊在游戲區
	WORDb=g_Blocks[g_CurBlock.id].dir[g_CurBlock.dir];
	for(i=0;i<16;i++,b<<=1)
		if(b&0x8000)
		{
			if(g_CurBlock.y-i/4>=HEIGHT)
			{	//如果方塊的固定位置超出高度，結束游戲
				GameOver();
				return;
			}
			else
				g_World[g_CurBlock.x+i%4][g_CurBlock.y-i/4]=1;
		}

	//檢查是否需要消掉行，並標記
	BYTEremove=0;	//低4位用來標記方塊涉及的4行是否有消除行為
	for(y=g_CurBlock.y;y>=max(g_CurBlock.y-3,0);y--)
	{
		i=0;
		for(x=0;x<WIDTH;x++)
			if(g_World[x][y]==1)
				i++;

		if(i==WIDTH)
		{
			remove|=(1<<(g_CurBlock.y-y));
			setfillcolor(LIGHTGREEN);
			setlinecolor(LIGHTGREEN);
			setfillstyle(BS_HATCHED,HS_DIAGCROSS);
			fillrectangle(0,(HEIGHT-y-1)*UNIT+UNIT/2-5,WIDTH*UNIT-1,(HEIGHT-y-1)*UNIT+UNIT/2+5);
			setfillstyle(BS_SOLID);
		}
	}

	if(remove)	//如果產生整行消除
	{
		//延時300毫秒
		Sleep(300);

		//擦掉剛才標記的行
		IMAGEimg;
		for(i=0;i<4;i++,remove>>=1)
		{
			if(remove&1)
			{
				for(y=g_CurBlock.y-i+1;y<HEIGHT;y++)
					for(x=0;x<WIDTH;x++)
					{
						g_World[x][y-1]=g_World[x][y];
						g_World[x][y]=0;
					}

				getimage(&img,0,0,WIDTH*UNIT,(HEIGHT-(g_CurBlock.y-i+1))*UNIT);
				putimage(0,UNIT,&img);
			}
		}
	}

	//產生新方塊
	NewBlock();
}

6. 用c語言編寫俄羅斯方塊程序 求詳解

1、用C語言繪制圖形界面

EasyX圖形庫(http://www.easyx.cn)即TC的圖形庫在VC下的移植。

包含庫#include <graphics.h>

先初始化圖形窗口

initgraph(WINDOW_WIDTH, WINDOW_HIGH) ;WINDOW_WIDTH為窗口的寬頻，WINDOW_HIGH為窗口的高度。

清空繪圖設備

cleardevice();

設置畫筆顏色

setcolor(RED) ;

設置線條風格

setlinestyle(PS_SOLID, NULL, 0);

畫矩形

rectangle

還有畫線、顯示文字等函數，可以參照其幫助文檔。

注意：由於我們用的是EasyX圖形庫，故源文件後綴要為.cpp，但其中內容都是C的語法。

2、存儲表示出俄羅斯方塊的形狀

一、我們可以用編號，不同的編號代表不同的俄羅斯方塊，根據編號把不同方塊的畫法寫在代碼中，這樣19種

方塊就得有19種相應的代碼來描繪。而且這樣擴展性不好，若以後設計了新的方塊，則需要更改大量源代碼。

二、我們很自然的想到可用字模點陣的形式來表示，即設置一個4行4列的數組，元素置1即代表這個位置有小

方塊，元素置0即代表這個位置無小方塊，這個整個的4*4的數組組成俄羅斯方塊的形狀。

1000

1000

1100

0000

我們把俄羅斯方塊點陣的數位存在rockArray中，我們可以事先把這19種方塊的字模點陣自己轉化成十六進制，然後在rockArray數組的初始化時賦值進去。

但這樣做未免有點太費力，且擴展性也不太好，若以後設計的新方塊種類加入，要改變數組rockArray中的值。

我們可以考慮把所有俄羅斯方塊的點陣存儲在配置文件中，在程序初始化時讀取文件，把這些點陣轉換成unsigned int的變數存儲在rockArray中。

這樣，以後我們增添新的方塊形狀只需要在配置文件中增加新的點陣即可。

@###

@###

@@##

####（為使得看起來更醒目，我們用@表示1，用#表示0）

3、讓圖形動起來

在某位置處用函數DrawRock在屏幕上畫出俄羅斯方塊，然後再擦除掉(即用背景色在原位置處重繪一次方塊)，最後在下落的下一個位置處用函數DrawRock在屏幕上畫出俄羅斯方塊，如此循環，中間用計時器間隔一段時間以控制下落的速度。

同理，按下屏幕的左右鍵也是如此，只是在按下鍵盤時把方塊的位置重新計算了。

那麼按下上方向鍵時，如何讓方塊翻轉呢？

我們在配置文件中就把方塊的順時針翻轉形態放在了一起：

@###

@###

@@##

####

@@@#

@###

####

####

@@##

#@##

#@##

####

##@#

@@@#

####

####

我們每按一次上方向鍵改變一次方塊的形狀即可。若一直按上鍵，形狀應該是循環地翻滾。

我們想到了循環鏈表的數據結構可實現這個效果。

可是我們若把這些一種類的方塊的各種形態串成循環鏈表形式，那麼每次重新生成方塊時我們就難以隨機地生成方塊了。

故還是得用數組來存儲，但又要有循環鏈表的功能，於是我們想到了靜態循環鏈表。

我們用結構體來作為一個方塊在rockArray中的元素

typedef struct ROCK

{ //用來表示方塊的形狀(每一個位元組是8位，用每4位表示方塊中的一行)

unsigned int rockShapeBits ;

int nextRockIndex ; //下一個方塊，在數組中的下標

} RockType ;

這樣，當我們按下上方向鍵時，把傳入函數DrawRock中的rockIndex變為當前方塊結構體中的nextRockIndex即可。

7. 求一個用C語言編寫的小游戲代碼

/*也不知道你是什麼級別的，我是一個新手，剛接觸編程語言，以下是我自己變得一個小程序，在所有c語言的編譯器（vc++6.0、turbo…………）上都能運行，你還可以進一步改進。這是一個類似貪吃蛇的小游戲。祝你好運*/
/*貪吃蛇*/
#include<stdio.h>
#include<time.h>
#include<conio.h>
#include<stdlib.h>
int head=3 ,tail=0;
int main()
{
int i,j,k=0;
int zuobiao[2][80];
long start;
int direction=77;
int gamespeed;
int timeover;
int change(char qipan[20][80],int zuobiao[2][80],char direction);
zuobiao[0][tail]=1;zuobiao[1][tail]=1;zuobiao[0][1]=1;zuobiao[1][1]=2;zuobiao[0][2]=1;zuobiao[1][2]=3;zuobiao[0][head]=1;zuobiao[1][head]=4;
/*處理棋盤*/
char qipan[20][80];//定義棋盤
for(i=0;i<20;i++)
for(j=0;j<80;j++)
qipan[i][j]=' ';//初始化棋盤
for(i=0;i<80;i++)
qipan[0][i]='_';
for(i=0;i<20;i++)
qipan[i][0]='|';
for(i=0;i<20;i++)
qipan[i][79]='|';
for(i=0;i<80;i++)
qipan[19][i]='_';
qipan[1][1]=qipan[1][2]=qipan[1][3]='*';//初始化蛇的位置
qipan[1][4]='#';
printf("This is a game of a SNAKE.\nGOOD LUCK TO YOU !\n");
printf("Input your game speed,please.(e.g.300)\n");
scanf("%d",&gamespeed);

while(direction!='q')
{
system("cls");
for(i=0;i<20;i++)//列印出棋盤
for(j=0;j<80;j++)
printf("%c",qipan[i][j]);
timeover=1;
start=clock();
while(!kbhit()&&(timeover=clock()-start<=gamespeed));
if(timeover)
{
getch();
direction=getch();
}
else
direction=direction;
if(!(direction==72||direction==80||direction==75||direction==77))
{
return 0;
system("cls");
printf("GAME OVER!\n");
}
if(!change(qipan,zuobiao,direction))
{
direction='q';
system("cls");
printf("GAME OVER!\n");
}
}
return 0;
}
int change(char qipan[20][80],int zuobiao[2][80],char direction)
{
int x,y;
if(direction==72)
x=zuobiao[0][head]-1;y=zuobiao[1][head];
if(direction==80)
x=zuobiao[0][head]+1;y=zuobiao[1][head];
if(direction==75)
x=zuobiao[0][head];y=zuobiao[0][head]-1;
if(direction==77)
x=zuobiao[0][head];y=zuobiao[1][head]+1;
if(x==0||x==18||y==78||y==0)
return 0;
if(qipan[x][y]!=' ')
return 0;
qipan[zuobiao[0][tail]][zuobiao[1][tail]]=' ';
tail=(tail+1)%80;
qipan[zuobiao[0][head]][zuobiao[1][head]]='*';
head=(head+1)%80;
zuobiao[0][head]=x;
zuobiao[1][head]=y;
qipan[zuobiao[0][head]][zuobiao[1][head]]='#';
return 1;
}

8. c語言：編寫程序，輸入是個學生的學號、姓名成績，輸出學生成績等級和不及格人數。

strcpy(students[i].grade,"set_grade(score)"); => students[i].grade=set_grade(score);

students[i].grade-"D"==0 => students[i].grade-'D'==0

9. 將C語言轉換成VB

C語言轉成VB不是可能，只是難度太大，你這10分實在太吝嗇了。
而且有一些是無法轉換的，例如你這句
#include "CRC.h"
這個CRC.h，VB語言是不兼容的。
我勸你還是好好學習吧。這種偷懶的事情，我大學里干過，在處理實驗數據時，隨便抄了個程序（fortran語言），又怕都是發現，於是把fortran語言轉成C語言，一心想著欺負老師看不懂（或者不熟悉）C語言，居然給矇混過關，一開始還沾沾自喜，現在想起，兩種語言風牛馬不相及，只不過是都是不願意跟學生計較罷了，想起來真是慚愧。

10. C語言編程，要求有反代碼，功能不限，20行以上，求高手幫忙啊

#include "stdafx.h"
#include <stdio.h> //身份證號碼升級
int main()
{
int i,wi=0;
char sh[19],a[4];
int w[17]={7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2};
char y[12]={"10x98765432"};
printf("請輸入15位身份證號碼:");
scanf("%s",sh);
printf("\n");
for(i=15;i>=6;i--)
sh[i+2]=sh[i];
sh[6]='1';sh[7]='9';
printf("\n");
for(i=0;i<17;i++)
wi+=(sh[i]-'0')*w[i];
sh[17]=y[wi%11];
sh[18]='\0';
printf("18位身份證號碼是:%s\n",sh);
}

匯編：
int main()
{
000B6C26 inc ebp
000B6C27 cld
int i, wi = 0;
000B6C28 mov dword ptr [wi],0
char sh[19];
int w[17] = { 7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2 };
000B6C2F mov dword ptr [w],7
000B6C36 mov dword ptr [ebp-7Ch],9
000B6C3D mov dword ptr [ebp-78h],0Ah
000B6C44 mov dword ptr [ebp-74h],5
000B6C4B mov dword ptr [ebp-70h],8
000B6C52 mov dword ptr [ebp-6Ch],4
000B6C59 mov dword ptr [ebp-68h],2
000B6C60 mov dword ptr [ebp-64h],1
000B6C67 mov dword ptr [ebp-60h],6
000B6C6E ?? ??
000B6C6F ?? ??
000B6C70 ?? ??
000B6C71 ?? ??
000B6C72 add byte ptr [eax],al
000B6C74 add bh,al
000B6C76 inc ebp
000B6C77 test al,7
000B6C79 add byte ptr [eax],al
000B6C7B add bh,al
000B6C7D inc ebp
000B6C7E lods byte ptr [esi]
char sh[19];
int w[17] = { 7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2 };
000B6C7F or dword ptr [eax],eax
000B6C81 add byte ptr [eax],al
000B6C83 mov dword ptr [ebp-50h],0Ah
000B6C8A mov dword ptr [ebp-4Ch],5
000B6C91 mov dword ptr [ebp-48h],8
000B6C98 mov dword ptr [ebp-44h],4
000B6C9F mov dword ptr [ebp-40h],2
char y[12] = { "10x98765432" };
000B6CA6 mov eax,dword ptr ds:[000BED84h]
000B6CAB mov dword ptr [y],eax
000B6CB1 mov ecx,dword ptr ds:[0BED88h]
000B6CB7 mov dword ptr [ebp-90h],ecx
000B6CBD mov edx,dword ptr ds:[0BED8Ch]
char y[12] = { "10x98765432" };
000B6CC3 mov dword ptr [ebp-8Ch],edx
cout<<"請輸入15位身份證號碼:";
000B6CC9 push 0BED94h
000B6CCE mov eax,dword ptr ds:[000C20C0h]
000B6CD3 push eax
000B6CD4 call std::operator<<<std::char_traits<char> > (0B1302h)
000B6CD9 add esp,8
cin >> sh;
000B6CDC lea eax,[sh]
000B6CDF push eax
000B6CE0 mov ecx,dword ptr ds:[0C20BCh]
000B6CE6 push ecx
000B6CE7 call std::operator>><char,std::char_traits<char> > (0B10E1h)
000B6CEC add esp,8
for (i = 15; i >= 6; i--)
000B6CEF mov dword ptr [i],0Fh
000B6CF6 jmp main+101h (0B6D01h)
000B6CF8 mov eax,dword ptr [i]
000B6CFB sub eax,1
000B6CFE mov dword ptr [i],eax
000B6D01 cmp dword ptr [i],6
000B6D05 jl main+117h (0B6D17h)
sh[i + 2] = sh[i];
000B6D07 mov eax,dword ptr [i]
000B6D0A mov ecx,dword ptr [i]
000B6D0D mov dl,byte ptr sh[ecx]
000B6D11 mov byte ptr [ebp+eax-32h],dl
000B6D15 jmp main+0F8h (0B6CF8h)
sh[6] = '1'; sh[7] = '9';
000B6D17 mov eax,1
000B6D1C imul ecx,eax,6
000B6D1F mov byte ptr sh[ecx],31h
000B6D24 mov eax,1
000B6D29 imul ecx,eax,7
000B6D2C mov byte ptr sh[ecx],39h
printf("\n");
000B6D31 mov esi,esp
000B6D33 push 0BEDB0h
000B6D38 call dword ptr ds:[0C2220h]
000B6D3E add esp,4
000B6D41 cmp esi,esp
000B6D43 call __RTC_CheckEsp (0B1398h)
for (i = 0; i<17; i++)
000B6D48 mov dword ptr [i],0
000B6D4F jmp main+15Ah (0B6D5Ah)
000B6D51 mov eax,dword ptr [i]
000B6D54 add eax,1
000B6D57 mov dword ptr [i],eax
000B6D5A cmp dword ptr [i],11h
000B6D5E jge main+17Bh (0B6D7Bh)
wi += (sh[i] - '0')*w[i];
000B6D60 mov eax,dword ptr [i]
000B6D63 movsx ecx,byte ptr sh[eax]
000B6D68 sub ecx,30h
000B6D6B mov edx,dword ptr [i]
000B6D6E imul ecx,dword ptr w[edx*4]
000B6D73 add ecx,dword ptr [wi]
000B6D76 mov dword ptr [wi],ecx
000B6D79 jmp main+151h (0B6D51h)
sh[17] = y[wi % 11];
000B6D7B mov eax,dword ptr [wi]
000B6D7E cdq
000B6D7F mov ecx,0Bh
000B6D84 idiv eax,ecx
000B6D86 mov eax,1
000B6D8B imul ecx,eax,11h
000B6D8E mov dl,byte ptr y[edx]
000B6D95 mov byte ptr sh[ecx],dl
sh[18] = '\0';
000B6D99 mov eax,1
sh[18] = '\0';
000B6D9E imul ecx,eax,12h
000B6DA1 mov dword ptr [ebp-160h],ecx
000B6DA7 cmp dword ptr [ebp-160h],13h
000B6DAE jae main+1B2h (0B6DB2h)
000B6DB0 jmp main+1B7h (0B6DB7h)
000B6DB2 call ___report_rangecheckfailure (0B1415h)
000B6DB7 mov edx,dword ptr [ebp-160h]
000B6DBD mov byte ptr sh[edx],0
cout << "18位身份證號碼是:" << sh << "\n";
000B6DC2 push 0BEDB0h
000B6DC7 lea eax,[sh]
000B6DCA push eax
000B6DCB push 0BEDB4h
000B6DD0 mov ecx,dword ptr ds:[0C20C0h]
000B6DD6 push ecx
000B6DD7 call std::operator<<<std::char_traits<char> > (0B1302h)
000B6DDC add esp,8
000B6DDF push eax
000B6DE0 call std::operator<<<std::char_traits<char> > (0B1302h)
000B6DE5 add esp,8
000B6DE8 push eax
000B6DE9 call std::operator<<<std::char_traits<char> > (0B1302h)
000B6DEE add esp,8
}
000B6DF1 jmp main+1F5h (0B6DF5h)
000B6DF3 jmp main+1F7h (0B6DF7h)
000B6DF5 xor eax,eax
000B6DF7 push edx
000B6DF8 mov ecx,ebp
000B6DFA push eax
000B6DFB lea edx,ds:[0B6E28h]
000B6E01 call @_RTC_CheckStackVars@8 (0B1159h)
000B6E06 pop eax
000B6E07 pop edx
000B6E08 pop edi
000B6E09 pop esi
000B6E0A pop ebx
000B6E0B mov ecx,dword ptr [ebp-4]
000B6E0E xor ecx,ebp
000B6E10 call @__security_check_cookie@4 (0B1050h)
000B6E15 add esp,164h
000B6E1B cmp ebp,esp
000B6E1D call __RTC_CheckEsp (0B1398h)
000B6E22 mov esp,ebp
000B6E24 pop ebp
000B6E25 ret
000B6E26 mov edi,edi
000B6E28 add eax,dword ptr [eax]
000B6E2A add byte ptr [eax],al
000B6E2C xor byte ptr [esi+0Bh],ch
000B6E2F add ah,cl
000B6E31 ?? ??
000B6E32 ?? ??
000B6E33 call dword ptr [ebx]
000B6E35 add byte ptr [eax],al
000B6E37 add byte ptr [eax+6Eh],bl
000B6E3A or eax,dword ptr [eax]
000B6E3C cmp bh,0FFh
000B6E3F inc dword ptr [eax+eax]
000B6E43 add byte ptr [esi+6Eh],dl
000B6E46 or eax,dword ptr [eax]
000B6E48 ins byte ptr es:[edi],dx
000B6E49 ?? ??
000B6E4A ?? ??
000B6E4B dec dword ptr [eax+eax]
000B6E4E add byte ptr [eax],al
000B6E50 push esp
000B6E51 outs dx,byte ptr [esi]
000B6E52 or eax,dword ptr [eax]
000B6E54 jns main+256h (0B6E56h)
000B6E56 ja main+258h (0B6E58h)
000B6E58 jae _main+2C2h (0B6EC2h)
000B6E5A add ah,cl