VB重点Word文件下载.docx
《VB重点Word文件下载.docx》由会员分享，可在线阅读，更多相关《VB重点Word文件下载.docx（15页珍藏版）》请在冰豆网上搜索。
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
Ifc>
Max（min）=c
求最大值或最小值
Ifpic.left+pic.width<
0then
Pic.left=frm.width
若图像移出窗体的左边界，则将其重新放置到窗体的右边界
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&
“,”&
Ifa>
maxthen
Max=a
随机产生9个数，取最大值
Frm.drawwindth=5
Fori=1to200
X=rnd*frm.width
Y=rnd*frm.height
A=int（rnd*16）
Pset（x,y）,QBcolor（a）
画两百个位置随机的彩色点
Frm.drawwidth=3
Fori=1to15
Y=y+200
X=x+200
Line（200,y）-（2500,y）,QBcolor（a）
画15条彩色直线（粗细为3）
Fori=1to10
X=x+4
Circle（x,600）,200,QBcolor（a）
画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）
loop
将所有输入的成绩显示在文本框，直到-1时停止。
Dowhile……loop
先判断，在进行
Do……loopWhile
先进行，后判断
（可用exitdo随时跳出循环）
（可用nextsub结束过程）
Do
Score=val（inputbox（“请输入0~100之间的成绩”,”成绩输入”））
Loopwhile（score>
100orscore<
0）
Do……loopwhile语句
Dimiasinteger,jasinteger
Frm.cls
Forj=1to10
Frm.print“*”;
Nextj
Frm.print
方阵
有“；
”不换行
换行
Forj=1toi
三角形阵
Dimiasinteger,xasinteger
Dimyasinteger
Dimcolasinteger
Picshow.cls
Pic.scale（1,1）-（100,100）
Pic.drawwidth=2
X=int（rnd*100）+1
Y=int（rnd*100）+1
Col=int（rnd*16）
Pic.pset（x,y）,QBcolor（col）
自定义图片框坐标系
绘图线的宽度为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）
计算线段的起始坐标（图片框中心点）
随机生成线段终止点坐标
以指定位置和颜色画线
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<
x2Andy1<
y2
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
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
图片框填充样式——实心
图片框填充颜色
以指定位置、半径和颜色画圆
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
计算n的阶乘
（若for开始不给a赋值，则a=0）
Privatefunctionfac（xasinteger）…
Dimsasdouble
DimIasinteger
Fori=1tox
S=s*i
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）
n!
1，（n=0或1）
n*（n-1），（n>
1）
递归调用（连续多次调用fct函数）
Fori=1to8
Printtab（15-i）;
Print“&
”;
&
Printtab（15+i-8）;
Forj=Itoi+8
Print“#”;
Print
########
########
第六章
Dima（1to10）asinteger
a（i）=int（rnd*90）+10
定义数组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
清空列表框
将列表框1中下标为i的项目赋给x
将x添加到列表框2
List.listIndex<
-1
选中列表框中项目（=-1未选中）
Fori=0to7
Lst2.additemlst1.list（i）
通过循环，依次向类表框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
按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
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）&
“”;
pic.print
包括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）
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）
Close#1
打开
打开文件“1”
不是1的结尾
将1中的内容赋给a
关闭
Clipboard.clear
清空剪切板，clip剪切板对象
Clipboard.settexttxt.seltext
Txt.seltext=clipboard.settext
文本框中选中文本置剪切板中
将所选文本换成剪切板中的
Txt.sellength>
选中文本的长度>
0（已选中）
i=instr（txt.text,search）
i中存放第一次找草字符串位置
Txt.selstart=i-1
Txt.sellength=len（search）
设置选定文本的起始位置（最开始位置为0，所以-1）
选定文本长度=search的长度
Ifbutton=2then
Popupmenumnupop
右键
弹出mnupop菜单
Form_click
重复窗体的单机事件
升级会员 