4.1 編制計算機程序解決問題 第四章 信息的加工與表達 什么是計算機程序？ 生活中有哪些包含了計算機程序？ 生活中包含計算機程序的例子非常多，比如學(xué)校的作息鐘就是用程序控制的，包括控制播放眼保操、音樂、課間操，各類軟件，等等。 某位同學(xué)的日記片段： 我的早晨 清晨六點，伴隨著準時而優(yōu)美的起床鈴聲，我邁出宿舍，走進了一樓餐廳。餐廳里人很多，沒有辦法，我只買了兩個饅頭作為我的早餐罷了。隨著我的餐卡在打卡機上輕輕掠過，一元便不翼而飛了。當我走到超市的時候，突然感覺只吃包子是不是太單調(diào)了，于是在超市里拿了一包早餐奶，但付錢的時候卻發(fā)現(xiàn)超市的收銀機壞掉了，沒奈何，我只得忍痛把剛拿到手的早餐奶又放了回去，真郁悶！ 你能在這個生活片段中，找出幾處計算機程序為我們生活服務(wù)的痕跡來呢？ 4.1.1 認識計算機與程序 1、計算機工作原理 數(shù)據(jù)程序 輸入設(shè)備 輸出設(shè)備 存儲器 內(nèi) 存 外 存 計算機各部件配合工作（ 馮諾伊曼：存儲程序控制原理） 結(jié)果 中央處理器 簡單地說就是：輸入 處理 輸出 4.1.1 認識計算機與程序 2、計算機的自動化處理過程 計算機是如何實現(xiàn)信息的自動處理呢？ 首先 ,將我們要完成的任務(wù)通過一系列的指令去描述 ,這一指令組稱為 程序 。然后 ,將完成任務(wù)所需的數(shù)據(jù)和程序 輸入 到計算機 ,再由計算機根據(jù)程序中的指令自動對數(shù)據(jù)進行處理 ,得出 結(jié)果。 程序： 可以看作是讓計算機實現(xiàn)某一功能的一系列計算機能夠識別的語句。 3、程序設(shè)計語言 程序設(shè)計語言：是人們與計算機打交道的橋梁，通過它告訴計算機執(zhí)行一系列操作，實現(xiàn)某種功能。 人與人的交流通過人的自然語言 人與計算機交流通過人設(shè)計的計算機語言 認識計算機編程語言 第一代： 機器語言 。完全由二進制的“ 0” ，“ 1” 組成的一些數(shù)字信息，只有計算機專業(yè)人員才能掌握它的編寫規(guī)則，但計算機可以非常方便的讀懂； 第二代： 匯編語言 。這種語言增加了一些容易記憶的英文縮寫來表示命令，它編制出來的程序計算機無法直接讀懂，必須翻譯成計算機語言。雖然比機器語言容易掌握，仍需要大量的計算機知識； 第三代： 高級語言 。高級語言是使用一些簡單的英文單詞 (或縮寫符號 )、數(shù)學(xué)式子來描述命令。這些語言的編程規(guī)則比較接近人的自然思考規(guī)則，所以比較容易被一般人掌握，也需要翻譯為機器語言。常用的高級語言如： BASIC， visual BASIC（簡稱 VB）， PASCAL,C等 . 低級語言 0100010001 01101010101 1000 0100010001 01101010111 1010 0100010011 01101010101 01101010111 Mov ax,8 Mov bx,10 Add ax,bx Y=8 X=Y+10 4.1.1 認識計算機與程序 高級語言 匯編語言 機器語言 機器語言、匯編語言、高級語言的區(qū)別 4.1.1 認識計算機與程序 4、計算機程序的編寫與執(zhí)行 計算機高級 語言程序 計算機機器 語言程序 人 計算機 編寫 編譯程序 執(zhí)行 計算機語言系統(tǒng) 問題：人和計算機如何交流呢？ Private Sub UserForm_Click() FileName$ = InputBox(請輸入需要加密的文件名及路徑 ) Open FileName$ For Input As #1 Line Input #1, yw$ Close #1 xw$ = n = Len(yw$) For i = 1 To n yz$ = Mid$(yw$, i, 1) xz$ = Chr(Asc(yz$) - 10) xw$ = xw$ & xz$ Next Open FileName$ For Output As #1 Print #1, xw$ Close #1 MsgBox # # # #加密已完成！ # # # # End Sub 4.1.2體驗程序的作用及其編制環(huán)境 案例 1：加密及解密程序 Private Sub Form_Activate() Option1.Caption = 石頭 Option2.Caption = 剪刀 Option3.Caption = 布 Option1.Value = False Option2.Value = False Option3.Value = False End Sub Private Sub Option1_Click() Randomize Select Case Int(3 * Rnd) Case 0: MsgBox 對方也出石頭！繼續(xù)！ Case 1: MsgBox 哈哈！你贏了！對方出的是剪刀！獎勵你一個蘋果！ Case 2: MsgBox 你輸了！對方出的是布哦！不好意思，蘋果給對方了哈！ End Select Option1.Value = False End Sub Private Sub Option2_Click() Randomize Select Case Int(3 * Rnd) Case 0: MsgBox 你輸了！對方出的是石頭哦！不好意思，蘋果給對方了哈！ Case 1: MsgBox 對方也出剪刀！繼續(xù)！ Case 2: MsgBox 哈哈！你贏了！對方出的是布！獎勵你一個蘋果！ End Select Option2.Value = False End Sub Private Sub Option3_Click() Randomize Select Case Int(3 * Rnd) Case 0: MsgBox 哈哈！你贏了！對方出的是石頭！獎勵你一個蘋果！ Case 1: MsgBox 你輸了！對方出的