《第二节 投票器》参考课件

第二节投票器2020年是特殊的一年，新冠肺炎成了最热名词。一个小小的病毒把13亿人困在家里度过了一个难忘的春节。截止2月7日，累计确诊7830人，现有重症8346人，累计治愈32586人，累计死亡2747人。虽然疫情已得到有效的控制，却不能掉以轻心。一线的医护人员与警察等相关工作人员仍在与疫情战斗，至今学校仍无法正常开学，工厂企业无法正常复工复产。但我们相信春天总会到来，在钟南山院士的带领下，我们会战胜病毒，等那一刻，和平、健康、自由、幸福的时刻，请不要忘记致敬那些为我们贡献的英雄。但是传言说2020年世界末日，确实在这一年全球都遭遇到各种自然灾害。究竟传言是否真实？你认为中国能否战胜此次疫情呢？请你设置一个投票器来搜集大家的意见。导入投票制作一个投票器钟南山以钟南山院士代表中国，右边图片代表新冠肺炎。请你设计一个投票器，进行一次PK，看看谁的票数最多。VS新冠肺炎病毒1.程序界面如何设计？2.用什么控件显示图片？3.如何实现点击次数累加票数？4.用什么形式显示票数？思考投票器界面设计VS0投票按钮投票按钮终极PK投票标题用（）控件，属性Caption的值为（）窗口Form的属性Backcolor背景颜色设置为（）图片用（）控件显示票数用（）控件，属性Caption的值为（）按钮用（）控件，属性Caption的值为（）Label“终极PK投票”黑色ImageLabel0CommandButton投票0序号实物对象描述（关键词）对应VB中使用的控件属性设计属性值事件1投票器的显示屏Form1窗体Name\Caption\BackColor\2投票器标题Label1Name\Caption\3钟南山院士图片Image1Name\Picture\4病毒图片Image2Name\Picture\5显示票数1Label2Name\Caption\6显示票数2Label3Name\Caption\7投票按钮1Command1NameClickCaption8投票按钮2Command2NameClickCaptionForm1投票器黑色Label1终极PK投票ImagezhongImagevirus图片路径图片路径LabelzhongLabelvirus00CommandzhongCommandvirus投票投票投票器程序的对象、属性、事件分析表任务1打开VB，设计好投票器界面，并设置对象的相关属性。思考：如何实单击“投票”按钮实现票数累加的计算？

计票原理分析投票器重要功能是什么？

计算票数；我们发现，点击票数随着点击次数逐票增加。运用了累加计数的方法。

例如：S1、S2分别表示小黄、小红的票数，给小黄投票时，就执行一次S1+1并存放到S1当中。投票制作一个投票器画程序流程图开始点击“投票”按钮累计票数S1=S1+1结束显示钟南山票数开始点击“投票”按钮累计票数S2=S2+1结束显示病毒票数解析：S1，S2分别代表钟南山院士和新冠肺炎的票数。当给钟南山院士投票时，就执行一次S1=S1+1运算，并把运算结果保存在S1中；同理，当给新冠肺炎投票时，就执行一次S2=S2+1运算，并把运算结果保存在S2中。S1，S2不是固定的值S1，S2记录着不断变化的票数S1，S2称为变量变量

变量包含变量名和变量值两部分。变量值指所存储的数据信息，如票数；变量名指这些数据信息的名字，如S1、S2；1、变量变量变量名的命名规则：

1、必须以字母或者汉字开头；

2、由字母、汉字、数字或者下划线组成；

3、长度不能超过255字符；

4、不能使用VB中的保留字，如：sub、private、click；

5、属性也属于变量。变量交流

程序中常用的表达形式为：S1=9，结合图；说说变量名指什么，变量的值又指什么？

变量名为S1，变量的值为9。S19数据的类型与定义计算机中数据可分为整型、实型、字符型、逻辑型等多种类型。其中整型数（Integer），也就是整数，是很常用的一种数据类型。在计算机程序设计中需要对数据的类型做出说明。对象的属性的数据类型是已经定义好的，只能选择，不能更改。比如：标题属性Caption的取值是字符类型，只能输入字符；显示/隐藏visible的取值只能是TRUE或FALSE，即逻辑型。赋值语句

给变量赋值是通过赋值语句实现的。

格式：变量名=表达式“=”表示赋值号；作用：计算右边表达式的值，并给予左边变量来保存。

赋值语句例：S1=S1+1

计算赋值号右边的表达式S1+1的值给予左边的S1。赋值语句累计票数S1=S1+1其中“=”为赋值号；计算右边表达式的值赋值给左边的变量表达式可以是一个值，也可以一个变量，或者是运算式；投票次数右边S1的值左边S1的值101212323434545+1=VB中的坐标系

窗体的默认坐标原点设在窗体的左上角，横向向右为X轴的正方向，纵向向下为Y轴的正方向。ScaleWidth、ScaleHeight窗体自身的宽度和高度。Width、Height窗体边框宽度、标题栏的高度。根据流程图写程序开始点击“投票”按钮累计票数S1=S1+1结束显示钟南山票数开始点击“投票”按钮累计票数S2=S2+1结束显示病毒票数编写程序1.先定义S1，S2的数据类型为整型；2.双击投票按钮1，编写程序为：3.双击投票按钮2，编写程序为：投票没有半票，因此为整数每单机一次按钮，S1增加1并把S1的值赋值给对象属性abelzhong.Caption,即显示钟院士票数的标签控件；每单机一次按钮，S2增加1并把S2的值赋值给对象属Labelvirus.Caption,即显示病毒票数的标签控件；调试程序按F5或者工具栏的“启动”按钮成功失败错误提示“Captoin”应改为“Caption”VB坐标系扩展任务效果扩展任务LabelzhongImagezhong扩展任务涉及对象Labelzhong和Labelvirus的哪一个属性？如何实现柱形条随着票数增加而增高？Height、Top在按钮1中添加代码：Labelzhong.Height=Labelzhong.Height+100Labelzhong.Top=Labelzhong.Top-100在按钮2中添加代码：Labelvirus.Height=Labelvirus.Height+100Labelvirus.Top=Labelvirus.Top-100票数增加对应一方的图片也向上移动？分别在两个按钮中添加代码：Imagezhong.Top=Imagezhong.Top-100Imagevirus.Top=Imagevirus.Top-100涉及对象Imagezhong和Imagevirus的哪一个属性？Top扩展任务扩展任务最终代码如下图示所示：注意对象名与按钮的一致性！注意拼写正确！S2Labelvirus.CaptionLabelvirus.HeightLabelvirus.TopImagevirus.Top1.在右图程序中出现的变量分别有？练习S1Labelzhong.CaptionLabelzhong.HeightLabelzhong.TopImagezhong.Top4.不能使用VB中的保留字，例如sub、click等；变量名的命名有一定的规则，包括：1.变量名必须以字母开头；2.由字母、汉字、数字或下划线组成；3.长度不能超过255个字符；注意S1=S1+1Labelzhong.Caption=S1Labelzhong.Height=Labelzhong.Height+100Labelzhong.Top=Labelzhong.Top-100Imagezhong.Top=Imagezhong.Top-1002.在右图程序中赋值语句分别有？练习S2=S2+1Labelvirus.Caption=S2Labelvirus.Height=Labelvirus.Height+100Labelvirus.Top=Labelvirus.Top-100Imagevirus.Top=Imagevirus.Top-100符号“=”为（）赋值语句的格式（）下列变量名错误的是（）A.S1B.2AC.S钟D.S_1下列赋值语句错误的是（）A.S1=2B.A+1=AC.S=S+1

D.S=S+t若对象的取值为变量，对象的属性不可能也是变量。（）赋值号变量=表达式BB错练习3.变量说明语句的格式：Dim（）AS（）a=0,b=0a=a+1b=a+b若这三个语句循环3次求a和b的值；

变量赋值题型变量名类型标题属性Caption的取值是字符类型，只能输入（）；显示/隐藏visible的取值只能是