编制计算机程序解决问题.ppt

编制计算机程序解决问题活动一:体验心灵感应程序游戏规则:请在心里随便想一个两位数，比如：64,然后用该数字减去它的个位和十位，即：64-6-4=54.请牢牢记做这个数字．编制计算机程序解决问题看教材第74—75页,思考以下问题。1、计算机各部件是如何配合工作的？2、计算机程序设计语言经历了哪些阶段？编制计算机程序解决问题编制计算机程序解决问题0100010001011010101011000010001000101101010111100101000100110110101010101101010111Movax,8Movbx,10Addax,bxX=8Y=X+10发展历程语言高级语言汇编语言机器语言如：BASIC、PASCALCVB等编制计算机程序解决问题活动二：体验VB的开发环境试一试：

把字母A的ASC码+3，对应的字母是什么？

在计算机中的每一个字符（或汉字）在计算机内部都对了一个唯一的数值，这个数值就是ASC码值,又叫机内码.字符：ABC…abc…0１２…ASC码：656667…979899…323334…算法:A65+368DASC(A)Chr(68)编制计算机程序解决问题正确答案已经放在被加密的…\福尔摩斯.txt文件里面了。福尔摩斯骑着自行车到公园玩，突然他觉得肚子不舒服，就在车子前轮上套了一把钢圈锁，自己进了公共厕所。可是他出来后，自行车却不见了。当时公园里有很多小孩子在玩，有的在放风筝、有的在溜旱冰，还有的在打棒球。福尔摩斯知道一定是这些孩子的恶作剧，他很快就找出了恶作剧的小孩，可是孩子们力气那么小是如何把锁着的自行车骑走的呢？编制计算机程序解决问题PrivateSubForm_Load()FileName$=InputBox(输入需加密的文件名及路径)OpenFileName$ForInputAs#1LineInput#1,before$MsgBoxbefore$,,加密前的文本内容Close#1after$=n=Len(before$)Fori=1Tonb$=Mid$(before$,i,1)c$=Chr(Asc(b$)+10)after$=after$c$NextMsgBoxafter$,,加密后的文本内容OpenFileName$ForOutputAs#1Print#1,after$Close#1EndEndSub打开要加密的文件并把加密前的文本内容放入before$中，然后关闭文件．将加密写的信息写入到文件中，然后关闭文件．‘after$用来存放加密后的文本内容‘用函数len()计算before$中存储的字符个数‘for….next用于循环读出before$中的每个字符‘用函数mid()读取出before$中的第i个字符‘用函数asc()计算出字符的ASC编号，加10得到‘新编号再用chr()转换成对应的字符思考：加密程序中真正实现加密的算法是哪一个语句？如果要求你将它修改成解密程序，你将如何修改？编制计算机程序解决问题PrivateSubForm_Load()FileName$=InputBox(“输入需解密的文件名及路径)OpenFileName$ForInputAs#1LineInput#1,before$MsgBoxbefore$,,“解密前的文本内容Close#1after$=n=Len(before$)Fori=1Tonb$=Mid$(before$,i,1)c$=Chr(Asc(b$)-10)after$=after$c$NextMsgBoxafter$,,“解密后的文本内容OpenFileName$ForOutputAs#1Print#1,after$Close#1EndEndSub编制计算