vb考试的知识点省公共课一等奖全国赛课获奖课件.pptx

vb观赏语言魔力第1页认识vb特点：可视化，面向对象，采取事件驱动方式结构化高级程序设计语言。退出：alt+q工程文件（.vbp）窗体文件（.frm）标准模块文件（.bas）类模块文件(.cls)资源文件（.res）对象三要素：属性【name，caption，color，font对象名.属性名=属性值】，事件（响应某个事件，所执行操作经过一段代码来实现也叫对事件响应）【getfocus()】，方法setfocus()属性窗口【f4】代码窗口【f7】第2页重点Private sub 对象名_事件名参数列表/事件响应代码 end sub对象名.方法名【参数列表】逐语句【f8】逐过程【shift+f8】第3页标签标签属性：Name【名称】caption【标题】height，width，top，left。Enabled【可用】visible【可见TRUE=form.showFALSE=form.hideFont【字体】backcolor【十六进制】forecolor【正文颜色】backstyle【背景样式0-transparent（不显示背景色）；1-opaque不透明】borderstyle【0-none没边框；1-fixed single单边框】alighment【0左对齐1右对齐2居中】autosize【自动调大小】tabindex【决定对象tab次序】wordwrap【控制caption属性内容能否自动换行，只有autosize为TRUE时才起作用】标签事件【click，dblclick】文本框没有backstyle，autosize；按钮没有forecolor，backstyle，borderstyle，alignment，autosize。第4页文本框属性：Name【名称】height，width，top，left。Enabled【可用】visible【TRUE=form.showFALSE=form.hideFont【字体】text【文本信息】maxlength【文内容最大长度0-任长字符串不超出32k；非0-可容纳字符数】multiline【在属性中改多行文本】scrollbars【0-无滚动条1-horizontal水平2-vertical垂直3-水平和垂直】locked【运行是文本可编辑】passwordchar【文本显示效果】backcolor【十六进制】forecolor【正文颜色】borderstyle【0-none没边框；1-fixed single单边框】alighment【0左对齐1右对齐2居中】tabindex【决定对象tab次序】事件：change，keypress，lostfocus方法;setfocus第5页按钮属性：Name【名称】caption【标题】height，width，top，left。Enabled【可用】visible【可见TRUE=form.showFALSE=form.hideFont【字体】backcolor【十六进制】特有属性：default【TRUE相当于enter键】cancel【TRUE相当于esc】只能有一个为TRUE；value【命令按钮是否被按下】；style【0-standard不显示图形；1-graphical即可显示图形也可显示文字】picture【前提style为1图形文件.bmp.ico】tooltiptext在按钮停留时显示提醒信息事件：click不支持双击第6页窗体属性：Name【名称】caption【标题】height，width，top，left。Enabled【可用】visible【可见TRUE=form.showFALSE=form.hideFont【字体】backcolor【十六进制】forecolor【正文颜色】appearance【窗体显示效果0-平面1-立体】borderstyle【0-无标题栏不可改变窗体大小1-固定单边框2-sizable可调整边框（默认）】maxbutton，minbutton决定窗体是否有最大化最小化按钮moveable【设置窗体位置是否可改变】picture属性【form.picture=loadpicture(“c:picture1.bmp”)括号里是路径】函数loadpicture()还可用于图片框【picturebox】图像框【image】visible设置窗体是否可见清空图片用loadpicture()cls是清空文本框等控件图形【用shape，circle,;line画】和文本方法：print，cls，move（left，top，width，height）事件：click，dblclick，load，unload，activate【激活】deactivate【不在是活动窗体】第7页实例在按钮点击后end【结束】unload me【卸载当前窗体】form2.show；if text1.text=“11”thenform3.show unload me else form4.show endif假如if.then.else.在同一行endif不写form2.text1.text=“”调用第二个窗体对当前窗体进行引用时可直接使用控件名对控件进行访问，而引用其它窗体上控件时应在控件名前加上该控件所在窗体名称第8页关键字和标识符输入时系统会自动将关键字首字母变为大写。以字母和汉字开头，只能包含字母，汉字，下划线，数字，不能用关键字，不能超出255个字符控件窗体模块不超40字符多条语句用冒号：隔开；断开换行写在语句断开处用下划线_结尾与最终一个字符最少隔一个空格第9页数据类型字节【byte1个字节】布尔【Boolean2字节】整【integer2字节%】长整【long4个字节&】单精度【single4个字节！】双精度【double8个字节#】货币【currency8个字节】日期【date8个字节】字符串【String$】定长字符串【String*长度$】对象【object4个字节】自定义数据类型：【public|private】type 数据类型名 数据类型元素名 as 数据类型.end type。Public对整个工程有效，private在申明模块中有效第10页实例Sub Form_Load()Form1.Move 100,200,_4000,6000Form1.ShowDim a%Dim b As Booleana=10b=aPrint bDim zhong As Stringc=zhongPrint Len(c)Dim y As Datey=#5/1/1991#-3Print yEnd Sub第11页实例Private Type Student 只能用private在申明【为全局】中No As IntegerName As StringSex As StringEnd TypeSub Form_Click()Dim t1 As Student【局部】t1.No=1t1.Name=zhangt1.Sex=nvPrint t1.NoPrint t1.NamePrint t1.SexEnd Sub第12页枚举【public|private】enum 枚举名称 组员1【=常量表示式】组员2【=常量表示式】.end enum第13页运算符和表示式Mod 取余【乘方到负数到乘除到整除到取模到加减】字符串运算符+【同为数值是加，同为字符串是连接】&【强转为字符串后连接】关系：,=,=,=逻辑not,and or第14页常量和变量Const 常量名=表示式Dim 变量名【as 数据类型】可申明多个dim a%，b%隐式申明：a=50 print a也可在申明中自定义类型 变量名也可自定义eg：dim lining as student 或dim myworkday as workday【student，workday是在申明中定义类型】局部变量：在事件过程或通用过程用关键字dim或static申明，隐式申明变量为局部只作用于过程内部。模块变量【在申明中用关键字 dim或private】作用于窗体或标准模块。全局变量：标准模块申明中【public或global】作用于整个工程第15页字符串函数和随机函数Left（字符串表示式,n）从字符串左端截取n个字符；mid（字符串表示式，n，m）从字符串第n个字符截取m个字符；Len（字符串表示式）或len（变量名）随机函数rnd函数rnd(x)x0或省略每次产生不一样随机数x=0该次与上次相同：产生区间n,m)int(rnd*(m-n)+n)产生区间n,mint(rnd*(m-n+1)+n)第16页数据输入输出Print方法cls方法输入框Inputbox(提醒信息【，标题】【，缺省值】【，x坐标】【，y坐标】)消息框msgbox(提醒信息【，按钮类型】【，标题】)第17页控制流语句If.then.end if假如if.then在一行endif可省单行if语句不用endif.if.then.else.end if必须参数【】可选Select case casecase else end selectFor.next for=to【step 步长】next【循环变量】Exit强制跳出第18页实例Private Sub Command1_Click()For s=1 To 200If s 2=200 ThenExit ForElsePrint sEnd IfNextEnd Sub第19页实例Private Sub Command2_Click()x=ABCDEFor i=1 To 5Print Mid(x,6-i,1)NextEnd SubPrivate Sub Command3_Click()x=ABCDEFor i=5 To 1 Step-2Print Mid(x,i,1)NextEnd Sub第20页实例Private Sub Command4_Click()m=InputBox(请输入一个数)For i=2 To m-1If m Mod i=0 ThenExit ForEnd IfNextIf i=m ThenPrint m;是素数ElsePrint m;不是素数End IfEnd Sub第21页实例For i=1 to 9 For j=1 to i print tab(4*j);i*j 每个输出间隔四位Next jPrintNext i第22页单项选择和复选单项选择按钮optionbutton：caption属性【单项选择按钮标题】value【设置其状态TRUE选定FALSE没有】style【按钮显示方式0-标准1-graphical图形（与命令按钮相同）】alignment【0-左对齐1-右对齐】事件：click复选checkbox：caption属性【复选按钮标题】value【设置其状态0-没选定1-选定2-禁止选择】style【按钮显示方式0-标准1-graphical图形（与命令按钮相同）】alignment【0-左对齐1-右对齐】事件：click第23页框架和滚动条框架frame:caption，enabled是否可用，visible是否可见。事件：click，dblclick滚动条scollbar水平【hscollbar】垂直【vscollbar】max最大位置值min最小位置值value【滑块在滚动条位置】第24页列表框和组合框列表框【listbox】：list【选项】，listcount【选项数量】，listindex【被选中项在list数组中下标】selected【选定状态】sorted【是否升序排列】text【选中选项文本内容】multiselect【0-禁止多项选择1-简单多项选择】style【0-标准1-复选框形式】事件：click，dblclick，scroll方法:additem对象名.additem项字符串,项索引号eg：list1.additem”留洋”【末尾添加】list1.additem”留洋”2【第三项插入】removeitemeg:list1.removeitem 3移除第三项；list1.removeitem.list1.listindex移除选中项clear去除全部【对象名.clear】eg：list1.clear组合框【combobox】style0-dropdown combo下拉式组合框【文本框和下拉式列表框】1-simple combo简单组合框【文本框和列表框】能2-dropdown list下拉式列表框【文本框和下拉式列表框】不允许在编辑区输入值text【文本内容】事件：click和dropdown第25页计时器timerInterval：时间间隔以毫秒为单位介于0-65535ms 1s=1000msenabled是否可用事件：timer事件时分秒毫秒eg：dim num as integer num=1 timer_timer()num=num+1 text1.text=int(num/360/1000)text2.text=int(num/60/1000)mod 60text3.text=int(num/1000)mod 60text4.text=num mod 1000第26页图片框和图像框线Picturebox属性：picture【显示图片loadpicture（）】autosize【允许图片自动调整大小】调整图片框适应图片Image属性:picture,stretch调整图片适应图片框Line borderstyle:线性样式boederwidth：线性宽度Bordercolor：线段颜色方法：对象名.linestep(x1,y1)-step(x2,y2),颜色,B,FShape【形状控件】shape控件显示几何形状borderstyle:线性样式boederwidth：线性宽度Bordercolor：线段颜色CIRCLE方法：对象名.circle(x,y),半径，颜色坐标系统：scalewidth属性和scaleheight设置坐标系中宽度和高度第27页实例：画正方形Dim w,a,b As Integer/在申明中Private Sub Command1_Click()w=500Form1.ClsForm1.FillStyle=0Form1.FillColor=vbBlueFor i=1 To 20Form1.Line(a+i*w,b+w)-(a+i*w+w,b+w+w),vbRed,BNext iEnd Sub第28页实例：画正方形Private Sub Command2_Click()a=a+wForm1.ClsForm1.FillStyle=0Form1.FillColor=vbBlueFor i=1 To 20Form1.Line(a+i*w,b+w)-(a+i*w+w,b+w+w),vbRed,BNext iEnd Sub第29页实例：画正方形Private Sub Command3_Click()a=a-wForm1.ClsForm1.FillStyle=0Form1.FillColor=vbBlueFor i=1 To 20Form1.Line(a+i*w,b+w)-(a+i*w+w,b+w+w),vbRed,BNext iEnd Sub第30页实例：画正方形Private Sub Command4_Click()b=b+wForm1.ClsForm1.FillStyle=0Form1.FillColor=vbBlueFor i=1 To 20Form1.Line(a+i*w,b+w)-(a+i*w+w,b+w+w),vbRed,BNext iEnd Sub第31页实例：画正方形Private Sub Command5_Click()b=b-wForm1.ClsForm1.FillStyle=0Form1.FillColor=vbBlueFor i=1 To 20Form1.Line(a+i*w,b+w)-(a+i*w+w,b+w+w),vbRed,BNext iEnd Sub第32页实例：画正方形Private Sub Command6_Click()Form1.ClsEnd SubPrivate Sub Command7_Click()Form1.Circle(a+w,b+w),rEnd Sub第33页实例Private Sub Command1_Click()/显示图片Picture1.Picture=LoadPicture(E:/windows/img/2.jpg)Picture2.Picture=LoadPicture(E:/windows/img/3.jpg)End SubPrivate Sub Command2_Click()/交换图片Picture3.Picture=Picture1.PicturePicture1.Picture=Picture2.PicturePicture2.Picture=Picture3.PictureEnd SubPrivate Sub Command3_Click()/删除图片Picture1.Picture=LoadPicture()Picture2.Picture=LoadPicture()End Sub第34页实例Private Sub Form_Click()For i=1 To 100Randomizex=Int(Rnd*3000)y=Int(Rnd*3000)c=Int(Rnd*16)Form1.Line(1400,1400)-(x,y),QBColor(c)Next ix=1000y=1000For r=100 To 400 Step 20 x=x+50y=y+50Circle(x,y),rNext rEnd Sub第35页一维数组Public|dim|static(下标上界)as 数据类型】【第一个元素下表为0即下标下界为0public test（4）as integer定义了一个下标上界为4数组。含五个元素。Option base 1下标从1开始定义格式：Public|dim|static(下界 to上界)as 数据类型】eg：dim age(18 to 40)存放18-40岁人数组第36页实例Option Base 1 在申明中/下标强制从一开始Private Sub Command2_Click()Dim aa=Array(1,2,10,4,9)Printm=a(1)/下标强制从一开始For i=2 To 5If a(i)m Then m=a(i)Next iPrint mEnd Sub第37页实例和上个实例连体Private Sub Command3_Click()Dim a(20)As Integera(1)=0/下标强制从一开始a(2)=1For i=3 To 20a(i)=a(i-1)+a(i-2)Next iFor i=1 To 20/一维数组用一重循环输出Print a(i)Next iEnd Sub第38页实例排序Private Sub Command4_Click()Dim a(5)As Integer,t As IntegerFor i=1 To 5a(i)=Val(InputBox(输入数据,排序)Next iPrintFor i=1 To 4 For j=i+1 To 5 If a(i)a(j)Then t=a(i)a(i)=a(j)a(j)=t End If Next jNext iFor j=1 To 5Print a(j)Next j第39页二维数组Public|dim|static(第一维下标，第二维下标)as 数据类型】eg：public arr(2,3)as integer 有3（0-2）行4（0-3）列指定上下界：Public a(1 to 2,1 to 3)as integer第40页实例：二维数组Private Sub Command5_Click()Dim a(3,4)As IntegerDim i As Integer,j As IntegerFor i=1 To 3For j=1 To 4a(i,j)=Val(InputBox(输入数据,二维数组输入)Next jNext iFor i=1 To 3 /二维数组用二重循环输出外循环控制行数For j=1 To 4/内循环控制列数Print Tab(8*j);a(i,j)Next jPrint/换行Next iEnd Sub第41页数组求最大值Private Sub Form_Click()Dim a(20)As Longa(1)=0a(2)=1For i=3 To 20a(i)=a(i-2)+a(i-1)NextFor i=1 To 20Print a(i)NextEnd Sub第42页数组引用数组引用通常是指对数组元素引用，其方法是在数组名后面括号中指定被引用元素下标，eg：a(2),b(1,3)A(1)=“a”a(2)=“b”b(1,3)=a(1)+a(2)定义数组其实是为数组安排一块内存存放区，并不是数组已在该内存中建立。对于一维数组输入输出采取一重循环，而对于二维数组输入和输出采取双重循环。用inputbox为数组赋值eg：dim a(5)for i=0 to 5 a(i)=val(inputbox(“请输入一个数”“数组输入”)next i 求奇数：a(i)=2*i-1 偶数a(i)=2*i第43页动态数组没有下标数组为动态数组eg:dim s as integer Dim a()As Integer/定义一个动态数组 redim a(5)/给数组分配空间 s=inputbox(“input a number”)/将输入数值作为下标上界 redim a(s)/再次为数组分配空间使用preserve 原数组内容不去除。第44页动态数组Option Base 1/在申明中Private Sub Form_Click()Dim a()As IntegerReDim a(3,2)For i=1 To 3For j=1 To 2a(i,j)=i+jNext jNext iReDim Preserve a(3,4)For j=3 To 4a(3,j)=j+9Next jPrint a(3,2),a(3,4)End Sub第45页数组去除Erase For each 组员 in 数组名 循环体【exit for】next 循环次数由数组元素个数决定Dim a(1 to 5)for i=1 to 5 a(i)=int(rnd*100)/生成五个100以内随机数next For each x in a print x next/x为变体型变量，每次循环代表一个元素第46页数组：普通和控件控件数组是一组含有相同名称【name】相同类型和事件控件。以下标index来表示各个控件。Fontsize=12 select case index case 0:print“选择了按钮1”case 1：print“选择了按钮2”case 2：end end select Text1.text=“”for k=0 to 3四个复选框index从0-3 if check(k).value=1被选中 then text1.text=text1.text=text1.text&check1(k).caption文本&”end if next k第47页实例：运行360安全卫士Private Sub Form_Click()x=Shell(C:Program Files360360safe360Safe.exe)End Sub第48页