1、编制计算机程序解决问题,情景导入,问题： 如何用计算机快速地画100个彩色同心圆？,结论： 可以编制计算机程序来解决问题。,一、调查提问,1、家里有计算机的同学请举手 2、请说说计算机的组成,逐条顺序执行预先存放在存贮器中指令,输入设备,输出设备,存储器,预先将程序输入存储器,运算器 控制器,中央处理器,二、合作探究：认识计算机,阅读教材：p74-75,计算机的工作原理,输入设备,外存,内存,存储器,输出设备,控制器,运算器,中央处理器CPU,内存和外存统称为存储器,控制器和运算器统称为中央处理器,硬件设备的五大部件,看书P74-76,三、讲授新知： 1、认识计算机语言及程序,计算机语言,低级
2、语言: 机器语言: 如1,0代码组成的语言称为机器语言.汇编语言： 加法指令:ADD 高级语言:VB C JAVA BASIC PASUAL ,Visual Basic简称VB，是微软公司推出的一款功能强大的软件开发工具。Visual 意即可视的、可见的，指的是开发像Windows操作系统的图形用户界面的方法。 Basic 实际上是一个短语的缩写，这个短语就是 Beginners all_purpose symbolic instruction code ，其中文意思为“初始者通用符号指令代码语言”。,2、初识VB高级程序设计语言,操作步骤如下： 1.启动Microsoft Visual Ba
3、sic 6.0中文版。 2.在“新建工程”窗口中选择“标准EXE”选项，单击“打开”按钮。 3.进入VB6.0开发环境。 4.单击工具栏上的“保存”按钮，弹出“文件另存为”对话框，文件按默认值Form1.frm保存。 5.在弹出的“工程另存为”对话框中，工程按默认值工程1.vbp保存。 6.创建工程后，VB会在工程中创建一个默认的窗体。,例：程序的制作,3、了解VB的编程窗口,菜单栏,工具箱,属性窗口,工具栏,窗体布局,窗体窗口,标签框,文本框,命令按钮,运行按钮,学生活动一：编写一个小程序 利用vb编制程序画n个红色同心圆,四、体验编制计算机程序的流程,试一试： 通过修改程序代码，实现 1、
4、改变圆的大小？ 2、改变圆的颜色？ 3、改变圆的位置？,操作步骤：,一.建立用户界面 启动VB，新建工程 二、添加组件对象，设置组件对象属性（如下图所示） 1、添加标签框：双击工具箱中的标签框图标，设置属性caption为：“输入同心圆的个数”。 2添加文本框：双击工具箱中的文本框图标，设置属性Text为： 删除Text1变为空白。 3添加命令按钮：双击工具箱中的命令图标，设置属性caption为：“点击开始”。,三、编写代码,双击“点击开始”命令按钮，将以下代码复制到代码窗口。 Private Sub Command1_Click() Cls Dim r As Integer标签框文本框命令
5、按钮 r = 200 For i = 1 To Text1.Text Circle (Form1.Width / 2, Form1.Height / 2), r, vbred r = r +200启动 Next End Sub Private Sub Form_Load() AutoRedraw = True End Sub 四、运行调试应用程序 单击“启动”按钮，调试运行程序。,四、运行调试应用程序 单击“启动”按钮，调试运行程序。 试一试： 通过修改程序代码，实现 1、改变圆的大小？ 2、改变圆的颜色？提示：把vbred改为RGB(Rnd * 255, Rnd * 255, Rnd * 2
6、55)就会变成彩色。 3、改变圆的位置？ 五、保存工程文件 文件工程另存为自己的姓名.frm自己的姓名.vbp 六、创建可执行文件 文件生成“自己的姓名.exe”可执行程序。 七、最后向老师提交作业：只交自己的姓名.exe,学生讨论：1、计算机会自己解决问题吗？ 2、计算机的工作实质是执行什么？ 3、要想利用计算机解决问题，人们除了使用现成的工具软件外，还可以怎样？,五、学生活动评价及点拨,七、课堂小结,1、人们通过计算机程序来指挥计算机做什么和怎样做，并且在程序运行过程中实现人机相互交流。 2、计算机程序是由一系列计算机可识别的语句组成，这些语句具有一定的功能，并被计算机按照预设的步骤严格执
7、行，如果语句有误，执行就可能出问题。,加密程序,Private Sub Form_Load()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 End Sub,
