賽程源碼

① 跪求 VB 課程設計 高手

學生檔案管理系統 vb

——————————————附錄程序清單及注釋
程序清單6.1
Option Explicit
Dim Fi
leName As String '文件名，用於打開、保存文件
Dim UndoString As String '用於 Undo 操作
Dim UndoNew As String '用於 Undo 操作

Private Sub ImgUndoDisable()
'禁用「Undo」按鈕
UndoString = ""
UndoNew = ""
ImgUndo.Enabled = False
ImgUndo.Picture = ImageDisable.ListImages("Undo").Picture
End Sub

Private Sub ImgUndoEnable()
'有效「Undo」按鈕
ImgUndo.Enabled = True
ImgUndo.Picture = ImageUp.ListImages("Undo").Picture
End Sub

Private Sub Check_ImgPaste()
'設置粘貼按鈕
If Len(Clipboard.GetText) > 0 Then
ImgPaste.Enabled = True
ImgPaste.Picture = ImageUp.ListImages("Paste").Picture
Else
ImgPaste.Enabled = False
ImgPaste.Picture = ImageDisable.ListImages("Paste").Picture
End If
End Sub

Private Sub Check_ImgCutCopy()
'設置剪切、復制按鈕
If Text1.SelLength > 0 Then
ImgCut.Enabled = True
ImgCut.Picture = ImageUp.ListImages("Cut").Picture
ImgCopy.Enabled = True
ImgCopy.Picture = ImageUp.ListImages("Copy").Picture
Else
ImgCut.Enabled = False
ImgCut.Picture = ImageDisable.ListImages("Cut").Picture
ImgCopy.Enabled = False
ImgCopy.Picture = ImageDisable.ListImages("Copy").Picture
End If
End Sub
Private Sub BackColor_Click()
CommonDialog1.ShowColor
Text1.BackColor = CommonDialog1.Color
End Sub

Private Sub Box_Click()
'顯停工具欄
If Box.Checked Then
'將停顯工具欄
Box.Checked = False
CoolBar1.Visible = False
Else
Box.Checked = True
CoolBar1.Visible = True[NextPage]

End If

Form_Resize '重新調整控制項位置
End Sub

Private Sub Close_Click()
Dim FileNum As Integer

If Len(FileName) > 0 Then
'有輸入文件名
FileNum = FreeFile() '獲得可用文件號
Open FileName For Output As FileNum '打開輸出文件
'如果無指定文件，則創建新文件
Print #FileNum, Text1.Text '輸出文本
Close FileNum '關閉文件
End If

Text1.Text = ""
FileName = ""
End Sub

Private Sub ComboSize_Click()
Text1.FontSize = Val(ComboSize.Text)
End Sub

Private Sub ComboFont_Click()
Text1.FontName = ComboFont.Text
End Sub

Private Sub Copy_Click()
Clipboard.SetText Text1.SelText '復制文本到剪裁板
End Sub

Private Sub Cut_Click()
Clipboard.SetText Text1.SelText '復制文本到剪裁板
Text1.SelText = "" '清選擇的文本
End Sub

Private Sub DataTime_Click()
Text1.SelText = Now
End Sub

Private Sub Delete_Click()
Text1.SelText = "" '清選擇的文本
End Sub

Private Sub Edit_Click()
'當程序顯示「編輯」子菜單前，觸發該程序
If Text1.SelLength > 0 Then
'文本框中有選中的文本
Cut.Enabled = True
Copy.Enabled = True
Delete.Enabled = True
Else
Cut.Enabled = False
Copy.Enabled = False
Delete.Enabled = False
End If

If Len(Clipboard.GetText()) > 0 Then
'剪裁板中有文本數據
Paste.Enabled = True
Else
'沒有可粘貼的文本
Paste.Enabled = False
End If
End Sub

Private Sub Exit_Click()
Unload Me
End Sub

Private Sub FindText_KeyPress(KeyAscii As Integer)
Dim BeginPos As Long

If KeyAscii = 13 Then
BeginPos = InStr(1, Text1.Text, FindText.Text, vbTextCompare)
If BeginPos > 0 Then
Text1.SelStart = BeginPos - 1
Text1.SelLength = Len(FindText.Text)
End If
End If
End Sub

Private Sub Fontcolor_Click()
CommonDialog1.ShowColor
Text1.ForeColor = CommonDialog1.Color
End Sub

Private Sub Form_Load()
Dim i As Integer

'載入圖像
ImgNew.Picture = ImageUp.ListImages("New").Picture
ImgOpen.Picture = ImageUp.ListImages("Open").Picture
ImgSave.Picture = ImageUp.ListImages("Save").Picture
ImgUndo.Picture = ImageDisable.ListImages("Undo").Picture
Check_ImgPaste
Check_ImgCutCopy

'載入系統字體
For i = 0 To Screen.FontCount - 1
ComboFont.AddItem Screen.Fonts(i)
Next i
End Sub

Private Sub Form_Resize()
Dim TextTop As Long

'修改工具條大小
CoolBar1.Top = Me.ScaleTop
Me.ScaleLeft
Text1.Width = Me.ScaleWidth
If Me.ScaleHeight > CoolBar1.Height Then
Text1.Height = Me.ScaleHeight - TextTop
Else
Text1.Height = 0
End If
End Sub

Private Sub ImgCopy_Click()
Copy_Click '復制
Check_ImgPaste
Check_ImgCutCopy
End Sub

Private Sub ImgCopy_MouseDown(Button As Integer, Shift As Integer,

X As Single, Y As Single)
'「按下」按鈕
If Button = 1 Then
ImgCopy.Picture = ImageDown.ListImages("Copy").Picture
End If
End Sub

Private Sub ImgCopy_MouseMove(Button As Integer, Shift As Integer,

X As Single, Y As Single)
Label1 = "將選擇的文本復制到剪裁板"

'判斷滑鼠位置,顯示不同圖像
If Button = 1 And (X > 0 And X < ImgNew.Width And Y > 0 And Y <

ImgNew.Height) Then
ImgCopy.Picture = ImageDown.ListImages("Copy").Picture[NextPage]

ElseIf Button = 1 Then
ImgCopy.Picture = ImageUp.ListImages("Copy").Picture
End If
End Sub
Private Sub ImgCopy_MouseUp(Button As Integer, Shift As Integer, X

As Single, Y As Single)
If Button = 1 Then
'「抬起」按鈕
ImgCopy.Picture = ImageUp.ListImages("Copy").Picture
End If
End Sub

Private Sub ImgCut_Click()
'If Text1.SelLength > 0 Then
Cut_Click '剪切
Check_ImgPaste
Check_ImgCutCopy
'End If
End Sub

Private Sub ImgCut_MouseDown(Button As Integer, Shift As Integer,

X As Single, Y As Single)
If Button = 1 Then
'「按下」按鈕
ImgCut.Picture = ImageDown.ListImages("Cut").Picture
End If
End Sub

Private Sub ImgCut_MouseMove(Button As Integer, Shift As Integer,

X As Single, Y As Single)
Label1 = "剪切選擇的文字到剪裁板"

'判斷滑鼠位置,顯示不同圖像
If Button = 1 And (X > 0 And X < ImgNew.Width And Y > 0 And Y <

ImgNew.Height) Then
ImgCut.Picture = ImageDown.ListImages("Cut").Picture
ElseIf Button = 1 Then
ImgCut.Picture = ImageUp.ListImages("Cut").Picture
End If
End Sub

Private Sub ImgCut_MouseUp(Button As Integer, Shift As Integer, X

As Single, Y As Single)
If Button = 1 Then
'「抬起」按鈕
ImgCut.Picture = ImageUp.ListImages("Cut").Picture
End If
End Sub

Private Sub ImgNew_Click()
New_Click
End Sub

Private Sub ImgNew_MouseDown(Button As Integer, Shift As Integer,

X As Single, Y As Single)
If Button = 1 Then
'「按下」按鈕
ImgNew.Picture = ImageDown.ListImages("New").Picture
End If
End Sub

Private Sub ImgNew_MouseMove(Button As Integer, Shift As Integer,

X As Single, Y As Single)
Label1 = "創建新文件" '修改提示信息

'判斷滑鼠位置,顯示不同圖像
If Button = 1 And (X > 0 And X < ImgNew.Width And Y > 0 And Y <

ImgNew.Height) Then
ImgNew.Picture = ImageDown.ListImages("New").Picture
ElseIf Button = 1 Then
ImgNew.Picture = ImageUp.ListImages("New").Picture
End If
End Sub

Private Sub ImgNew_MouseUp(Button As Integer, Shift As Int
eger, X As Single, Y As Single)
If Button = 1 Then
'「抬起」按鈕
ImgNew.Picture = ImageUp.ListImages("New").Picture
End If
End Sub

Private Sub ImgOpen_Click()
Open_Click
End Sub

Private Sub ImgOpen_MouseDown(Button As Integer, Shift As Integer,

X As Single, Y As Single)
'「按下」按鈕
If Button = 1 Then
ImgOpen.Picture = ImageDown.ListImages("Open").Picture
End If
End Sub
Private Sub ImgOpen_MouseMove(Button As Integer, Shift As Integer,

X As Single, Y As Single)
Label1 = "選擇文件名並打開文件"

'判斷滑鼠位置,顯示不同圖像
If Button = 1 And (X > 0 And X < ImgNew.Width And Y > 0 And Y <

ImgNew.Height) Then
ImgOpen.Picture = ImageDown.ListImages("Open").Picture
ElseIf Button = 1 Then
ImgOpen.Picture = ImageUp.ListImages("Open").Picture
End If
End Sub

Private Sub ImgOpen_MouseUp(Button As Integer, Shift As Integer, X

As Single, Y As Single)
If Button = 1 Then
'「抬起」按鈕
ImgOpen.Picture = ImageUp.ListImages("Open").Picture
End If
End Sub

Private Sub ImgPaste_Click()
Paste_Click '粘貼
End Sub

Private Sub ImgPaste_MouseDown(Button As Integer, Shift As

Integer, X As Single, Y As Single)
If Button = 1 Then
'「按下」按鈕
ImgPaste.Picture = ImageDown.ListImages("Paste").Picture[NextPage]

End If
End Sub

Private Sub ImgPaste_MouseMove(Button As Integer, Shift As

Integer, X As Single, Y As Single)
Label1 = "粘貼文本到當前游標位置"

'判斷滑鼠位置,顯示不同圖像
If Button = 1 And (X > 0 And X < ImgNew.Width And Y > 0 And Y <

ImgNew.Height) Then
ImgPaste.Picture = ImageDown.ListImages("Paste").Picture
ElseIf Button = 1 Then
ImgPaste.Picture = ImageUp.ListImages("Paste").Picture
End If
End Sub

Private Sub ImgPaste_MouseUp(Button As Integer, Shift As Integer,

X As Single, Y As Single)
If Button = 1 Then

eName For Output As FileNum '打開輸出文件
'如果無指定文件，則創建新文件
Print #FileNum, Text1.Text '輸出文本
Close FileNum '關閉文件
ImgUndoDisable
Else
MsgBox "不能保存無名文件" + Chr(13) + Chr(10) + "請選擇「文件」菜單

的「保存」項", , "警告"
End If
End Sub

Private Sub ImgSave_MouseDown(Button As Integer, Shift As Integer,

X As Single, Y As Single)
If Button = 1 Then
ImgSave.Picture = ImageDown.ListImages("Save").Picture
End If
End Sub

Private Sub ImgSave_MouseMove(Button As Integer, Shift As Integer,

X As Single, Y As Single)
Label1 = "保存當前文件"

'判斷滑鼠位置,顯示不同圖像
If Button = 1 And (X > 0 And X < ImgNew.Width And Y > 0 And Y <

ImgNew.Height) Then
ImgSave.Picture = ImageDown.ListImages("Save").Picture
ElseIf Button = 1 Then
ImgSave.Picture = ImageUp.ListImages("Save").Picture
End If

Private Sub ImgUndo_MouseMove(Button As Integer, Shift As Integer,

X As Single, Y As Single)
Label1 = "取消當前操作"

'判斷滑鼠位置,顯示不同圖像
If Button = 1 And (X > 0 And X < ImgNew.Width And Y > 0 And Y <

ImgNew.Height) Then
ImgUndo.Picture = ImageDown.ListImages("Undo").Picture
ElseIf Button = 1 Then
ImgUndo.Picture = ImageUp.ListImages("Undo").Picture
End If
End Sub

Private Sub ImgUndo_MouseUp(Button As Integer, Shift As Integer, X

As Single, Y As Single)
If Button = 1 Then
'「抬起」按鈕
ImgUndo.Picture = ImageUp.ListImages("Undo").Picture
End If
End Sub
Private Sub New_Click()
FileName = ""
Text1 = ""
ImgUndoDisable
End Sub

Private Sub Open_Click()
Dim FileNum As Integer
Dim buffer As String
Dim buffer1 As String
Dim FileSize As Long
Dim MaxLen As Long

MaxLen = 32768 '文件最大長度

CommonDialog1.ShowOpen '顯示"打開文件"對話框

If Len(CommonDialog1.FileName) > 0 Then
'有輸入文件名
FileName = CommonDialog1.FileName '保存文件名
FileSize = FileLen(FileName) '獲得文件長度
If FileSize > MaxLen Then[NextPage]

'文件超長
MsgBox "該文件過大，只能顯示部分文本", , "警告"
Exit Sub
End If

Screen.MousePointer = 11 '設置滑鼠為沙漏

FileNum = FreeFile() '獲得可用文件號
Open FileName For Input As FileNum '以順序輸入方式打開文件

Do While Not EOF(FileNum) And Len(buffer) < MaxLen '讀必須文本小於

32K
Line Input #FileNum, buffer1 '讀一行文字
buffer = buffer + buffer1 + Chr(13) + Chr(10) '加入回車換行符
Loop '循環體

Close FileNum '關閉文件

ImgUndoDisable '取消 Undo 功能

Text1.Text = buffer '顯示文本
UndoNew = buffer '保存文本
buffer = "" '釋放內存
buffer1 = ""
Screen.MousePointer = 0 '恢復滑鼠指針
Me.Caption = "記事本 - " + FileName '修改標題顯示
End If
End Sub

Private Sub Paste_Click()
Text1.SelText = Clipboard.GetText
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As

Integer, X As Single, Y As Single)
Label1 = "工具欄"
End Sub

Private Sub Picture1_Resize()
If Picture1.Width > Label1.Left Then
Label1.Width = Picture1.ScaleWidth - Label1.Left
End If
End Sub

Private Sub Save_Click()
Dim FileNum As Integer '文件句柄號

CommonDialog1.ShowSave '顯示保存對話框
If Len(CommonDialog1.FileName) > 0 Then
'有輸入文件名
FileName = CommonDialog1.FileName '保存文件名
FileNum = FreeFile() '獲得可用文件號
Open FileName For Output As FileNum '打開輸出文件
'如果無指定文件，則創建新文件
Print #FileNum, Text1.Text '輸出文本
Close FileNum '關閉文件
Me.Caption = "記事本 - " + FileName '修改標題顯示
ImgUndoDisable
End If
End Sub

Private Sub Text1_Change()
If Not ImgUndo.Enabled Then
'使「Undo」按鈕可用
ImgUndoEnable
End If
UndoString = UndoNew
UndoNew = Text1
End Sub

Private Sub Text1_Click()
Check_ImgCutCopy
End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Check_ImgCutCopy
End sub
End Sub

Private Sub ImgSave_MouseUp(Button As Integer, Shift As Integer, X

As Single, Y As Single)
If Button = 1 Then
'「抬起」按鈕
ImgSave.Picture = ImageUp.ListImages("Save").Picture
End If
End Sub

Private Sub ImgUndo_Click()
Text1.Text = UndoString
End Sub

Private Sub ImgUndo_MouseDown(Button As Integer, Shift As Integer,

X As Single, Y As Single)
If Button = 1 Then
'「按下」按鈕
ImgUndo.Picture = ImageDown.ListImages("Undo").Picture
End If
End Sub

② 開發一個視頻直播APP要多少錢

1、直播APP開發成本，跟其他定製類APP軟體開發不同，很多公司會用諸如 15000/人/月，3人，3月的方式來計算。

2、以這個直播項目為例，在這個直播App的報價產出的過程中，各個功能全定製化，加上3個重點需求難點，從產品、設計到最後開發都有團隊全程參與，最終開發一個這樣的App的費用定價是在30萬左右，而在確定啟動這個項目後，隨著更加深入的細節交流。從5萬—50萬不等。

為什麼會出現價格區間如此懸殊的報價

1、傳統的軟體開發外包公司，人力型行業， 一方面通過瘋狂的項目數量上的積累以及降低人員成本來獲得利潤，而另一方面的限制於它的工作性質很難吸引到優質的技術人才加入。

2、這就是大家對這個行業吐槽的真正原因，農貿市場式的良莠不齊，以上是一個APP的報價流程以及對於開發團隊方面的一些分析。

3、對於項目的時間估期以及總費用這一塊，不同的團隊預估以及成本會有所不同，直播APP開發的成本，有高有低，對於價格是一方面，其實最重要是選擇一家售前放心售後完善軟體開發公司。

4、據我說知，一家靠譜的APP開發公司，必定有自己的專業技術團隊。比如這家，我也線下考察過，程序開發人員接近80多人。聽朋友介紹，從阿里系、網路系、頭條系的有27名。足矣可 見，公司的人員的強悍。

③ 用C語言編比賽賽程

1.程序分析：判斷素數的方法：用一個數分別去除2到sqrt(這個數)，如果能被整除，
則表明此數不是素數，反之是素數。
2.程序源代碼：
main()
{
char i,j,k;/*i是a的對手，j是b的對手，k是c的對手*/
for(i='x';i<='z';i++)
for(j='x';j<='z';j++)
{
if(i!=j)
for(k='x';k<='z';k++)
{ if(i!=k&&j!=k)
{ if(i!='x'&&k!='x'&&k!='z')
printf("order is a--%c\tb--%c\tc--%c\n",i,j,k);
}
}
}
}

④ 開發一個直播APP要多久

開發一個APP的價格和時間取決於產品功能的復雜程度。
常見的APP，價格、開發時間、後期維護信息如下：
1、價格行情：1萬~10萬之間
APP系統包括蘋果iOS、安卓手機。
2、開發時間：1周~1.5個月之間
如前所述，需要看產品功能復雜度。
3、後期維護：看APP類型

根據APP類型不同有所差異，如果是新聞資訊、企業官網類APP，後期維護比較容易，工作其實主要是內容運營；如果是社交類APP，後期維護升級比較多，或者說功能需要不斷升級。
啟匯網路APP開發團隊給予專業的開發建議是需要看想做的APP功能是什麼樣的，然後再做判斷。

⑤ 2009年軟體大賽

2009年第一屆「中科杯」全國軟體設計大賽（參賽截止：2009-5-31）

關於組織首屆「中科杯」全國軟體設計大賽的函
軟組函[2009]1號

各有關高等學校、科研院所：
「中科杯」全國軟體設計大賽組委會受中國軟體行業協會和中國科學院軟體研究所的委託，於2009 年4 月至2009 年9 月底負責組織首屆「中科杯」全國軟體設計大賽，現將有關事項函告如下：

一、大賽主旨
首屆「中科杯」全國軟體設計大賽是中國軟體行業協會和中國科學院軟體研究所主辦的公益性質的全國性科技競賽，其主旨是：正確引導我國在校的青年學子積極參加科技競技活動，不斷培養創新精神和團隊意識，切實增強理論聯系實際的能力，通過富有自由、開放、創新精神的軟體設計大賽，為廣大青年學子提供一個提高自我、展示才華的舞台，為我國民族軟體行業發掘和培養更多的優秀青年人才。

二、大賽組織
為保障首屆「中科杯」全國軟體設計大賽順利開展，大賽成立指導委員會、專家評審委員會和組織委員會。指導委員會和專家評審委員會全面負責大賽的命題和評審，組織委員會負責大賽的組織、宣傳、協調工作。中國科學院院士董韞美、周巢塵、林惠民和中國軟體行業協會理事長陳沖、中國科學院軟體研究所所長李明樹等擔任指導委員會委員，北京大學、北京理工大學、北京郵電大學、哈爾濱工業大學、華中科技大學、清華大學、南京大學、武漢大學、西北工業大學、廈門大學、中國科技大學、中南大學、中科院計算所、中科院自動化所、中科院網路中心等高校和科研院所專家指導或研究生會（學生會）協辦。各委員會詳細名單參見大賽官方網站。

三、賽制賽程
1、2009 年4 月29 日下午，大賽主辦方召開新聞發布會，通過媒體正式發布大賽新聞。
2、2009 年4 月29 日至2009 年5 月31 日，我國大陸和港澳台地區的在校青年學生自由組隊（每隊最多由3 人組成），登陸大賽官方網站（http://cscup.iscas.ac.cn）在線報名。
3、各參賽隊在2009 年8 月1 日前提交中期報告。
4、各參賽隊在2009 年9 月1 日前提交作品終稿，包括可執行程序、源代碼以及相關文檔（如概要設計、詳細設計、用戶說明書等），不提交詳細文檔的作品默認為棄權。
5、大賽評委對提交的作品進行初審，篩選出約50 件作品，於2009 年9 月3 日至2009 年9 月9 日期間在大賽官方網站進行展示。
6、參考瀏覽者的評論和投票情況，大賽評委在2009 年9 月15 日前，對參與展示的作品進行二次評審，遴選出約20 件優秀作品進入決賽。
7、進入決賽的參賽隊，於2009 年9 月15 日在中國科學院軟體研究所進行作品展示和現場答辯，大賽評委評選出最終獲獎作品，並舉行頒獎儀式。

四、試題和評審
大賽針對面向大眾、系統、企業三種不同的軟體需求，分別選取三個主題作為大賽試題：
主題一、展現軟體技術的科普作品設計與製作
主題二、移動互聯網設備游戲設計
主題三、基於開源軟體的應用軟體架構設計與實踐
以上各主題均賦予了參賽選手充分的自由發揮空間，各參賽隊可任選一個主題，獨立設計完成一個具有創新性和實用性的應用系統或軟體架構。為更大程度地鼓勵創意和創新，參賽選手亦可結合自身的技術特長，選擇其它主題的作品參加大賽。
大賽作品的評審由大賽專家評審委員會完成，注重作品的創新性、實用性、技術實現難度、設計的合理性、穩定性、表現形式、答辯表現、網路投票與評論等。
有關大賽試題和評審的詳細信息可登陸大賽官方網站查看。

五、獎勵方案
本次大賽獎勵由兩部分組成：
1、獎項設置：
特等獎1 個，獎金20000 元，並頒發證書和「中科杯」
一等獎2 個，獎金10000 元，並頒發證書
二等獎3 個，獎金5000 元，並頒發證書
三等獎5 個，獎金3000 元，並頒發證書
入圍獎若干，價值100 元的FashionFree 卡，並頒發證書
2、免試條款：
在本次大賽中獲得特等級和一等獎的團隊成員，如果獲得所在學校的推免生資格，經學校推薦，將優先擬錄取為中科院軟體所2010 年攻讀碩士學位研究生。

六、大賽經費
1、本次大賽的組織和獎勵經費由中科方德軟體有限公司和中科軟科技股份有限公司共同贊助。
2、各參賽隊不需要繳納任何報名費和評審費。
3、對入圍決賽的參賽隊，大賽組委會負責報銷往返路費。

七、聯系方式
大賽官方網站：http://cscup.iscas.ac.cn
電子郵箱： [email protected]
在線咨詢： [email protected] (MSN)
傳真：010—62562533
電話：010—62661111
單位地址：北京市海淀區中關村南四街4號，中國科學院軟體研究生
通訊地址：北京8718信箱，100190
聯系人：陳柏強（13910639853）
特此函告，請大力支持！

該信息來源於賽才網。
更多比賽，可以登陸賽才網查看。

⑥ 小於div什麼意思

那是他網站代碼除了問題！
div是網頁中的一種布局模式！

⑦ 足球經理的FM系統

Football Manager（以下簡稱FM）系列作為足球經理游戲界的龍頭老大（雖然此界中也沒幾款作品），當得起「藝術」二字。
1984年，Kevin Toms在一個名為ZX Spectrum的游戲平台（慢說如今，便是當時也沒幾人知道的一個平台）上畫了一個圈，創造了我們所知的第一款足球經理游戲。1992年，英國人Paul以及Oliver Collyer 兩兄弟蹲在他們的卧室里搗鼓出了一款PC平台上的足球經理游戲，Championship Manager（以下簡稱CM，要特別注意的是，2004年後的CM與本文提及的CM/FM沒有任何關聯，因為其開發人員、游戲源代碼、引擎技術、球員數據等等游戲設計採用的都是另外一種理念，04年後的FM就是04年前CM），這便是後來風靡全球的CM/FM系列（下文統稱為FM系列）的老祖宗。
1993到現在已然17個年頭了，時代在變遷，FM系列也一直在變遷，後人們無緣經歷FM曾經的傳奇和歷史，便只能從字里行間去感受FM的風骨。
撲街的游戲各有各的雷點，成功的游戲各有各的賣點。但是成功的游戲系列，無一不經過沉浮起落，也只有遍嘗大紅大紫與失敗潦倒的滋味，不斷向上爬向前摸索，才能鑄造出經典。FM系列的17年，也逃不脫這樣一個沉浮起落的循環。
大多數系列游戲諸如Tomb Raider、Need For Speed、Call Of Duty等等，其發展都是遵循第一代名聲大噪，其後幾代良莠不齊偶見精品的生長規律，也就是說，大多數系列游戲都有一個成長期、探索期、成熟期、黃金期的發展過程。
而FM系列卻是與此不同，自成一家。
下文將會以此入手，把FM歷代劃分4個時段，一一細數FM歷代的引擎特點與戰術理念設計變遷。 FM的孕育期
有點資歷的老游戲玩家回憶起1993，一定會想起當時紅遍天下的橫版Prince Of Persia，或者Sid Meier大師的驚世神作Sid Meier』s Civilization，；有點資歷的球迷回憶起1993年，應該會想起巴喬兩度加冕世界足球先生，或者馬賽在歐冠決賽擊敗米蘭陷入賄賂丑聞，也可能會緬懷起那一年過世的英格蘭史上第一後衛Bobby Moore。而作為准90後的樓主，1993的時候，還穿著開襠褲，噢不，應該是赤裸著下體滿街跑然後跌個狗吃屎……
但不管是玩家，還是球迷，或者樓主，有關1993的記憶里都不會存在FM這個詞。
FM系列的前四代，就是在這環境中默默地孕育著。
1993年，Collyer兄弟在倫敦注冊了一家名為Sports Interactive（以下簡稱SI）的公司。 並在原始CM的基礎上進行加工，開發出了當時默默無聞的CM 1993。
這里插播一個趣聞，為什麼我們要從CM93而非CM Original開始講起，蓋因CMO採用的設計語言是BASIC，其糟糕的平台兼容性以及多如牛毛到令人發指的bug，除了花就是綠的畫面，球員全部隨機並以號碼為名，比賽模擬偶見無厘頭計算方式等等問題，據說讓Collyer兄弟回憶起往昔時常掩面淚奔。
CM93繼承了CMO比賽引擎、球員屬性加權計算進行評級等等當時領先整個業界的設計理念的同時，開始第一次引入界面設計、球員真實化、多聯賽並行等等設定。雖然僅僅對皇馬球員進行了真實化，但是從引入比賽過程中受傷、同步現實聯賽賽程、豐富球員轉會談判內容等等措施中都可以察覺到一點端倪，那就是從CM93開始，SI比其他的開發小組更早地確立了她後來賴以統治整個業界的設計思想——真實化。而這也是為什麼我們更願意把CM93作為FM系列起點的根本原因。
從一開始SI就顯露出了王的資質，她比同期其他足球經理游戲的開發小組更富想像力，更富市場前瞻力，即使那時的SI只有2個人。我們有理由去臆測這兩兄弟是否未來帝，或者章魚哥（P.S. 章魚哥也叫Paul）。
SI在93、94兩年，陸續推出了3張磁碟作為CM 93的追加磁碟，用於更新游戲中球員數據、聯賽賽程、游戲引擎等內容，這也就是後世的補丁。這個想法領先業界起碼3年。而那會的大部分游戲開發商甚至都還沒有後續服務的概念。後來的FM系列是不管第幾代，推出更新補丁這個良好習慣一直被保留了下來，也一直是玩家們所熱衷的話題之一。
CM93的時代太過遙遠，也因為足球經理游戲在那個年代缺乏關注，其游戲引擎到底如何已經不可考了，但是據收集到的一些資料來看，CM93引擎最大的特點就是，沒有特點。因為比賽模擬文字描述太過單一，玩家無法從游戲運行過程中尋覓到規律，比賽中可用的戰術調整總的來說就是三個——加強進攻、加強防守以及換人，也無法從勝負關系中察覺到除了球員外能影響比賽進程的因素。因而只能說，比賽引擎跟當時另外兩款作品（Premier Manager和The Manager）幾乎沒區別，也就是毫無特點。至於游戲的戰術理念，只能嘆一句「噢買尬」，只有兩個人的SI根本不敢考慮除了比賽模擬之外的其他事情。
不管從哪個方面來看，CM93都是成功的，她用真實化成功吸引了第一批擁躉去掏錢，然後，後人們應該感謝93年的人們，不要求試玩，不稀罕盜版，沒噴子，沒五毛，才能讓SI賺到倆小錢，去開創FM事業。
Collyer兄弟應該感到慶幸，他們在推出第二代FM——CM 2時剛巧是1995年。如果不是剛剛結束的世界盃抵消了眾多買了這款作品的球迷的不滿，CM 2一定會撲街。（邪惡臆測：也許CM 2從94跳票到95年也是這原因？）
CM 2比之CM 93幾乎就是一個簡單的升級包，除了在CM 93的基礎上像大部分游戲廠家做的那樣使用了新的技術更新了一下畫面——然而，你們懂的，FM玩的本來就不是畫面，允許並行的聯賽數量增加了以及推出多語言版本之外，毫無亮點。至於新加入的語音評論代替文字描述這個功能，拜託了，SI自己都不好意思再提，讓游戲的運行和比賽模擬速度降低了一個平方的設計就是一個雞肋。作為一款續作，CM 2是不成功的，但是作為一款商品，CM 2卻是巨成功的。CM 2的開發沒有花費多少資金，同時因為推出多語言版本反而讓她被全歐洲的球迷所認識。SI挖到了第一桶金，走出了成名的第一步。（小編再次邪惡臆測：也許CM 2的開發初衷就是為了斂財? ）
Collyer兄弟翻著賬本的時候一定鬆了一口氣，他嘀的終於有奶粉錢招兵買馬養FM這個胖娃了。
1996年，CM 96的誕生告訴了我們有錢有人的SI會爆發出怎樣一種能量。
剛打開游戲的時候，你會覺得這游戲可能要撲街，因為看起來她跟CM 2幾乎一樣，這可是兩年時間啊，居然沒一點變化？
但是當你進入到比賽模擬階段，你會被感動得淚流滿面，因為比賽開始變得不可控制。
這絕對不是反話，足球比賽之所謂為比賽，就是因為他不可控制也不是簡單的堆球員。足球比賽是球員技術的較量，但又是教練戰術的博弈，同時也是哪邊RP更好的比拼，這三者湊到一起，於是就有了那些傳世經典的足球比賽。
從CM 96開始，AI（人工智慧，比賽引擎屬於AI的一部分）的影響開始無處不在，不管是交易球員，還是戰術針對性，又或者場上偶見的一些失誤，更為難得的是，CM 96對比賽調整功能進行了擴充，而且AI也終於能針對你做出的調整做出反應了。
總的來說，CM 96對AI做出的改動其實不多，只是增強了其對玩家操作的互動以及對聯賽規則、球員交易規則真實化。再加上CM96的全名是CM2:96/97賽季，所以在那個年代許多不明真相的媒體都認為96就是CM 2的又一個升級包。
但只要是那個年代FM的玩家都知道，同時多年過去了再回首，才發現FM正是從CM 96開始學會行走，一步一步向今天蹣跚而來。
1997年對於SI來說，從她發行了CM 97開始，註定是個不平凡的年份。而CM 97的叫好叫座（1997年英國本土銷售冠軍）對她耳語：冷靜下來，不要激動，全世界的目光即將匯聚到你身上。
跟CM 96一樣，剛打開97的游戲時，你會再次認為這游戲要悲劇。
一樣啊，游戲引擎、游戲畫面完全一樣啊！
跟CM9 6一樣，當你玩過了97以後，你會再次被游戲感動得流淚。
97與96之間，只有三個變化。
第一，CAPA（能力與潛能）這個最核心的球員屬性，第一次被引入到了FM系列當中；
第二，資料庫編輯器這個最牛逼的修改器，第一次被引入到FM系列當中；
第三，全部球星實名制，第一次被引入到FM系列當中。
你還能要求什麼？
有讀者說，我要求畫面和聲效！
然而，你懂的，FM玩的本來就不是畫面。
然後，更重要的是，CM 93到97的游戲畫面幾乎沒有改變過，除了背景貼圖，就是貼圖背景，這也是那四年的CM飽受詬病的一大弱點，年輕一點的 FMer見了必然會直呼「雅蠛蝶」，故在此按下不表。
至於聲效……FM此物有聲效的嗎？
如果您實在忍受不了低畫質低音質，出門左轉，PES和FIFA在招手微笑~~
93-98的5年間，SI一步一步創建起了FM系列的一切核心要素，球員真實化，賽程與現實同步，多聯賽並行，巨大的可選資料庫，資料庫編輯器，游戲引擎，CAPA的設置，比賽戰術的模擬。
她出生了，她長大了。然後，她平靜的站在帷幔下，陰影里，調整著自己的呼吸，聽著觀眾席的歡呼，看著燈光漸漸黯淡下來的舞台，從嘴角抿出一絲微笑，然後，准備粉墨登場。
FM的黃金期
電子游戲從哪一年誕生已經很難查證了，但幾乎所有的游戲玩家都不能忘卻99年留給自己的美好回憶。那個時代，Tomb Raider艷絕江湖，Counter-Strike雄霸武林，Age of Empires橫掃六合，Star Craft君臨天下。
1999對於許多游戲製造商來說，那是許多段傳奇的時光，因為win98對DOS的改革為游戲設計帶來了更多的可能性。然而對於更多的游戲製造商來說，那是他們苦難的歲月，因為他們沒錢沒技術沒創意去緊跟時代的步伐。
當時，所有的媒體和玩家都被更具操作性、畫面更加絢麗的游戲蒙蔽了眼睛，在他們眼中沒有畫面只有枯燥的文字，沒有操作只有簡單的滑鼠點擊，沒有聯動只有一個人枯坐顯示器前的游戲，統統都是垃圾。
於是，順理成章的，剛剛有了一點名氣的FM也隨之立即成為許多游戲媒體口誅筆伐、明嘲暗諷的對象，甚至直接就可以收錄進牛津詞典作為「垃圾」一詞的另外一種拼法。
1998年的時候SI（其實早在1995年SI與Edios合並成了Edios Interactive，但實際上游戲的設計一直由SI員工進行，故本文一直使用SI）本該趁著CM 97的大紅大紫推出續作，然後她卻無端端沉寂了。於是瘋狂的媒體爽了，他們覺得SI就是一隻紙老虎，已經被市場的趨向嚇壞了，自動自覺退出了競爭。
恩，這是技術游戲的勝利，這是藝術游戲的勝利，這是華麗游戲的勝利！
FM這種枯燥乏味功利保守的雜念，玩蛋去吧！
樓主很喜歡看冠軍教父，樓主很喜歡的托尼·唐恩說過，抽別人耳光的感覺一定很爽。
99年3月，SI無聲無息推出系列中跨世代的第五作，CM 3。
如果不是光碟包裝上醒目的Edios Interactive商標，剛打開CM 3的時候，一定會有許多人以為這跟前幾作是不同公司發行完全不同的兩款游戲。簡直不在一個層次啊！
簡約樸素、在未來沿用10年之久的左右側樹形菜單，一改前幾作游戲界面的混亂；全新的數據後台處理機制，讓游戲運行速度上了兩個台階；可供選擇大小的資料庫，高達2萬5千名的球員、職員數量，直逼前作的3倍；全貨幣、貨幣價值真實化，青年隊和預備隊聯賽的引入，聯賽、杯賽數量的擴充，聯賽並行數量提升到15個，讓FM系列在真實化道路上的腳步更加堅實；而FM系列核心元素之一——聯機系統也從CM 3開始引入，雖然當時只能允許區域網內聯機，但也讓玩家們初次享受到互爆菊花的快活。
SI得意地笑，這個耳光，抽得你們爽不爽？
噴子們翻翻白眼，好吧，直觀表現力上是有了長足的進步，但是啊，還不夠還不夠，這樣的CM 3充其量就是個「精品」，「大作」？你才剛上路呢！
Collyer兄弟笑，得意地笑。
你當咱是仙劍二血獅啊？僅僅換個皮就該叫CM2:99/00而不是CM3了！
為了適應操作系統的變化，CM 3徹底拋棄了以往的游戲戰術引擎，而改用全新的陣型圖以及WB/WOB（有球/無球）跑位設置——也就是後代FM的核心，我們俗稱的球員拉線。
通過拉線，選擇狂攻、鐵桶陣、攻守平衡、穩守反擊、控制節奏這五種現代足球戰術方式，終於從99年開始成為FM系列不可或缺的一部分。而與之相應的，後防線站位、多人盯防、傳球方式、球隊整體節奏等等要素，也醒目的出現在了球隊戰術板上。
這是FM系列戰術理念的第一次進化，甚至可以說，從CM 3開始，FM系列才算有了「戰術」這個概念。
而為了搭配戰術上的變化，球員能力的概念也很自然要隨之發生變化。
這個變化足以顛覆整個足球經理世界。
FM系列誕生之初，對球員能力的描述只有簡單的防守、進攻、控球加上守門。此後的續作都有在此基礎中增添一些球員屬性，但都微不足道。
一直到CM3為止。
從CM 3開始，球員能力才正式被定義為技術精神身體三大類。SI在原來的基礎上對球員屬性進一步的細化，與各種球隊、球員戰術設置一一對應，徹底完成了戰術設計上的改革。
沒錯，我們所知的所有球員屬性，以及根據這些屬性衍生的所謂速度流、技術流或者精神流，都是以CM3作為開端，沿用至今。
這兩個根本性的改變，是CM 3取得一切成功的元素，讓SI贏得了滿堂彩，而這幾年間FM系列的大放異彩，與同期其他文字模擬游戲的沉淪相比，SI這個小公司與那些仗著有錢有勢有技術的巨頭相比，尤為難得。
一款大作，當然要有襯得起他的銷量。歐洲游戲年度銷售榜上醒目的NO.1，也正式宣告，從這時開始，從這里開始，FM系列即將飛黃騰達。
平步青雲摔倒時才最疼，SI似乎也深知這個道理。
CM 3往後的兩年裡，SI又一次收斂了所有的鋒芒，沒有盲目推出續作，只是在CM 3原有的基礎上，推兩款名為新系列游戲（CM 001,CM 012）實為CM 3的升級包對資料庫進行擴充，增加了諸如新聞發布會、記事本、球員對比等一些游戲細節上的內容，以及對游戲進行了優化。
但是這兩年的沉寂卻不同於98年受到的嘲諷和質疑，CM 3連續3年的紅火讓所有SI黑退避三舍，而SI不以物喜、冷靜默然的表現，彷彿暴雨前的寧靜，醞釀著一場席捲全球的颶風。
FM歷史上，CM4與CM 034實為兩款作品，但SI官方一直把這兩款作品都稱為CM4，所以在本文中把他們合並到一處統一作為CM4同一款產品來寫。CM4受眾太廣，人人心中都有一個不同的CM4，超級難寫的，若有不妥之處，請指教。
量變能引起質變。95年到99年，是FM系列的第一次量變，然後有了CM 3。00年到03年，SI用三年的時間，積累起了第二次足以引起質變數變。
2003年3月28日，FM誕生十周年，這是一個偉大的年份，這是一個偉大的日子。天空一聲巨響，FM系列史上最成功的作品，所有經歷過那個時代的FMer心中永恆的記憶，CM 4，攜帶一身王霸之氣華麗登場。
從FM系列誕生之初一直到2010年10月的今天位置，CM4都足以堪稱最華麗的一筆，樓主吐幹了肚子里僅有的一點墨水，除了「牛逼」二字，所有形容詞都顯得如此蒼白無力。
CM4開創了FM系列最黃金的時期，是他讓無數追星族認識到主帥對於俱樂部的重要性，他讓無數偽球迷從fans進化成supporter、從只看場面的小白進化成偶爾也能侃一兩句傳中你妹呀的老鳥，他培養一個又一個正太控，他孕育了一個又一個戀妖人癖。他創造了一個同時屬於真球迷、偽球迷、不真不偽球迷的世界，讓我們瘋狂迷戀、並投身其中上演一幕又一幕悲喜劇，讓我們在一個無比美好的幻想世界裡撒播一層又一層Otto Rehhagel光環，創造一段又一段Guy Roux奇跡。
（關於雷哈格爾與居伊魯，請自行度娘。）
毫不客氣的說，對於0304年的球迷，包括那時候連歐冠杯和歐錦賽都聽不太清的我自己，CM 4，即為該時代之名！
（鳴謝特邀嘉賓陰溝同學不收一枚屁股幣龍套演出！）
直到2010年的今天，你如果問我說「請問CM4對比起前作有什麼進化」，我只會回答你：「請問從CM4直到FM2008有什麼進化」。
這話雖然有點誇大，但事實就是如此，除了更龐大的資料庫、更精美的限制界面，以及添加了一些自定義功能（包括自製皮膚、隊徽、頭像等），哦最多算上核武器，續作直到FM2008甚至只多了一個3D視角的FM2009與CM4相比，都毫無「進化」二字可言。
從自由度到傳球方式到傳中落點的拉線，從CM4開始沿用至今；龐大的各種戰術選項，從CM4開始沿用至今；從邊路進攻到中路突進等等各種戰術理念、從速度流到技術流，從CM4開始沿用至今；包括天朝在內的全世界各大洲各大主要國家上百個聯賽，從CM4開始沿用至今；PA、CA的重要性已經養妖習慣，從CM4沿用至今；即使進入了10年代，無數FMer依然視之為王道的2D視角，從CM4沿用至今。
……從CM4沿用至今。
……沿用至今。
……至今。
FM系列從05直到即將推出的11，與其說是從CM93演變而來，不如說CM3到CM4的變革才是後續產品賴以生存的根基。
這根基不單指游戲，從CM4開始，第一因為游戲模式的的新穎，第二因為世界足球的蓬勃（感謝完國家然後感謝電視轉播的優越），第三則因為多語言甚至包括推出中文版本，讓FM系列在全球第一次有了群眾基礎，有了根基。這其中，就包括當時還蹲在初中每天逃課到煤渣地打滾、課後跑回家繼續在電腦上CM4里指揮一串串0和1在綠茵地上打滾的樓主我……
CM4里的0和1嗎，你們還好嗎？
CM4的玩家們，你們還好嗎？
曾記否，JR、土豆的激突猛進，卡卡、C羅的稚氣未脫？曾記否，BT442的威力無匹，NB433的橫掃千軍？曾記否，AI把健康的一比的Buffon丟替補席上，用Vieri當門將的啼笑因緣？曾記否，被狗咬傷的囧迫不堪、從牆上摔傷的天雷滾滾？
曾記否，還沒有下片子的習慣，晝夜開著電腦只為CM的輕狂歲月？
今宵別離後，何日君再來。
凌晨三點，喳喳蟬鳴，淡淡茶香。
我坐在電腦前，對著散發微弱光芒的顯示器，感覺今天不是10年10月，而是那個第二天逃課也要讓Leedz奪冠的夜，那個不屬於張狂初現的魔力鳥，不屬於黯然離隊的萬人迷，不屬於揮金如土的阿布，只屬於我和CM4的03年夏天。
拼搶，歡呼，噓聲，球，人，獎杯。
興奮，激動，緊張，焦，燥，感動。
歡迎來到足球經理的世界。
曾記否CM4的廣告詞？日復一日、年復一年，忠實的寫照著每一個FMer。
Don』t lose your head. Sit uprights. Be confident with the players,and the games is coming.
首先冷靜，然後坐定，給點自信。你聽，開場哨音長鳴。
從默默無聞到大紅大紫，許多產品花了一輩子也做不到的事，FM用了十年；從登堂入室到走上神壇，許多公司用了無數代產品也做不了的事，SI用了三代。
CM4如何被稱為堪稱經營類、競技類神作已經無需考究了，人人都認為是神作的游戲，還需要考究嗎？
不過如果真要找個原因的話，請看下面一組數據：
首發當日，打破英國本土電腦游戲銷售記錄（因為有demo）；
銷售一周，打破英國本如游戲銷售記錄（請大家相信當年PS2的威力）；
銷售一月，打破歐盟無年齡限制電腦游戲銷售記錄（大家別忘了03年的COD、玻璃渣的war craft III，恩，雖然這倆都是有年齡限制的……）；
銷售半年，打破，呃，這個樓主真Google不到還打破神馬記錄了……
無論如何，CM4的成功讓SI上下全體半夜做夢也會笑醒。這種成功來的如此迅疾，以至於前無古人，往後連SI本身推出的後續作品也不可超越。
SI式的成功是不可復制的，在我印象里可以翻找出無數異常霸氣但也推出過撲街作品的系列游戲，但這裡面絕不會有SI。
SI值得所有急功近利的企業去學習，因為哪怕CM4如此成功，她始終沒有迷失了FM的道路，依然誠誠懇懇，一步一個腳印向前走著，根據CM93到CM4的得失，從黃金時代緩步走進FM歷史中的探索期。

⑧ javascript 問題

簡單說一下吧，這是因為元素標簽換行會產生空文本節點,注意是空的文本節點哦，這在非IE或IE9以上的瀏覽器下會有這樣的問題，比如:
<body> <p>Hello</p> <p>world</p></body>body下面總共有5個元素哦，不是2個，是不是很不可思議，樓主可以親自在Firefox/chrome下測試，感受一下。這是由於，上面提到的節點之間的換行會產生空文本節點。為了解決樓主提到的問題，得先調用下面函數將空文本節點給移除掉:
function cleanWhitespace(element){ element = element || document; var nextNode, cur = element.firstChild; while(cur){ nextNode = cur.nextSibling; if(cur.nodeType == 3 && !/\S/.test(cur.nodeValue)){ element.removeChild(cur); }else if(cur.nodeType == 1){ cleanWhitespace(cur); } cur = nextNode; } }如果想清除文檔下所有空文本節點，則這樣調用：
cleanWhitespace();調用完了，樓主你在去body下面有個元素S，用s.parentNode.fisrtChild就可以找到S啦！！！