11.4编写“求正弦函数值”程序

编写“求正弦函数值”程序教学目标：认知目标：熟悉Visual Basic 6.0（简称VB）界面。技能目标：掌握在VB中编写程序的一般过程。情感目标：增强学生用计算机解决问题的意识。教学重难点：教学重点：在VB中编写程序的一般过程教学难点：在代码窗口中输入程序段。教学方法：1启发式教学法2探索学习法3网络广播交互式4任务驱动式教学教学程序设计：教学程序设计教师活动学生活动1、 引导学生分析程序界面的组成。分析程序界面的组成，并完成如下表：对象名控件名对象在程序中的作用Form1窗体在上面加载对象组成程序界面Label1标签显示“请输入角度”Label2标签显示“正弦函数值为”Text1文本框输入角度Text2文本框输出函数值Command1命令按钮计算正弦函数值Command2命令按钮结束程序2、引导学生制作程序界面1、启动VB2、向窗体添加6个对象。对象名分别是：label1, label2, text1, text2, command1, command2.3、在属性窗口中设置对象的属性，并填写下表：对象名属性属性值Form1Caption求正弦函数值Command1Caption开始Command2Caption结束Text1Text空Text2Text空Label1Caption请输入角度：Label2Caption正弦函数值为：2、 引导学生输入程序段。1） 进入代码窗口的两种方法：a. 单击菜单 “视图”下的“代码窗口”命令；b. 在工程窗口中先选中窗体form1，再单击窗口上部的“查看代码”按钮。2） 程序共有两段：第一段程序的对象为command1,事件为click;第二段程序的对象为command2,事件为click。1、 进入代码窗口，并写出所使用的方法。2、 输入程序段：Dim a As DoubleDim x As DoublePrivate Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Clicka = TextBox1.Text a = (3.1416 / 180) * a x = Math.Sin(a) x = Int(x * 1000 + 0.5) / 1000 TextBox2.Text = xEnd SubPrivate Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click EndEnd Sub教学程序设计引导学生保存并运行程序。1、 保存程序，保存位置为“我的文档”，文件名为自己姓名。2、 运行程序，如有错误，应结束程序后，并检查程序代码输入是否有误。1、 保存程序。执行“文件”菜单下的“保存工程”命令，将程序保存到“我的文档”文件夹，并写出文件夹中产生的文件的文件名。2、 调试、运行程序并填写下表：问题现象解决方法3、 编译程序将程序编译成EXE文件。关闭VB后，双击该文件可独立运行程序。1、 引导学生分析程序界面的组成。分析程序界面的组成，并完成如下表：对象名控件名对象在程序中的作用Form1窗体在上面加载对象组成程序界面Label1标签显示“请输入角度”Label2标签显示“正弦函数值为”Text1文本框输入角度Text2文本框输出函数值Command1命令按钮计算正弦函数值Command2命令按钮结束程序2、引导学生制作程序界面1、启动VB2、向窗体添加6个对象。对象名分别是：label1, label2, text1, text2, command1, command2.3、在属性窗口中设置对象的属性，并填写下表：对象名属性属性值Form1Caption求正弦函数值Command1Caption开始Command2Caption结束Text1Text空Text2Text空Label1Caption请输入角度：Label2Caption正弦函数值为：2、 引导学生输入程序段。1） 进入代码窗口的两种方法：a. 单击菜单 “视图”下的“代码窗口”命令；b. 在工程窗口中先选中窗体form1，再单击窗口上部的“查看代码”按钮。2） 程序共有两段：第一段程序的对象为command1,事件为click;第二段程序的对象为command2,事件为click。1、 进入代码窗口，并写出所使用的方法。2、 输入程序段：Dim a As DoubleDim x As DoublePrivate Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Clicka = TextBox1.Text a = (3.1416 / 180) * a x = Math.Sin(a) x = Int(x * 1000 + 0.5) / 1000 TextBox2.Text = xEnd SubPrivate Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click EndEnd Sub教学程序设计引导学生保存并运行程序。1、 保存程序，保存位置为“我的文档”，文件名为自己姓名。2、 运行程序，如有错误，应结束程序后，并检查程序代码输入是否有误。1、 保存程序。执行“文件”菜单下的“保存工程”命令，将程序保存到“我的文档”文件夹，并写出文件夹中产生的文件的