VB程序设计

VB程序设计VB程序设计1.VB软件简介2.理解VB中的类、对象、属性、方法、事件等含义1.1.什么是VB？VisualBasic“Visual”指的是开发图形用户界面(GUI：GraphicalUserInterfaces,图形用户接口)的方法，即可视化。“Basic”指的是BASIC(BeginnersAll-purposeSymbolicInstructionCode语言(初学者通用指令码))语言，一种在计算技术发展历史上应用得最为广泛的语言。1VisualBasic简介2.理解VB中的类、对象、属性、方法、事件类的定义类是现实世界或思维世界中的实体在计算机中的反映，它将数据以及这些数据上的操作封装在一起。对象的定义对象是具有类类型的变量。类与对象的关系类是对象的抽象，而对象是类的具体实例。类是抽象的，不占用内存，而对象是具体的，占用存储空间。类是用于创建对象的蓝图，它是一个定义包括在特定类型的对象中的方法和变量的软件模板。2.理解VB中的类、对象、属性、方法、事件通俗地讲：类就是一类事物，而对象就是一个事物，一类事物中包含若干的事物（而这其中的具体的事物就是对象）。比如说：车，是一类物品，但没法具体到哪辆车，这就是一个类的概念，而如果说，我家的那辆东风轿车，而这个具体的车就是对象的概念。2.理解VB中的类、对象、属性、方法、事件VisualBasic属性、方法和事件VisualBasic的窗体和控件是具有自己的属性、方法和事件的对象。可以把属性看作一个对象的性质，把方法看作对象的动作，把事件看作对象的响应。2.理解VB中的类、对象、属性、方法、事件什么是属性？气球的属性包括可以看到的一些性质，如它的直径和颜色。其它一些属性描述气球的状态（充气的或未充气的）或不可见的性质，如它的寿命。通过定义，所有气球都具有这些属性；这些属性也会因气球的不同而不同。对象属性如何运用程序语言修改对象的属性？自然语言：张三的眼镜是半框的“张三”是对象名称“眼镜”是对象的属性名称“半框”是属性的内容对象属性自然语言：张三的眼镜是半框的现在要求大家将VB中百宝箱login界面上的第一行字改为“热烈欢迎你来到我的百宝箱”。思考以下问题：（1）对象是谁？他叫什么？（2）要达到目的，需要修改哪一个属性？对象属性MATCH_ word word文档格式规范word作业纸小票打印word模板word简历模板免费word简历 _1716257825766_0写法：Label1.caption=“热烈欢迎你来到我的百宝箱”解析：“Label1”是对象名称“.”代表“的”Caption是对象的属性热烈欢迎你来到我的百宝箱是属性内容带上“双引号”是针对文本类型的内容，对待数字不需要对象属性请你写出如下任务：将用户名输入框距离窗体左侧的距离调整为2000.对象事件什么是事件？气球还有预定义的对某些外部事件的响应。例如，气球被刺破是一件事件。气球对刺破它的事件响应是放气。对象事件对象事件如果对气球进行编程，则会如下：设置气球的属性：Balloon.Color=RedBalloon.Diameter=10注意代码的语法，首先是对象(Balloon)，接着是属性(Color)，然后是赋值(Red)。对象事件气球的方法是这样的：Balloon.Inflate//气球被充气Balloon.DeflateBalloon.Rise它的语法与属性的语法相似，对象（一个名词）后面紧跟着方法（一个动词）。对象事件气球事件的编程则是这样的：气球对一个事件的响应如下所示：Balloon.Puncture()//气球被扎了Balloon.DeflateBalloon.MakeNoise"Bang"对象事件总结，实际上对气球不能编程，但是，可以对VisualBasic的窗体或控件进行编程。常用事件VB中对象的常用事件：Click：点击Change：改变Load:加载Timer:开始计时事件怎么使用？来看这样几句语言PrivateSubForm_Load()Label1.Caption=“欢迎你”EndSub意为：当窗体（窗体名称为Form）出现的时候，Form窗体是对象，Load是事件，对于该事件的响应是Label1.Caption=“欢迎你”思考对象方法什么是方法？气球还具有本身所固有的方法（动作）。如：充气方法（用氦气充满气球的动作），放气方法（排出气球中的气体）和上升方法（放手让气球飞走）。所有的气球都具备这些能力。对象方法对比如下两个句子：这个窗体隐藏了：方法这个窗体是隐藏了的：属性对象方法VB中常用的对象方法有：Show:显示Refresh:刷新Hide:隐藏对象方法对象的使用：如果要让窗口隐藏窗体的名称为：login则应写为login.Hide问：这句话应在何对象何事件时生效？VB数据类型1、常量常量是指在程序运行过程中,其值不能改变的数据或存储单元。整型100，125，-100，0实型3.14，0.125，-3.789字符串“a”,“ab”，“1232”逻辑常量：truefalse如：a=b+1Text1.text=“欢迎你”+a+”同学”第1个 公式 小学单位换算公式大全免费下载公式下载行测公式大全下载excel公式下载逻辑回归公式下载 中，1是常量第2个公式中，“欢迎你”和“同学”是常量常量类型VB数据类型2、变量变量：在程序设计中可以自由赋值与运算的表达式，即为变量如:a=Text1.Textb=Text2.Textc=a+ba,b,c都是变量VB数据类型3、变量的命名规则(1)必须以字母开头，名中至少含有字母、数字、下划线这三类中的一类(2)不能以数字或其他字符开头,不能使用&.#等字符(3)不能使用VB的保留字，如iftrueDimstrMod等(4)VB不区分大小写3、变量的类型（P37）Integer:整数型Long:长整数型Single:单精度实数型用4个字节存储，-2,147,483,648~2,147,483,647范围内的任何整数用2个字节存储,-32768~32767范围内的任何整数用4个字节存储，范围是-3.402823*1038~3.402823*1038小数点前只有6-7位Double:双精度实数型用8个字节存储，范围是-4.94065645841247*10308~-4.94065645841247*10308小数前有14~15位String:字符串型每个string类型，最多存256个字符。Boolean:布尔型只有2种值——True(真)和False(假)如果未定义数据类型，则默认为Variant(可变类型)True或FalseBoolean:布尔型String:字符串型Double:双精度实数型负值取值范围为-3.4028235E+38到-1.401298E-45；正值取值范围为1.401298E-45到3.4028235E+38。Single:单精度实数型Long:长整数型-32768~32767Integer:整数型VB数据类型4、变量的定义 格式 pdf格式笔记格式下载页码格式下载公文格式下载简报格式下载 ：Dim变量名as数据类型例如：DimaAsIntegerDimbAsSingleDimcAsString问：a,b,c分别是什么类型的变量？(1)下列VisualBasic中，下列（）类型属于字符串型(A)Date(B)integer(C)Boolean(D)String(2)下面数据中在Integer类型之外的是（　　）(A)5621(B)23541(C)9999(D)32768　D　D(3)下面变量名正确的是（　　）(A)Int(B)else(C)zongfen(D)next(4)下列合法的变量名是（）A、_acB、b&cC、ac_D、bc#2(5)、用变量存储诗朗诵比赛中选手的平均得分（保留2位小数），则变量的数据类型应说明为（A）Integer  （B）Long  （C）Single  （D）DateCC当堂测试CVB数据类型课前体验阶段整理目前，你应该具备的文件。标准函数、运算符、表达式标准函数是系统向用户提供算术计算的函数产生一个[0,1)之间的一个随机数RandomizeA=rnd()求[0,1)之间的一个随机数，使用之前需初始化Rnd(x)cdMid(“abcde”,3,2)取字符串x中第n个字符起长度为K的子字符串Mid(x,n,k)3Len（”abc“）计算字符串的长度Len(x)“-170”Str（-170）将数值转换为字符串Str(x)-170Val（“-170”)将数字字符串转换为数值Val(x)AChr（65）Ascii转换为字符Chr(x)65Asc（“A”）字符转换为ascii码Asc(x)10Sqr（100）求x的算术平方根Sqr(x)4-5Int（4.6）Int（-4.6）求不大于x的最大整数Int(x)3.5Abs（-3.5）求绝对值Abs(x)结果表达式功能函数名标准函数、运算符、表达式经过标准函数处理过的数据可以赋给变量使用如DimaAsIntegera=Int(4.87)意为将4.87这个实数经过整数化后赋给整数类型的a标准函数、运算符、表达式以该日期计算器为例，输入的年份应为整数，如果用户不小心输入实数，应帮助改正，可以这样使用：DimnianAsIntegerDimFAsIntegerDimzhoujiAsIntegerNian=Int(Text1.Text)F=int((Y-1)*(1+1/4-1/100+1/400)+1)Zhouji=F-Int(F/7)*7Text2.Text=zhouji算术运算符减法加法求余数整数除法实数除法乘法取负乘幂基本运算-+mod\/*-^运算符号A-ba+b5mod25\25/23*2.5-a2^3表达式a与b的差a与b的和122.57.5a的相反值8结果66543321优先级别100mod2^3-15\4/2=关系运算符777777优先级别大于等于小于等于大于小于不相等相等基本运算>=<=><<>=运算符号10\2>=710mod2<=201>21<21<>21=2表达式falsetruefalsetruetruefalse结果关系运算符包括：<,<=,>,>=,=,<>,Is,Like可以运用关系运算符构成关系表达式关系表达式是用关系运算符将两个对象连接起来的式子。关系表达式的值只能是True、False、NULL,可以赋给变量关系运算符例：MyResult=(45<35),MyResult的值为FalseMyResult=(45>35),MyResult的值为TrueMyResult=(“5”>”35”),MyResult的值为TrueMyResult=(45<>35),MyResult的值为True逻辑运算符1098优先级别或与非基本运算orandnot运算符号(25>100)or(25<2)(25>=10)and(25<=100)Not(3>2)表达式falseTruefalse结果分支结构If条件Then语句语句块EndIf分支结构If条件Then语句语句块Else语句块EndIf登录框算法1.自然语言：输入用户名和密码，如果输入正确则登录框消失，主页框显示，否则，提示错误。登录框算法2.流程图：登录框算法3.伪代码IF（用户名和密码正确）Then登录框消失，主页框显示Else提示错误用户名正确name=“zhangsan”密码正确mima=“123456”和and登录框消失，主页框显示:login.HideIndex.Show提示错误：MsgBox（”用户名或密码错误”）分支结构的综合运用较复杂的分支结构IF条件Then语句块ElseIf条件Then语句块Else语句块EndIf使用实数根计算器的算法（1）输入二元一次方程中的“a”“b”“c”。（2）点击“计算Dalta”按钮，计算机运算Dalta=b*b-4ac,将得出的Dalta结果显示在Dalta结果文本框中，在右侧的标签中显示提示语（3种提示语）（3）如至少有一个根，则可点击“展示实数根”按钮，则计算机计算出两个实数根，并分别显示在X1、X2文本框中。分步实现（1）输入二元一次方程中的“a”“b”“c”。意味着我们需要主动输入3个数。要点A.输入的3个数将被谁获得？被3个文本框的Text属性获得，即Atxt.Text获得了用户输入的“a”的值要点B.在编程前需不需要声明变量？需要定义4个变量，均为整数型，名为a,b,c分步实现（1）输入二元一次方程中的“a”“b”“c”。DimaasintegerDimbasintegerDimcasintegerDimDaltaasintegera=Atxt.Textb=Btxt.Textc=Ctxt.Text分步实现（2）点击“计算Dalta”按钮后，计算机运算Dalta=b*b-4ac,将得出的Dalta结果显示在Dalta结果文本框中，在右侧的标签中显示提示语（3种提示语）要点A.“点击“计算Dalta”按钮…..”,你能想到什么？意即：“计算机运算Dalta=b*b-4ac,将得出的Dalta结果显示在Dalta结果文本框中，…..”这些语句应写在“计算Dalta”按钮被点击的事件中PrivateSubCommandDalta_Click()分步实现（2）点击“计算Dalta”按钮，计算机运算Dalta=b*b-4ac,将得出……….在点击后，计算机该执行如下 步骤 新产品开发流程的步骤课题研究的五个步骤成本核算步骤微型课题研究步骤数控铣床操作步骤 ：要点B.计算Dalta的值，将Dalta=b*b-4ac转化成算术表达式Dalta=b^2-4*a*c.Dalta在本程序中首次出现，它是变量，应声明为整形要点C.将得出的Dalta的值显示在Dalta文本框中Daltatxt.text=Dalta分步实现（2）点击“计算Dalta”按钮，计算机运算Dalta=b*b-4ac,将得出……….要点D视Dalta情况给出3种提示语。采用分支结构IFDalta>0Then有两个不同的实数根‘就现有条件这句话如何让用户看见ElseifDalta=0Then有两个相同的实数根’Else无实根Endiftishi.Caption=“有两个相同的实数根”分步实现PrivateSubCommandDalta_Click()DimaAsIntegerDimbAsIntegerDimcAsIntegerDimdAsIntegera=Val(Atxt.Text)b=Val(Btxt.Text)c=Val(Ctxt.Text)d=b^2-4*a*cDaltatxt.Text=dIf(d>0)ThenTishi.Caption="存在两个不同的实数根"ElseIf(d=0)ThenTishi.Caption="存在两个相同的实数根"ElseTishi.Caption="无实数根"EndIfEndSub分步实现（3）如至少有一个根，则可点击“展示实数根”按钮，则计算机计算出两个实数根，并分别显示在X1、X2文本框中。要点B如何计算并显示出两个根？将表中的X1X2的计算公式转化成算术表达式得出结果后，将X1X2的值给予特定的两个文本框分步实现（3）如至少有一个根，则可点击“展示实数根”按钮，则计算机计算出两个实数根，并分别显示在X1、X2文本框中。要点A.点击“展示实数根”按钮意即：“则计算机计算出两个实数根，并分别显示在X1、X2文本框中”这些操作应写在PrivateSubCommandgen_Click()中分步实现PrivateSubCommandDalta_Click()DimaAsIntegerDimbAsIntegerDimcAsIntegerDimdAsIntegera=Val(Atxt.Text)b=Val(Btxt.Text)c=Val(Ctxt.Text)d=b^2-4*a*cDaltatxt.Text=dIf(d>0)ThenTishi.Caption="存在两个不同的实数根"ElseIf(d=0)ThenTishi.Caption="存在两个相同的实数根"ElseTishi.Caption="无实数根"EndIfEndSubPrivateSubCommandgen_Click()Dimx1AsSingleDimx2AsSingleIf(d=0)Thenx1=-b/2*ax2=-b/2*aX1txt.Text=x1X2txt.Text=x2ElseIf(d>0)Thenx1=(-b+Sqr(d))/(2*a)x2=(-b-Sqr(d))/(2*a)X1txt.Text=x1X2txt.Text=x2EndIfEndSubDo循环的应用知识回顾分支结构If条件（通常是一些关系表达式）Then语句块Else语句块EndIf较复杂的分支结构IF条件Then语句块ElseIf条件Then语句块Else语句块EndIf新知识笔记：连接运算符：&和+，可连接两个字符串例：MyStr=“Hello”&”World”MyStr的值是HelloWorld输入框的使用InputBox（”对话框内容”,”窗体标题”,”默认内容”)应将InputBox看做一个值，每次输入的数将被其获得，例，输入3，则3=InputBox（”请输入成绩”,”成绩输入”,”此处输入成绩”)的值为TrueChr(13)意指回车，等同于\nChr(10)意指换行，等同于\r换行(\n)就是光标下移一行却不会移到这一行的开头,回车(\r)就是回到当前行的开头却不向下移一行.Enter键按下后会执行\n\r这样就是我们看到的一般意义的回车了相对于上节课的分支结构分支结构只执行一次本节课知识点循环结构的执行次数是0次——无数次如程序要重复执行相同的语句若干次，那么运用循环结构更加高效至少执行1次执行的次数有可能是0次，有可能是无数次“直到型”循环结构：先执行一次语句块，再去判断条件是否成立，如True,就重复执行该语句块，一旦false，则会跳出本循环“当型”循环结构：要执行其中的语句块，须先判断While中的条件是否成立，只要条件True，就重复执行该语句块，一旦false，则会跳出本循环Do语句块LoopWhile条件DoWhile条件语句块Loop先来分析一下1+2+3+4+5的计算算法自然语言：被加的数在5以内，则进行累加，否则跳出循环第1次:本式和为0+1=1第2次：本式和为1+2=3第3次：本次和为3+3=6第4次：本次和为6+4=10第5次：本次和为10+5=15第6次，因被加的数在5以外，不再进行累加课堂任务制作一个能够计算1+2+3+4+5的和的实例程序将采用何种结构？循环，本节课要求用Do循环来实现该功能如果人工来算，从0开始需要计算几次？5次DoWhile条件语句块Loop条件是什么？假如用一个变量i表示计算的次数DimiasintegerDoWhilei<=5语句块LoopDimiasintegerDoWhilei<=5语句块Loop如何跳出循环？目的是要i的值发生变化，超出5i=i+1i有初始值吗？该是几？i=1Dimiasintegeri=1DoWhilei<=5语句块i=i+1Loop目前已经能进入并且退出循环了如何计数？列举出本次循环中i在每个时刻的值Dimiasintegeri=1DoWhilei<=5语句块i=i+1Loopi=1i=2i=3i=4i=5i=6i=1i=2i=3i=4i=5i=6我们的任务是将1-5之间的数进行累加，正好是将1-5次每个时刻中的i累加起来需要一个新的变量DimheasintegerHe=0He=he+iDimiasintegerDimheasintegeri=1He=0DoWhilei<=5He=he+ii=i+1Loop跳出循环He的初值为4950,执行He=4950+100后He的值为5050i更新为101He的初值为6,执行He=6+4后He的值为6i更新为5He的初值为3,执行He=3+3后He的值为6i更新为4He的初值为1,执行He=1+2后He的值为3i更新为3He的初值为0,执行He=0+1后He的值为1i更新为2i<=100条件不成立i<=100条件成立执行循环体语句块i<=100条件成立执行循环体语句块i<=100条件成立执行循环体语句块i<=100条件成立执行循环体语句块i<=100条件成立执行循环体语句块第101次循环i=101第100次循环i=5第4次循环i=4第3次循环i=3第2次循环i=2第1次循环i=1DimiasintegerDimheasintegeri=1DoWhilei<=100He=he+ii=i+1LoopDoWhile语句常用于执行条件明确，但事前不知道循环次数的循环语法格式DoWhile循环条件循环体语句Loop执行流程条件判断循环体语句YesNoDoWhile语句通常情况下，在进入DoWhile-Loop语句前应给循环变量设置初值循环体中必须包含使循环趋于结束的语句可以使用ExitDo语句随时跳出当前所在的循环，提前结束循环语句ExitDo可出现在循环体语句中的任意位置，通常与If语句联合使用DoWhile语句【实例】输入若干成绩（输入-1时结束）计算总成绩和平均成绩。连续弹出输入框接收成绩，直至-1时结束计算总成绩和平均成绩多行文本框LblaverageLblsumtxtscoreDoWhile语句使用成绩统计系统的算法：1.输入班级人数2.点击“输入成绩”按钮后，计算机首先判断有无输入班级人数，如已有输入，则只要用户输入的成绩数量不超过班级人数，则允许用户输入成绩，并将每次输入的成绩放在左侧文本框中，暗自累加已输入的成绩。否则提示用户“未输入班级人数”。3.点击“计算”按钮，计算机将已得到的总分（在第二步中已开始累加）和加工后的平均分显示在两个标签中。DoWhile语句1.输入班级人数由人工完成，不需计算机程序配合DoWhile语句2.点击“输入成绩”按钮后，计算机首先判断有无输入班级人数，如已有输入，则只要用户输入的成绩数量不超过班级人数，则允许用户输入成绩，并将每次输入的成绩放在左侧文本框中，暗自累加已输入的成绩。否则提示用户“未输入班级人数”。A.点击“输入成绩”按钮后：第2步中的动作均是对点击按钮的回应，意即后续的程序应编写在此按钮的sub中B.计算机首先判断有无输入班级人数，如已有输入，则………………………否则提示用户“未输入班级人数”。要求使用分支结构If条件thenxxxxxElseXxxxEndifDimiAsInteger'成绩个数i=Val(Renshu.Text)‘renshu是输入班级人数的本文框的名称。此处判断用户有没有输入班级人数，如没有则发出提示Ifi<>0Then则用户输入成绩，计算结果。ElseMsgBox("未输入班级人数")Renshu.SetFocusEndIf2.第二步中的条件成立时执行只要用户输入的成绩数量不超过班级人数，则允许用户输入成绩，并将每次输入的成绩放在左侧文本框中，暗自累加已输入的成绩。DimcishuasintegerDimsumassingleDimscoreasintegerScore=0Cishu=0DoWhilecishu<=Icishu=cishu+1Score=InputBox(“输入成绩”，“成绩系统”)txtScore.Text=score思考：这句程序合理吗？sum=sum+scoreLoop3.点击“计算”按钮，计算机将已得到的总分（在第二步中已开始累加）和加工后的平均分显示在两个标签中。A.点击“计算”按钮，意指“计算机将已得到的总分（在第二步中已开始累加）和加工后的平均分显示在两个标签中。”这些操作是对点击按钮的回应，应将程序写在按钮内3.点击“计算”按钮，计算机将已得到的总分（在第二步中已开始累加）和加工后的平均分显示在两个标签中。B.计算机将已得到的总分（在第二步中已开始累加）和加工后的平均分显示在两个标签中。PrivateSubCommandjs_Click()lblSum.Caption=sumlblAverage.Caption=sum/iEndSub思考，这个sum如此使用，合理吗？