VB重点.docx
- 文档编号:3834268
- 上传时间:2022-11-25
- 格式:DOCX
- 页数:15
- 大小:21.92KB
VB重点.docx
《VB重点.docx》由会员分享,可在线阅读,更多相关《VB重点.docx(15页珍藏版)》请在冰豆网上搜索。
VB重点
第一章
frm.print“”
窗体显示文字
Lbl(cmd).caption=””/a
显示文字
Lbl(cmd).enabled=true/false
可不可用
Lbl(cmd).visible=true/false
可不可见
End
结束
Frm.Cls
清除
第二章
a=val(txt.text)
将txt中字符串转换成数字赋给a
Lbl.caption=str(c)
结算结果显示在标签中
ConstPI=3.1415926
定义常量
Dimaasinteger
定义整型
Dimaasdouble
定义实型
Dimaaslong
定义长整型
Dimaasstring
定义字符型
Dimaasboolean
布尔型只有true和false两种状态
Lbl.caption=””&a
标签中文字与字符连接
Print“”&a
窗体中文字与字符连接
Txt.setfocus
光标闪烁在文本框
c=int(rnd*b-a+1)+a
a~b范围内的随机数
Randomize
运行程序时产生不同的随机数
b=left(a,3)
从字符串左侧起取三个字符
b=mid(a,2,3)
从字符串第二个字符开始取三个字符
b=lcase(a)/ucase(a)
小写/大写
Dimtasinteger
t=a
a=b
b=t
a、b交换
pic/img.picture=loadpicture””
“”加入图片路径,图像框添加图片
a=xmod10
个位数
a=x\10mod10
十位数
a=x\100
百位数
Form.show
显示窗体
Form.hide
隐藏窗体
Timer.enabled=true/false
启动/关闭计时器
Img.left/top=img.left/top-100
向左移动/向上移动
Picture.backcolor=RGB(r,g,b)
合成颜色,并赋给图片框的背景色
a=hsb.value
滚动条滑块位置所代表的值
Inputbox(“请输入a~b的数”,
“输入框”,0)
输入框,输入数据
MsgBox(""&a)
Msgbox“弹出信息”,按钮,”文件名”
消息框(P62)
第三章
If表达式then
语句1
(else
语句2)
Endif
If语句一般形式
Chk.value=1/0
复选框被选中/未选中
Opt.value=true
选中单选按钮
Txt.fontname=”宋体”
Txt中字体名称为宋体
Txt.fontitalic/=true/false
Txt中文字为斜体
Txt.fontsize=a
Txt中文字大小为a
Lbl/Txt.forecolor=vbred/vbblack
Lbl/Txt中文本颜色为红色/黑色
Txt.fontbold=true/false
Txt中字体加粗
Txt.fontstrikethru=true/false
Txt中删除线
Txt.fontunderline=true/false
Txt中下划线
Max(min)=a
Ifb>(<)max(min)then
Max(min)=b
Endif
Ifc>(<)max(min)then
Max(min)=c
Endif
求最大值或最小值
Ifpic.left+pic.width<0then
Pic.left=frm.width
Endif
若图像移出窗体的左边界,则将其重新放置到窗体的右边界
Selectcase判断表达式
Case表达式表1
语句组1
Case表达式表2
语句组2
…
Case表达式表n
语句组n
Caseelse
语句组n+1
Endselect
Selectcase语句
Selectcase3/x/xmod2
判断表达式为常量、变量。
数值型、字符型均可
Case3
Case1to100
Case“a”,”A”to“Z”
Case1,3,5
CaseIs>90
判断表达式值为3时匹配
判断表达式值为1~100之间
判断表达式的值a或A~Z之间
判断表达式的值为1或3或5
判断表达式的值大于90
第四章
For循环变量(i)=初始值to终止值(step步长)
循环体语句
Next循环变量
例:
1+2+3+……+100
Fori=1to100
Sum=sum+i
Nexti
N=val(txt.text)
S=1
Fori=1ton
s=s*i
sum=sum+s
nexti
计算1!
+2!
+3!
……+n!
Fori=1to9
A=int(rnd*100)+1
Lbl.caption=lbl.caption&“,”&a
Ifa>maxthen
Max=a
Endif
Nexti
随机产生9个数,取最大值
Frm.drawwindth=5
Randomize
Fori=1to200
X=rnd*frm.width
Y=rnd*frm.height
A=int(rnd*16)
Pset(x,y),QBcolor(a)
Nexti
画两百个位置随机的彩色点
Frm.drawwidth=3
Randomize
Fori=1to15
A=int(rnd*16)
Y=y+200
X=x+200
Line(200,y)-(2500,y),QBcolor(a)
Nexti
画15条彩色直线(粗细为3)
Frm.drawwidth=3
Randomize
Fori=1to10
X=x+4
A=int(rnd*16)
Circle(x,600),200,QBcolor(a)
Nexti
画10个彩色圆(粗细为3,半径为200)
Dimscoreasinterger
Txt.text=””
Sum=0
N=0
Score=val(inputbox(“请输入成绩,-1时结束输入”,”成绩输入”,-1))
Dowhilescore<>-1
N=n+1
Sum=sum+score
Txt.text=txt.text&score&chr(13)&chr(10)
Score=val(inputbox(“请输入成绩,-1时结束输入”,”成绩输入”,-1))
loop
将所有输入的成绩显示在文本框,直到-1时停止。
Dowhile……loop
先判断,在进行
Do……loopWhile
先进行,后判断
(可用exitdo随时跳出循环)
(可用nextsub结束过程)
Do
Score=val(inputbox(“请输入0~100之间的成绩”,”成绩输入”))
Loopwhile(score>100orscore<0)
Do……loopwhile语句
(可用exitdo随时跳出循环)
Dimiasinteger,jasinteger
Frm.cls
Fori=1to10
Forj=1to10
Frm.print“*”;
Nextj
Frm.print
Nexti
方阵
有“;”不换行
换行
Dimiasinteger,jasinteger
Frm.cls
Fori=1to10
Forj=1toi
Frm.print“*”;
Nextj
Frm.print
Nexti
三角形阵
Dimiasinteger,xasinteger
Dimyasinteger
Dimcolasinteger
Picshow.cls
Pic.scale(1,1)-(100,100)
Pic.drawwidth=2
Fori=1to100
X=int(rnd*100)+1
Y=int(rnd*100)+1
Col=int(rnd*16)
Pic.pset(x,y),QBcolor(col)
Nexti
自定义图片框坐标系
绘图线的宽度为2
画100个点
随机生成一组坐标
随机生成颜色
在图片框的(x,y)处用指定颜色画点
Dimiasinteger
Dimx1asinteger,y1asinteger
Dimx2asinteger,y2asinteger
Dimcolinteger
Pic.cls
Pic.drawwidth=1
x1=pic.scalewidth/2
y1=pic.scaleheight/2
fori=1to100
x2=int(rnd*100)+1
y2=int(rnd*100)+1
col=int(rnd*16)
pic.line(x1,y1)-(x2,y2),QBcolor(col)
nexti
计算线段的起始坐标(图片框中心点)
随机生成线段终止点坐标
随机生成颜色
以指定位置和颜色画线
Dimx1asinteger,x2asinteger
Dimx2asinteger,y2asinteger
DimcolAsInteger
pic.Cls
pic.Scale(1,1)-(100,100)
pic71102.DrawWidth=1
x1=1
y1=1
x2=pic.ScaleWidth
y2=pic71102.ScaleHeight
DoWhilex1 col=Int(Rnd*16) pic71102.Line(x1,y1)-(x2,y2),QBColor(col),BF x1=x1+2 y1=y1+2 x2=x2-2 y2=y2-2 Loop 设置第一个矩形左上角坐标 设置第一个矩形右下角坐标——图框右下角 随即生成颜色 以指定位置和颜色画实心矩形(若只有B则为空心矩形) 设置下一矩形的两顶点坐标 DimrAsInteger DimcolAsInteger pic.Cls pic.Scale(-50,50)-(50,-50) pic.DrawWidth=1 pic.FillStyle=0 r=49 DoWhiler>0 col=Int(Rnd*16) pic.FillColor=QBColor(col) pic.Circle(0,0),r,QBColor(col) r=r-5 Loop 图片框填充样式——实心 图片框填充颜色 以指定位置、半径和颜色画圆 IfButton=then …… 1-按下鼠标左键 2-按下鼠标右键 4-按下鼠标中间键 Ifshift=then …… 1-无按键 2-按下shift键 3-按下ctrl键 4-按下shift+ctrl键 5-按下alt键 6-按下alt+shift键 7-按下alt+ctrl键 8-按下shift+ctrl+alt键 Format(a,”@@”) 把a按照”@@”的格式输出 第五章 a=1 fori=1ton a=a*i nexti 计算n的阶乘 (若for开始不给a赋值,则a=0) Privatefunctionfac(xasinteger)… Dimsasdouble DimIasinteger S=1 Fori=1tox S=s*i Nexti Fac=s Endfunction 定义fac函数(工具—添加过程) 若使用函数则是fac(n)其中n为函数过程编辑的x Privatefunctionfun(aasinteger,basinteger,casinteger) c=(a+b)*2 fun=a*b endfunction area=fun(a,b,leng) 求周长和面积 周长为c,输出时leng对应c的位置即可 面积为函数的结果 Factn,u;Callfact(n,u) 调用fact函数,将结果赋给u Dim或private定义变量 窗体级变量 只在定义的窗体或模块中有效,其他窗体或模块无效 Publicaasinteger 程序级变量 在整个程序中都有效 标准模块添加: 工程—添加模块 Staticaasinteger 过程级静态变量 整个程序运行期间他始终占据内存空间,一直保留当前值 Privatestaticsub…… 定义静态过程 过程内的所有变量都保留当前值 nextsub 退出过程 Ifn=0or1then Fct=1 Else Fct=n*fct(n-1) Endif n! 1,(n=0或1) n*(n-1),(n>1) 递归调用(连续多次调用fct函数) Fori=1to8 Printtab(15-i); Forj=1toi Print“&”; Nextj Nexti & && &&& &&&& &&&&& &&&&&&& &&&&&&& Fori=1to8 Printtab(15+i-8); Forj=Itoi+8 Print“#”; Nextj Print Nexti ######## ######## ######## ######## 第六章 Dima(1to10)asinteger Randomize Fori=1to10 a(i)=int(rnd*90)+10 nexti 定义数组a,10个integer元素 (下界to上界) 随即产生数,放在下标为i的元素中 Optionbase1 Dima(20)asinteger =dima(1to20)asinteger Optionbase定义元素下标从几开始,必须写在定义元素之前 此时可以定义元素可忽略下界 Publicpassword(1to10)asstring Submain() Password (1)=”123” Password (2)=”vb6”…… Frm.show Endsub 定义过程级数组,存放密码集 初始化密码集 进入窗体 Lst2.clear Fori=0to19 X=lst1.list(i) Ifxmod2=0then Lst2.additemx Endif Nexti 清空列表框 将列表框1中下标为i的项目赋给x 将x添加到列表框2 List.listIndex<>-1 选中列表框中项目(=-1未选中) Fori=0to7 Lst2.additemlst1.list(i) Nexti 通过循环,依次向类表框lst2中添加lst1的项目 n=lst.listcount 列表框当前拥有的项目个数 lst.text 当前选中的项目 lst.RemoveItem例: lst.RemoveItem0 lst.RemoveItem4 lst.RemoveItemlst.ListIndex lst.RemoveItemlst.ListCount-1 lst.clear 删除列表框中指定一项 删除列表框的第一项 删除列表框的第五项 删除列表框所选项 listindex当前选中项的索引号 删除列表框最后一项 删除列表框所有项 Privatesubcbo_keypress (keyasciiasinteger) Ifkeyascii=13then Cbo.AddItemcbo.text Endif Endsub 按Enter键时 输入数据作为一个项目添加到组合框中 x=sbo.list(i) 组合框中下标为i的项目赋给x Privatesubcmd_click (indexasinteger) Selectcaseindex Case0 … Case1 … 控件数组 Index添加的控件数组标号,从0开始 a(1to10)asinteger randomize forn=1to10 a(n)=int(rnd*90)+10 fori=1to9 k=i forj=i+1to10 ifa(j)>a(k)then k=j endif nextj ifk<>Ithen t=a(i) a(i)=a(k) a(k)=t endif nexti 10个数据进行排序,只需9次 找出a(i)至a(10)的最大值 借助中间变量t,交换a(i)与a(k) Dima(1to3,1to4)asinteger 定义一个名为a的二维数组 Fori=1to3 Forj=1to4 a(i,j)=int(rnd*90)+10 pic.printa(i,j)&“”; nextj pic.print nexti 包括3X4共12个元素: a(1,1)、a(1,2)、a(1,3)、a(1,4)、a(2,1)… 控制3行 控制4列 产生随机两位数 显示生成的数并加空格 输出四个数据后换行 Dima(2,1to2)assingle 这个二维数组包括六个 a(0,1)、a(0,2)、a(1,1)、a(1,2)、a(2,1)、a(2,2) Optionbase1 Dima(3,4)asinteger =dima(1to3,1to4)asinteger 例6.14 第八章 Dlgopen.showopen 弹出“打开”对话框 Open文件名for打开方式as文件号 Open“d: \a.dat”foroutput(input)as#1 打开文件 从a.dat写入(读出)字符 将a.dat指定编号为1 Lineinput#1,a 从1中读一行字赋给字符变量a Print#1,txt.text 将文本框中书写的写入1文件 Dlg.showopen Opendlg.filenameforinputas#1 DowhilenotEOF (1) Lineinput#1,a Txt.text=txt.text&a Loop Close#1 打开 打开文件“1” 不是1的结尾 将1中的内容赋给a 关闭 Clipboard.clear 清空剪切板,clip剪切板对象 Clipboard.settexttxt.seltext Txt.seltext=clipboard.settext 文本框中选中文本置剪切板中 将所选文本换成剪切板中的 Txt.sellength>0 选中文本的长度>0(已选中) i=instr(txt.text,search) i中存放第一次找草字符串位置 Txt.selstart=i-1 Txt.sellength=len(search) 设置选定文本的起始位置(最开始位置为0,所以-1) 选定文本长度=search的长度 Ifbutton=2then Popupmenumnupop 右键 弹出mnupop菜单 Form_click 重复窗体的单机事件
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 重点