编制计算机程序解决问题04869

《编制计算机程序解决问题04869》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、编制计算机程序解决问题情景导入问题：如何用计算机快速地画100个彩色同心圆？结论：可以编制计算机程序来解决问题。一、调查提问1、家里有计算机的同学请举手2、请说说计算机的组成逐条顺序执行预先存放在存贮器中指令输入设备输出设备存储器预先将程序输入存储器运算器控制器中央处理器二、合作探究：认识计算机阅读教材：p74-75计算机的工作原理输入设备外存内存存储器输出设备控制器运算器中央处理器CPU内存和外存统称为存储器控制器和运算器统称为中央处理器硬件设备的五大部件看书P74-76三、讲授新知：1、认识计算机语言及程序Y=8X=Y

2、+10高级语言Movax,8Movbx,10Addax,bx汇编语言0100010001011010101011000010001000101101010111100101000100110110101010101101010111机器语言用计算机语言编制好的一组计算机能够理解、能够执行的命令序列.程序计算机语言低级语言:机器语言:如1,0代码组成的语言称为机器语言.汇编语言：加法指令:ADD高级语言:VBCJAVABASICPASUAL……VisualBasic简称VB，是微软公司推出的一款功能强大的软件开发工具。Vis

3、ual意即可视的、可见的，指的是开发像Windows操作系统的图形用户界面的方法。Basic实际上是一个短语的缩写，这个短语就是Beginnersall_purposesymbolicinstructioncode，其中文意思为“初始者通用符号指令代码语言”。2、初识VB高级程序设计语言操作步骤如下：1.启动MicrosoftVisualBasic6.0中文版。2.在“新建工程”窗口中选择“标准EXE”选项，单击“打开”按钮。3.进入VB6.0开发环境。4.单击工具栏上的“保存”按钮，弹出“文件另存为”对话框，文件按默认值

4、Form1.frm保存。5.在弹出的“工程另存为”对话框中，工程按默认值工程1.vbp保存。6.创建工程后，VB会在工程中创建一个默认的窗体。例：程序的制作3、了解VB的编程窗口菜单栏工具箱属性窗口工具栏窗体布局窗体窗口标签框文本框命令按钮运行按钮学生活动一：编写一个小程序利用vb编制程序画n个红色同心圆四、体验编制计算机程序的流程试一试：通过修改程序代码，实现1、改变圆的大小？2、改变圆的颜色？3、改变圆的位置？操作步骤：一.建立用户界面启动VB，新建工程二、添加组件对象，设置组件对象属性（如下图所示）1、添加标签框：双

5、击工具箱中的标签框图标，设置属性caption为：“输入同心圆的个数”。2．添加文本框：双击工具箱中的文本框图标，设置属性Text为：删除Text1变为空白。3．添加命令按钮：双击工具箱中的命令图标，设置属性caption为：“点击开始”。三、编写代码双击“点击开始”命令按钮，将以下代码复制到代码窗口。PrivateSubCommand1_Click()ClsDimrAsInteger标签框文本框命令按钮r=200Fori=1ToText1.TextCircle(Form1.Width/2,Form1.Height/2),

6、r,vbredr=r+200启动NextEndSubPrivateSubForm_Load()AutoRedraw=TrueEndSub四、运行调试应用程序单击“启动”按钮，调试运行程序。四、运行调试应用程序单击“启动”按钮，调试运行程序。试一试：通过修改程序代码，实现1、改变圆的大小？2、改变圆的颜色？提示：把vbred改为RGB(Rnd*255,Rnd*255,Rnd*255)就会变成彩色。3、改变圆的位置？五、保存工程文件文件——工程另存为——自己的姓名.frm①自己的姓名.vbp②六、创建可执行文件文件——生成“自

7、己的姓名.exe”可执行程序③。七、最后向老师提交作业：只交自己的姓名.exe学生讨论：1、计算机会自己解决问题吗？2、计算机的工作实质是执行什么？3、要想利用计算机解决问题，人们除了使用现成的工具软件外，还可以怎样？五、学生活动评价及点拨七、课堂小结1、人们通过计算机程序来指挥计算机做什么和怎样做，并且在程序运行过程中实现人机相互交流。2、计算机程序是由一系列计算机可识别的语句组成，这些语句具有一定的功能，并被计算机按照预设的步骤严格执行，如果语句有误，执行就可能出问题。加密程序PrivateSubForm_Load()

8、FileName$=InputBox("请输入需要加密的文件名及路径：")OpenFileName$ForInputAs#1LineInput#1,yw$Close#1xw$=""n=Len(yw$)Fori=1Tonyz$=Mid$(yw$,i,1)xz$=Chr(Asc(yz$)+10)xw$=xw