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