vb考试的知识点.pptx

单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,*,*,认识vb,特点：可视化，面向对象，采取事件驱动方式结构化高级程序设计语言。,退出：alt+q,工程文件（.vbp）窗体文件（.frm）,标准模块文件（.bas）类模块文件(.cls)资源文件（.res）,对象三要素：属性【name，caption，color，font对象名.属性名=属性值】，事件（响应某个事件，所执行操作经过一段代码来实现也叫对事件响应）【getfocus()】，方法setfocus(),属性窗口【f4】代码窗口【f7】,1/47,重点,Private sub 对象名_事件名参数列表,/事件响应代码 end sub,对象名.方法名【参数列表】,逐语句【f8】逐过程【shift+f8】,2/47,标签,标签属性：Name【名称】caption【标题】height，width，top，left。Enabled【可用】visible【可见TRUE=form.showFALSE=form.hide,Font【字体】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。,3/47,文本框,属性：,Name【名称】height，width，top，left。Enabled【可用】visible【TRUE=form.showFALSE=form.hide,Font【字体】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,4/47,按钮,属性：Name【名称】caption【标题】height，width，top，left。Enabled【可用】visible【可见TRUE=form.showFALSE=form.hide,Font【字体】backcolor【十六进制】,特有属性：default【TRUE相当于enter键】cancel【TRUE相当于esc】只能有一个为TRUE；,value【命令按钮是否被按下】；style【0-standard不显示图形；1-graphical即可显示图形也可显示文字】picture【前提style为1图形文件.bmp.ico】tooltiptext在按钮停留时显示提醒信息,事件：click不支持双击,5/47,窗体,属性：Name【名称】caption【标题】height，width，top，left。Enabled【可用】visible【可见TRUE=form.showFALSE=form.hide,Font【字体】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【不在是活动窗体】,6/47,实例,在按钮点击后end【结束】unload me【卸载当前窗体】form2.show；if text1.text=“11”thenform3.show unload me else form4.show endif假如if.then.else.在同一行endif不写form2.text1.text=“”调用第二个窗体,对当前窗体进行引用时可直接使用控件名对控件进行访问，而,引用其它窗体上控件时应在控件名前加上该控件所在窗体名称,7/47,关键字和标识符,输入时系统会自动将关键字首字母变为大写。,以字母和汉字开头，,只能包含字母，汉字，下划线，数字，不能用关键字，不能超出255个字符控件窗体模块不超40字符多条语句用冒号：隔开；断开换行写在语句断开处用下划线_结尾与最终一个字符最少隔一个空格,8/47,数据类型,字节【byte1个字节】布尔【Boolean2字节】整【integer2字节%】长整【long4个字节&】单精度【single4个字节！】双精度【double8个字节#】货币【currency8个字节】日期【date8个字节】字符串【String$】定长字符串【String*长度$】对象【object4个字节】自定义数据类型：【public|private】type 数据类型名 数据类型元素名 as 数据类型.end type。Public对整个工程有效，private在申明模块中有效,9/47,实例,Sub Form_Load(),Form1.Move 100,200,_,4000,6000,Form1.Show,Dim a%,Dim b As Boolean,a=10,b=a,Print b,Dim zhong As String,c=zhong,Print Len(c),Dim y As Date,y=#5/1/1991#-3,Print y,End Sub,10/47,实例,Private Type Student,只能用private,在申明【为全局】中,No As Integer,Name As String,Sex As String,End Type,Sub Form_Click(),Dim t1 As Student【局部】,t1.No=1,t1.Name=zhang,t1.Sex=nv,Print t1.No,Print t1.Name,Print t1.Sex,End Sub,11/47,枚举,【public|private】enum 枚举名称 组员1【=常量表示式】组员2【=常量表示式】.end enum,12/47,运算符和表示式,Mod 取余【乘方到负数到乘除到整除到取模到加减】字符串运算符+【同为数值是加，同为字符串是连接】&【强转为字符串后连接】关系：,=,=,=200 Then,Exit For,Else,Print s,End If,Next,End Sub,18/47,实例,Private Sub Command2_Click(),x=ABCDE,For i=1 To 5,Print Mid(x,6-i,1),Next,End Sub,Private Sub Command3_Click(),x=ABCDE,For i=5 To 1 Step-2,Print Mid(x,i,1),Next,End Sub,19/47,实例,Private Sub Command4_Click(),m=InputBox(请输入一个数),For i=2 To m-1,If m Mod i=0 Then,Exit For,End If,Next,If i=m Then,Print m;是素数,Else,Print m;不是素数,End If,End Sub,20/47,实例,For i=1 to 9,For j=1 to i,print tab(4*j);i*j 每个输出间隔四位,Next j,Print,Next i,21/47,单项选择和复选,单项选择按钮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,22/47,框架和滚动条,框架frame:caption，enabled是否可用，visible是否可见。事件：click，dblclick,滚动条scollbar水平【hscollbar】垂直【vscollbar】max最大位置值min最小位置值value【滑块在滚动条位置】,23/47,列表框和组合框,列表框【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,24/47,计时器timer,Interval：时间间隔以毫秒为单位介于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 60,text3.text=int(num/1000)mod 60,text4.text=num mod 1000,25/47,图片框和图像框线,Picturebox属性：,picture【显示图片loadpicture（）】autosize【允许图片自动调整大小】调整图片框适应图片,Image属性:picture,stretch调整图片适应图片框,Line borderstyle:线性样式boederwidth：线性宽度Bordercolor：线段颜色,方法：对象名.linestep(x1,y1)-step(x2,y2),颜色,B,F,Shape【形状控件】shape控件显示几何形状borderstyle:线性样式boederwidth：线性宽度Bordercolor：线段颜色,CIRCLE方法：对象名.circle(x,y),半径，颜色,坐标系统：scalewidth属性和scaleheight设置坐标系中宽度和高度,26/47,实例：画正方形,Dim w,a,b As Integer/在申明中,Private Sub Command1_Click(),w=500,Form1.Cls,Form1.FillStyle=0,Form1.FillColor=vbBlue,For i=1 To 20,Form1.Line(a+i*w,b+w)-(a+i*w+w,b+w+w),vbRed,B,Next i,End Sub,27/47,实例：画正方形,Private Sub Command2_Click(),a=a+w,Form1.Cls,Form1.FillStyle=0,Form1.FillColor=vbBlue,For i=1 To 20,Form1.Line(a+i*w,b+w)-(a+i*w+w,b+w+w),vbRed,B,Next i,End Sub,28/47,实例：画正方形,Private Sub Command3_Click(),a=a-w,Form1.Cls,Form1.FillStyle=0,Form1.FillColor=vbBlue,For i=1 To 20,Form1.Line(a+i*w,b+w)-(a+i*w+w,b+w+w),vbRed,B,Next i,End Sub,29/47,实例：画正方形,Private Sub Command4_Click(),b=b+w,Form1.Cls,Form1.FillStyle=0,Form1.FillColor=vbBlue,For i=1 To 20,Form1.Line(a+i*w,b+w)-(a+i*w+w,b+w+w),vbRed,B,Next i,End Sub,30/47,实例：画正方形,Private Sub Command5_Click(),b=b-w,Form1.Cls,Form1.FillStyle=0,Form1.FillColor=vbBlue,For i=1 To 20,Form1.Line(a+i*w,b+w)-(a+i*w+w,b+w+w),vbRed,B,Next i,End Sub,31/47,实例：画正方形,Private Sub Command6_Click(),Form1.Cls,End Sub,Private Sub Command7_Click(),Form1.Circle(a+w,b+w),r,End Sub,32/47,实例,Private Sub Command1_Click()/显示图片,Picture1.Picture=LoadPicture(E:/windows/img/2.jpg),Picture2.Picture=LoadPicture(E:/windows/img/3.jpg),End Sub,Private Sub Command2_Click()/交换图片,Picture3.Picture=Picture1.Picture,Picture1.Picture=Picture2.Picture,Picture2.Picture=Picture3.Picture,End Sub,Private Sub Command3_Click()/删除图片,Picture1.Picture=LoadPicture(),Picture2.Picture=LoadPicture(),End Sub,33/47,实例,Private Sub Form_Click(),For i=1 To 100,Randomize,x=Int(Rnd*3000),y=Int(Rnd*3000),c=Int(Rnd*16),Form1.Line(1400,1400)-(x,y),QBColor(c),Next i,x=1000,y=1000,For r=100 To 400 Step 20,x=x+50,y=y+50,Circle(x,y),r,Next r,End Sub,34/47,一维数组,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岁人数组,35/47,实例,Option Base 1 在申明中/下标强制从一开始,Private Sub Command2_Click(),Dim a,a=Array(1,2,10,4,9),Print,m=a(1)/下标强制从一开始,For i=2 To 5,If a(i)m Then m=a(i),Next i,Print m,End Sub,36/47,实例,和上个实例连体,Private Sub Command3_Click(),Dim a(20)As Integer,a(1)=0/下标强制从一开始,a(2)=1,For i=3 To 20,a(i)=a(i-1)+a(i-2),Next i,For i=1 To 20,/一维数组用一重循环输出,Print a(i),Next i,End Sub,37/47,实例排序,Private Sub Command4_Click(),Dim a(5)As Integer,t As Integer,For i=1 To 5,a(i)=Val(InputBox(输入数据,排序),Next i,Print,For 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 j,Next i,For j=1 To 5,Print a(j),Next j,38/47,二维数组,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,39/47,实例：二维数组,Private Sub Command5_Click(),Dim a(3,4)As Integer,Dim i As Integer,j As Integer,For i=1 To 3,For j=1 To 4,a(i,j)=Val(InputBox(输入数据,二维数组输入),Next j,Next i,For i=1 To 3,/二维数组用二重循环输出外循环控制行数,For j=1 To 4/,内循环控制列数,Print Tab(8*j);a(i,j),Next j,Print,/换行,Next i,End Sub,40/47,数组求最大值,Private Sub Form_Click(),Dim a(20)As Long,a(1)=0,a(2)=1,For i=3 To 20,a(i)=a(i-2)+a(i-1),Next,For i=1 To 20,Print a(i),Next,End Sub,41/47,数组引用,数组引用通常是指对数组元素引用，其方法是在数组名后面括号中指定被引用元素下标，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,42/47,动态数组,没有下标数组为动态数组eg:dim s as integer Dim a()As Integer/定义一个动态数组 redim a(5)/给数组分配空间 s=inputbox(“input a number”)/将输入数值作为下标上界 redim a(s)/再次为数组分配空间,使用preserve 原数组内容不去除。,43/47,动态数组,Option Base 1/在申明中,Private Sub Form_Click(),Dim a()As Integer,ReDim a(3,2),For i=1 To 3,For j=1 To 2,a(i,j)=i+j,Next j,Next i,ReDim Preserve a(3,4),For j=3 To 4,a(3,j)=j+9,Next j,Print a(3,2),a(3,4),End Sub,44/47,数组去除,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为变体型变量，每次循环代表一个元素,45/47,数组：普通和控件,控件数组是一组含有相同名称【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,46/47,实例：运行360安全卫士,Private Sub Form_Click(),x=Shell(C:Program Files360360safe360Safe.exe),End Sub,47/47,