八年级VB第4课数据的存储箱变量VIP免费

教学目标合理定义变量，存储数据编写顺序结构程序，解决简单问题重点难点：变量概念和使用方法，编写程序打折商品计算器输入商品的原价-----x输入折扣数------y输出打折后的价格----z计算打折后的价格----z一、分析问题二设计界面1、添加对象:注意各种对象的使用.使用两个文本框分别接收原价和享受的折扣.用六个标签框显示要呈现的内容.设计计算和清空按钮.2、设置属性值:由学生参考课本第25-26页内容完成.变量的使用第一步：定义变量格式：Dim变量名As数据类型例：DimxAssingleDim工资AsInteger第二步：给变量赋值格式：变量名＝表达式例：x=a+b工资=1200变量的命名规则1、变量名必须以字母或汉字开头，后面可以有字母、数字或下划线，且不得超过255个字符2、不能在变量名中出现空格、标点和数学符号等。数据类型整数型Integer例：255长整型Long例：869000实数型Single例：3.1415字符型String例：“中国”“1234”日期型Date例：2007－09－25布尔型Boolean例：truefalse常用标准函数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.定义变量PrivateSubCommand1_click()Dimxassingle,yassingle,zassingleEndSub2.给变量赋值例如：A=2B=3A=B那么A的值是多少？分析程序代码PrivateSubCommand1_click(）Dimxassingle,yassingle,zassinglex=Val(text1.text)y=Val(text2.text)z=x*y/10label7.caption=zEndSub定义变量x,y,z为实数型将文本1的内容转换成数值赋给变量X将变量z的内容赋给标签框7计算打折后的价格表达式商品打折计算器单击按钮1时执行程序交换两个变量的值PrivateSubCommand1_Click()DimxAsSingle,yAsSingle,QAsSinglex=Val(Text1.Text)y=Val(Text2.Text)Q=xx=yy=QText1.Text=xText2.Text=yEndSub定义变量x,y,z为实数型将文本1的内容转换成数值赋给变量X将x的值赋给变量z将y的值赋给变量X将z的值赋给变量y让文本1的显示x的值单击按钮1时执行程序PrivateSubCommand1_Click()DimxAsSingle,yAsSingle,zAsSinglex=Val(Text1.Text)y=Val(Text2.Text)y=x+y*2z=x*(y+6)label3.caption=zEndSubPrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSinglea=5b=Val(Text1.Text)a=(a+b)/2b=a*2label5.caption=bEndSub阅读程序,说出程序结果阅读程序1PrivateSubCommand1_click()Dimr,l,sAsSingler=Val(Text1.text)l=2*3.1415926*rs=3.1415926*r*rLabel4.caption=lLabel5.caption=sEndSub阅读程序2PrivateSubCommand1_click()Dima,b,xAsSinglea=Val(Text1.Text)b=Val(Text2.Text)X=a*b-a*b*0.1Label4.caption=xEndSub用print语句输出数据作用：输出信息格式：［对象名.］Print[表达式列表]PrintSubForm_click()Print“程序设计语言VB”Print“*****************************”Print“A+B=”，50+50EndSub