资源描述：
《VB第1讲_语言基础》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、VB第1讲语言基础1.1VB的数据类型1.1.1系统基本类型类型符前缀字节数数据范围整型Integerint2-32768-32767长整型LongIng4-2147483648-2147483647单精度Singlesng4双精度Doubledbl8字节型Bytebyt10-255逻辑型Booleanbln1True-1False0字符串Stringstr不定0-65535格字符日期型Datedtm8100.1.1-9999.11.31货币型Currencycur8对象型Objectobj4任何对象
2、引用变体型Variantvnt不定根据实际类型数据形式类型符常量形式VarType的返回值Integer23、-234、45%&012（8进制）&H12（16进制）vblntegerLong45&、234&vbLongSingle-123!vbSingleDouble11.345、11.345#、0.123E-3vbDoubleString/zStringl23z，〃我爱VB〃vbStringDate#2007-2-2212:34:56#vbDateCurrency123・45@、123@vbCurr
3、ency算术运算中类型的转换方向：Integer—Long—Single^DoublefCurrency1.1.2用户自定义类型看示例，学语法。TypeStudentidasStringnameasStringScoreAsSingleEndType一般定义于标准模块文件中，全局可用。若定义于窗体中，需加Private前缀，且只能本窗体使用。1.2常量与变量1.1.1常量直接常量：数值/字符/逻辑/日期常量、符号常量（便于程序的阅读和修改）Const符号常量名（As类型）二表达式ConstPI二3.1
4、415ConstXAsInteger二5ConstR#二3.0ConstAREA二PI*R系统常量（32类近千个常量）：颜色/绘图/键码•…vbBlack&H0vbRed&HFFvbGreen&HFF00vbYellow&HFFFFvbBlue&HFF0000vbMagenta&HFF00FFvbCyan&HFFFF00vbWhite&HFFFFFF1.1.2变量变量名字：用于标识内存单元。(不分大小写字母；)变量类型：明确内存单元的编码方式。显式声明Dim变量名(As类型)DimintXAsinte
5、gerDimdblA,dblBAsDoubleDimaAsString*10,bAsString隐式声明未声明的变量，其默认类型是Variant类型类型声明字符：Integer(%),Long(&),Single(!),Double(#),Currency(@),String($)强制所有变量必须定义:OptionExplicit1.1.3Variant的自动类型转换DimVaiVai二〃18〃Vai二Val-15Vai二〃U〃&Vai被声明为Variant型类型为字符串类型为数值类型为字符串类型识别
6、函数：VarType(・・・)1.3表达式1.3.1算符及优先级算术算符八，,Mod,+,-字符算符&,+关系运算=,>,>=,<,<=,<>,Like逻辑运算Not,And,Or优先级：算术算符>字符算符>关系算符〉逻辑算符同级运算从左到右，括号优先1.3.3太灵活的表达式运算日期型数据的加减运算DateB-DateADateA+NDateA-N字符串和整数/实数的随意转换〃VB〃+〃6.Oz/：Z/VB6.0〃〃VB〃&”6・0〃：6.0〃56.78+〃10〃：66.7856.78&10:〃56
7、・7810〃1.4基本控制结构1.4.1顺序结构一行可以书写多条语句，语句间用冒号“：”分割;注释以“”开始。1.4.1.1调试学习InputBoxPrivateSubCommand1_Click()DimstrNameAsString*10,strSAsString*10strS=〃输入姓名〃+vbCrLf+〃然后单击确定按钮〃strName=InputBox(strS,〃输入框〃)PrintstrNameEndSub1.4.1.2调试学习MsgBoxPrivateSubCommandlClickO
8、msgl=〃是否继续执行操作？〃msg2="MsgBox函数的调用〃result=MsgBox(msgl,vbOKCancel,msg2)PrintresultEndSub1.4.1.3学习Space>StringPrivateSubForm1.CisCommand1Click()'CisFori=1To6PrintSpace(6-i);PrintString(i,“•“)NextiForj=1To5PrintSpace(j):PrintString(6
