VB 语句.docx
- 文档编号:3148808
- 上传时间:2022-11-18
- 格式:DOCX
- 页数:9
- 大小:1.65MB
VB 语句.docx
《VB 语句.docx》由会员分享,可在线阅读,更多相关《VB 语句.docx(9页珍藏版)》请在冰豆网上搜索。
VB语句
1.DimT3BKasstring
PrivateSubtxt3BK_change()
T3BK=Left(txt3BK.Text,8)
SelectCaseT3BK
CaseIs="3BK28706"
txttype.Text="RMXA09"
txttype.BackColor=65280
CaseIs="3BK28776"
txttype.Text="RMXA18"
txttype.BackColor=16384
'txttype.BackColor=12632064
CaseElse
txttype.BackColor=255
txttype.Text="ModelIncorrect!
!
"
EndSelect
2.SelectCaseVal(Text1.Text)
Case0To60
Label1.Caption="不及格"
Case60To70
Label1.Caption="及格"
Case70To80
Label1.Caption="中"
Case80To90
Label1.Caption="良"
Case90To100
Label1.Caption="优秀"
CaseElse
Label1.Caption="输入错误"
EndSelect
3.常量声明
Const常量名[As类型]=表达式
例如:
ConstPI=3.14159
‘声明了常量PI,代表3.15159
ConstMAXAsInteger=&o144
‘声明了常量MAX,代表八进制书,整形
ConstCOUNTS#=45.67
‘声明了常量COUNTS,代表45.67,双精度型
4.系统常量
颜色类:
vbGreen,vbRed,vbBlue……
vbNomarl->0vbMinimized->1vbMaximized->2
5.内部函数:
abs(n)sqr(n)chr(n)asc(c)val(c)str(n)leftrightmidltrimrtrim
lentimedatenowdayyearmonth
inputbox(c)
ucase(a)
6.文件操作
Kill文件名
6.逻辑运算
not>and>or、xor>eqv(等价)>imp(蕴含)
7.多分支结构
If<表达式1>then
<语句块1>
ElseIf<表达式2>then
<语句块2>
………..
[Else
语句块n+1]
EndIf
8.情况语句
selectcase
9.循环语句
10“当型”循环
do{while|Until}
11.“直到型”循环
Do
语句1
[ExitDo]
语句2
Loopwhile|Until条件
12.循环嵌套
13.过程:
14
15参数传递:
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 语句
![提示](https://static.bdocx.com/images/bang_tan.gif)