夏、商额、西周的兴亡提高作业.docVIP

教学目标 合理定义变量，存储数据 编写顺序结构程序，解决简单问题 重点难点： 变量概念和使用方法，编写程序 打折商品计算器 输入商品的原价 ----- x 输入折扣数 ------ y 输出打折后的价格 ---- z 计算打折后的价格 ---- z 一、分析问题 二 设计界面 1、添加对象: 注意各种对象的使用. 使用两个文本框分别接收原价和享受的折扣.用六个标签框显示要呈现的内容.设计计算和清空按钮. 2、设置属性值: 由学生参考课本第25-26页内容完成. 变量的使用 第一步：定义变量 格式： Dim 变量名 As 数据类型 例： Dim x As single Dim 工资 As Integer 第二步：给变量赋值 格式： 变量名＝表达式 例： x=a+b 工资=1200 变量的命名规则 1、变量名必须以字母或汉字开头，后面可以有字母、数字或下划线，且不得超过255个字符 2、不能在变量名中出现空格、标点和数学符号等。 数据类型 整数型 Integer 例：255 长整型 Long 例：869000 实数型 Single 例：3.1415 字符型 String 例：“中国” “1234” 日期型 Date 例：2007－09－25 布尔型 Boolean 例：true false 常用标准函数 Abs( x ) 求x的绝对值 Sqr( x ) 求x的平方根 Rnd( x ) 产生0-1之间的随机数 Sin( x ) 求x的正弦值 Str( x ) 把数值x转换成字符串 Val( x ) 把字符串x转换成数值 表达式 书写表达式 z=x*y/10 a= (a+b)*3/2-c/3 三 编写代码 1.定义变量 Private Sub Command1_click() Dim x as single,y as single,z as single End Sub 2.给变量赋值例如： A=2 B=3 A=B 那么A的值是多少？ 分析程序代码 Private Sub Command1_click(） Dim x as single,y as single,z as single x= Val(text1.text) y= Val(text2.text) z=x*y/10 label7.caption = z End Sub 定义变量x,y,z为实数型 将文本1的内容转换成数值赋给变量X 将变量z的内容赋给标签框7 计算打折后的价格表达式 商品 打折计算器 单击按钮1时执行程序 交换两个变量的值 Private Sub Command1_Click() Dim x As Single, y As Single, Q As Single x = Val(Text1.Text) y = Val(Text2.Text) Q= x x = y y = Q Text1.Text = x Text2.Text = y End Sub 定义变量x,y,z为实数型 将文本1的内容转换成数值赋给变量X 将x的值赋给变量z 将y的值赋给变量X 将z的值赋给变量y 让文本1的显示x的值 单击按钮1时执行程序 Private Sub Command1_Click() Dim x As Single, y As Single, z As Single x = Val(Text1.Text) y = Val(Text2.Text) y=x+y*2 z =x*(y+6) label3.caption=z End Sub Private Sub Command1_Click() Dim a As Single, b As Single, c As Single a=5 b = Val(Text1.Text) a = (a+b)/2 b=a*2