欢迎来到天天文库
浏览记录
ID:40055506
大小:543.55 KB
页数:43页
时间:2019-07-18
《vb语言程序设计第2版林卓然电子教案第3章》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、第3顺序结构程序设计学习程序设计,初学者要善于模仿,并要多练。任何一门程序设计语言都有一套严格的编程规定(如语法规则),在编程时一定要遵守这些规定(只能遵守,不能创造)。一个完整的VB应用程序,一般都包含三部分内容,即输入→处理→输出可通过VB语句、各种控件实现输入输出操作本章主要内容第3章顺序结构程序设计赋值语句注释、结束及暂停语句使用Print方法输出数据窗体和基本控件对话框程序举例命令按钮标签文本框输入框消息框退出1.赋值语句[Let]变量名=表达式示例:x=5*1.42.注释、结束和暂停语句(1)注释语句Rem注释内容或´注释内容(2)结束语句E
2、nd(3)暂停语句Stop也可以通过单击工具栏上的“中断”按钮来实现使用Ctrl+Break组合键,可强制程序暂停运行赋值与输入输出(1)表达式中的变量必须是赋过值的,否则变量的初值自动取零值(变长字符串变量取空字符)。例如:a=1c=a+b+3′b未赋过值,为0执行后,c值为4(2)赋值语句跟数学中等式具有不同的含意,例如x=x+1表示把变量x的当前值加上1后再将结果赋给变量“先读后写”:读出x的内容→加1→写回x(覆盖原有内容)说明(3)变量出现在赋值号的右边和左边,其用途是不相同的。出现在右边表达式中时,变量是参与运算的元素(其值被读出);出现在
3、左边时,变量起存放表达式的值的作用(被赋值)。例如x=2a=3x=2*a+5当执行第3行语句“x=2*a+5”时,将读出变量a的值(即3),把该值乘2后加5,然后将结果(11)赋值给变量x。(4)赋值号两边的数据类型必须一致,即同时为数值型或同时为字符型。说明编写的窗体单击事件过程代码如下:PrivateSubForm_Click()DimxAsInteger,aAsIntegerDimbAsInteger,cAsIntegerx=36a=Int(x/10)'求十位数b=xMod10'求个位数c=b*10+a'生成新的数Print"处理后的数:";cEndS
4、ub运行程序后单击窗体,输出结果是:处理后的数:63例3.1给定一个两位数(如36),交换个位数和十位数的位置,把处理后的数显示在窗体上例3.1处理方法两位数abb取出个位数a取出十位数新两位数:b*10+a编写的VB程序代码如下:PrivateSubForm_Click()DimxAsInteger,aAsIntegerDimbAsInteger,cAsIntegerx=InputBox(“输入一个2位数”)‘运行时由用户任意给定一个2位数a=Int(x/10)'求十位数b=xMod10'求个位数c=b*10+a'生成新的数Print"处理后的数:";cE
5、ndSub执行后,弹出一个输入对话框,若用户输入“83”,输出结果:处理后的数:38例3.1A运行时由用户任意给定一个两位数,交换个位数和十位数的位置,把处理后的数显示在网页上。例3.1A一种灵活输入方式InputBox是VB函数,见P58例3.2设计程序,实现两个文本框内容的交换(1)在窗体上建立两个标签、两个文本框和一个命令按钮(2)编写程序代码借助于另一个变量(假设为t),并直接在控件中交换数据PrivateSubCommand1_Click()′“交换”按钮DimtAsStringt=Text1.TextText1.Text=Text2.TextTe
6、xt2.Text=tEndSubText1Text2例3.2有的对象属性具有变量的特性编写的程序代码如下:PrivateSubCommand1_Click()´“交换”按钮t=Text1.TextText1.Text=Text2.TextText2.Text=tEndSub采用变体型变量说明:对于初学者来说,为了节省时间,有时可以不采用Dim等语句声明就直接使用变量(默认为变体型,如t)。但在规范的软件开发中,通常都要求程序中使用的变量必须预先声明。没用Dim语句t是变体型变量把上述程序改为以下形式,效果是否一样?PrivateSubCommand1_Cli
7、ck()′“交换”按钮Text2.Text=Text1.TextText1.Text=Text2.TextEndSub思考题想一想下列程序的运行结果是什么?运行时,在文本框Text1中输入5,单击“计算”按钮后,在文本框Text2显示的结果是什么?PrivateSubCommand1_Click()'“计算”按钮DimaAsInteger,bAsInteger,cAsIntegera=Val(Text1.Text)b=7c=2*aModb/3+1a=a+1b=2*b-1c=c+a+bText2.Text=cEndSub思考题想一想Text1Text2例3.2
8、A203.3.1Print方法用于显示(输出)文本
此文档下载收益归作者所有