vb考试的知识点省公开课一等奖全国示范课微课金奖课件

认识vb特点：可视化，面向对象，采取事件驱动方式结构化高级程序设计语言。退出：alt+q工程文件（.vbp）窗体文件（.frm）标准模块文件（.bas）类模块文件(.cls)资源文件（.res）对象三要素：属性【name，caption，color，font对象名.属性名=属性值】，事件（响应某个事件，所执行操作经过一段代码来实现也叫对事件响应）【getfocus()】，方法[setfocus()]属性窗口【f4】代码窗口【f7】1/47重点Privatesub对象名_事件名[参数列表]//事件响应代码endsub对象名.方法名【参数列表】逐语句【f8】逐过程【shift+f8】2/47标签标签属性：Name【名称】caption【标题】height，width，top，left。Enabled【可用】visible【可见TRUE=form.showFALSE=form.hideFont【字体】backcolor【十六进制】forecolor【正文颜色】backstyle【背景样式0-transparent（不显示背景色）；1-opaque不透明】borderstyle【0-none没边框；1-fixedsingle单边框】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.hideFont【字体】text【文本信息】maxlength【文内容最大长度0-任长字符串不超出32k；非0-可容纳字符数】multiline【在属性中改多行文本】scrollbars【0-无滚动条1-horizontal水平2-vertical垂直3-水平和垂直】locked【运行是文本可编辑】passwordchar【文本显示效果】backcolor【十六进制】forecolor【正文颜色】borderstyle【0-none没边框；1-fixedsingle单边框】alighment【0左对齐1右对齐2居中】tabindex【决定对象tab次序】事件：change，keypress，lostfocus方法;setfocus4/47按钮属性：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不支持双击5/47窗体属性：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:\picture\1.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【结束】unloadme【卸载当前窗体】form2.show；iftext1.text=“11”thenform3.showunloadmeelseform4.showendif[假如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数据类型….endtype。Public对整个工程有效，private在申明模块中有效9/47实例SubForm_Load()Form1.Move100,200,_4000,6000Form1.ShowDima%DimbAsBooleana=10b=aPrintbDimzhongAsStringc="zhong"PrintLen(c)DimyAsDatey=#5/1/1991#-3PrintyEndSub10/47实例PrivateTypeStudent只能用private在申明【为全局】中NoAsIntegerNameAsStringSexAsStringEndTypeSubForm_Click()Dimt1AsStudent【局部】t1.No=1t1.Name="zhang"t1.Sex="nv"Printt1.NoPrintt1.NamePrintt1.SexEndSub11/47枚举【public|private】enum枚举名称组员1【=常量表示式】组员2【=常量表示式】..endenum12/47运算符和表示式Mod取余【乘方到负数到乘除到整除到取模到加减】字符串运算符+【同为数值是加，同为字符串是连接】&【强转为字符串后连接】关系：<>,=,<,>,>=,<=逻辑not,andor13/47常量和变量Const常量名=表示式Dim变量名【as数据类型】可申明多个dima%，b%隐式申明：a=50printa也可在申明中自定义类型变量名也可自定义eg：dimliningasstudent或dimmyworkdayasworkday【student，workday是在申明中定义类型】局部变量：在事件过程或通用过程用关键字dim或static申明，隐式申明变量为局部只作用于过程内部。模块变量【在申明中用关键字dim或private】作用于窗体或标准模块。全局变量：标准模块申明中【public或global】作用于整个工程14/47字符串函数和随机函数Left（字符串表示式,n）从字符串左端截取n个字符；mid（字符串表示式，n，m）从字符串第n个字符截取m个字符；Len（字符串表示式）或len（变量名）随机函数rnd函数rnd[(x)]x<0每次产生相同随机数x>0或省略每次产生不一样随机数x=0该次与上次相同：产生区间[n,m)int(rnd*(m-n)+n)产生区间[n,m]int(rnd*(m-n+1)+n)15/47数据输入输出Print方法cls方法输入框Inputbox(提醒信息【，标题】【，缺省值】【，x坐标】【，y坐标】)消息框msgbox(提醒信息【，按钮类型】【，标题】)16/47控制流语句If..then..endif[假如if..then在一行endif可省]单行if语句不用endif.if..then.else..endif<>必须参数【】可选Selectcase<测试表示式>case<值一><语句块一>…caseelse<语句块n+1>endselectFor..nextfor<循环变量>=<初值>to<终值>【step步长】next【循环变量】Exit强制跳出17/47实例PrivateSubCommand1_Click()Fors=1To200Ifs^2>=200ThenExitForElsePrintsEndIfNextEndSub18/47实例PrivateSubCommand2_Click()x="ABCDE"Fori=1To5PrintMid(x,6-i,1)NextEndSubPrivateSubCommand3_Click()x="ABCDE"Fori=5To1Step-2PrintMid(x,i,1)NextEndSub19/47实例PrivateSubCommand4_Click()m=InputBox("请输入一个数")Fori=2Tom-1IfmModi=0ThenExitForEndIfNextIfi=mThenPrintm;"是素数"ElsePrintm;"不是素数"EndIfEndSub20/47实例Fori=1to9Forj=1toi

printtab(4*j);i*j每个输出间隔四位NextjPrintNexti21/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-右对齐】事件：click22/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【第三项插入】removeitem[eg:list1.removeitem3移除第三项；list1.removeitem.list1.listindex移除选中项]clear去除全部【[对象名.]clear】eg：list1.clear组合框【combobox】style[0-dropdowncombo下拉式组合框【文本框和下拉式列表框】1-simplecombo简单组合框【文本框和列表框】能2-dropdownlist下拉式列表框【文本框和下拉式列表框】不允许在编辑区输入值]text【文本内容】事件：click和dropdown24/47计时器timerInterval：时间间隔以毫秒为单位介于0-65535ms1s=1000msenabled是否可用事件：timer事件时分秒毫秒eg：dimnumasintegernum=1timer_timer()num=num+1text1.text=int(num/360/1000)text2.text=int(num/60/1000)mod60text3.text=int(num/1000)mod60text4.text=nummod100025/47图片框和图像框线Picturebox属性：picture【显示图片loadpicture（）】autosize【允许图片自动调整大小】调整图片框适应图片Image属性:picture,stretch调整图片适应图片框Lineborderstyle:线性样式boederwidth：线性宽度Bordercolor：线段颜色方法：[对象名.]line[step][(x1,y1)]-[step][(x2,y2)][,颜色][,B[,F]]Shape【形状控件】shape控件显示几何形状borderstyle:线性样式boederwidth：线性宽度Bordercolor：线段颜色CIRCLE方法：[对象名.]circle[(x,y),半径[，颜色]]坐标系统：scalewidth属性和scaleheight设置坐标系中宽度和高度26/47实例：画正方形Dimw,a,bAsInteger//在申明中PrivateSubCommand1_Click()w=500Form1.ClsForm1.FillStyle=0Form1.FillColor=vbBlueFori=1To20Form1.Line(a+i*w,b+w)-(a+i*w+w,b+w+w),vbRed,BNextiEndSub27/47实例：画正方形PrivateSubCommand2_Click()a=a+wForm1.ClsForm1.FillStyle=0Form1.FillColor=vbBlueFori=1To20Form1.Line(a+i*w,b+w)-(a+i*w+w,b+w+w),vbRed,BNextiEndSub28/47实例：画正方形PrivateSubCommand3_Click()a=a-wForm1.ClsForm1.FillStyle=0Form1.FillColor=vbBlueFori=1To20Form1.Line(a+i*w,b+w)-(a+i*w+w,b+w+w),vbRed,BNextiEndSub29/47实例：画正方形PrivateSubCommand4_Click()b=b+wForm1.ClsForm1.FillStyle=0Form1.FillColor=vbBlueFori=1To20Form1.Line(a+i*w,b+w)-(a+i*w+w,b+w+w),vbRed,BNextiEndSub30/47实例：画正方形PrivateSubCommand5_Click()b=b-wForm1.ClsForm1.FillStyle=0Form1.FillColor=vbBlueFori=1To20Form1.Line(a+i*w,b+w)-(a+i*w+w,b+w+w),vbRed,BNextiEndSub31/47实例：画正方形PrivateSubCommand6_Click()Form1.ClsEndSubPrivateSubCommand7_Click()Form1.Circle(a+w,b+w),rEndSub32/47实例PrivateSubCommand1_Click()//显示图片Picture1.Picture=LoadPicture("E:/windows/img/2.jpg")Picture2.Picture=LoadPicture("E:/windows/img/3.jpg")EndSubPrivateSubCommand2_Click()//交换图片Picture3.Picture=Picture1.PicturePicture1.Picture=Picture2.PicturePicture2.Picture=Picture3.PictureEndSubPrivateSubCommand3_Click()//删除图片Picture1.Picture=LoadPicture("")Picture2.Picture=LoadPicture("")EndSub33/47实例PrivateSubForm_Click()Fori=1To100Randomizex=Int(Rnd*3000)y=Int(Rnd*3000)c=Int(Rnd*16)Form1.Line(1400,1400)-(x,y),QBColor(c)Nextix=1000y=1000Forr=100To400Step20x=x+50y=y+50Circle(x,y),rNextrEndSub34/47一维数组Public|dim|static<数组名>(下标上界)[as数据类型】【第一个元素下表为0即下标下界为0]publictest（4）asinteger定义了一个下标上界为4数组。含五个元素。Optionbase1下标从1开始定义格式：Public|dim|static<数组名>(下界to上界)[as数据类型】eg：dimage(18to40)存放18-40岁人数组35/47实例OptionBase1在申明中//下标强制从一开始·PrivateSubCommand2_Click()Dimaa=Array(1,2,10,4,9)Printm=a(1)//下标强制从一开始·Fori=2To5Ifa(i)>mThenm=a(i)NextiPrintmEndSub36/47实例和上个实例连体PrivateSubCommand3_Click()Dima(20)AsIntegera(1)=0//下标强制从一开始·a(2)=1Fori=3To20a(i)=a(i-1)+a(i-2)NextiFori=1To20//一维数组用一重循环输出Printa(i)NextiEndSub37/47实例排序PrivateSubCommand4_Click()Dima(5)AsInteger,tAsIntegerFori=1To5a(i)=Val(InputBox("输入数据","排序"))NextiPrintFori=1To4Forj=i+1To5Ifa(i)<a(j)Thent=a(i)a(i)=a(j)a(j)=tEndIfNextjNextiForj=1To5Printa(j)Nextj38/47二维数组Public|dim|static<数组名>(第一维下标，第二维下标)[as数据类型】eg：publicarr(2,3)asinteger有3（0-2）行4（0-3）列指定上下界：Publica(1to2,1to3)asinteger39/47实例：二维数组PrivateSubCommand5_Click()Dima(3,4)AsIntegerDimiAsInteger,jAsIntegerFori=1To3Forj=1To4a(i,j)=Val(InputBox("输入数据","二维数组输入"))NextjNextiFori=1To3//二维数组用二重循环输出外循环控制行数Forj=1To4//内循环控制列数PrintTab(8*j);a(i,j)NextjPrint//换行NextiEndSub40/47数组求最大值PrivateSubForm_Click()Dima(20)AsLonga(1)=0a(2)=1Fori=3To20a(i)=a(i-2)+a(i-1)NextFori=1To20Printa(i)NextEndSub41/47数组引用数组引用通常是指对数组元素引用，其方法是在数组名后面括号中指定被引用元素下标，eg：a(2),b(1,3)A(1)=“a”a(2)=“b”b(1,3)=a(1)+a(2)定义数组其实是为数组安排一块内存存放区，并不是数组已在该内存中建立。对于一维数组输入输出采取一重循环，而对于二维数组输入和输出采取双重循环。用inputbox为数组赋值eg：dima(5)fori=0to5a(