VB第1讲 语言基础.doc
《VB第1讲 语言基础.doc》由会员分享,可在线阅读,更多相关《VB第1讲 语言基础.doc(16页珍藏版)》请在得力文库 - 分享文档赚钱的网站上搜索。
1、VB第1讲 语言基础1.1 VB的数据类型1.1.1 系统基本类型类型符前缀字节数数据范围整型Integerint2-32768-32767长整型Longlng4-单精度Singlesng4双精度Doubledbl8字节型Bytebyt10-255逻辑型Booleanbln1True -1False 0字符串Stringstr不定0-65535格字符日期型Datedtm8100.1.1-9999.11.31货币型Currencycur8对象型Objectobj4任何对象引用变体型Variantvnt不定根据实际类型 数据形式类型符常量形式VarType的返回值Integer23、-234、45
2、%&O12(8进制) &H12(16进制)vbIntegerLong45&、234&vbLongSingle-123!vbSingleDouble11.345、11.345#、0.123E-3vbDoubleStringString123 我爱VBvbString Date#2007-2-22 12:34:56#vbDateCurrency123.45、123vbCurrency 算术运算中类型的转换方向: IntegerLongSingleDoubleCurrency1.1.2 用户自定义类型 看示例,学语法。Type Student id as String name as String
3、Score As SingleEnd Type 一般定义于标准模块文件中,全局可用。 若定义于窗体中,需加Private前缀,且只能本窗体使用。1.2 常量与变量1.1.1 常量 直接常量:数值/字符/逻辑/日期常量、 符号常量(便于程序的阅读和修改)Const 符号常量名(As类型)=表达式Const PI=3.1415 Const X As Integer=5 Const R#=3.0 Const AREA=PI*R 系统常量(32类近千个常量):颜色/绘图/键码.vbBlack&H0vbRed&HFFvbGreen&HFF00vbYellow&HFFFFvbBlue&HFF0000vbM
4、agenta&HFF00FFvbCyan&HFFFF00vbWhite&HFFFFFF1.1.2 变量变量名字:用于标识内存单元。(不分大小写字母;)变量类型:明确内存单元的编码方式。显式声明Dim变量名(As 类型)Dim intX As integerDim dblA, dblB As Double Dim a As String*10, b As String隐式声明未声明的变量,其默认类型是Variant 类型类型声明字符: Integer(%), Long(&), Single(!), Double(#),Currency(), String($) 强制所有变量必须定义: Optio
5、n Explicit 1.1.3 Variant的自动类型转换 Dim Val 被声明为Variant型 Val=18 类型为字符串 Val= Val-15 类型为数值 Val=U & Val 类型为字符串 类型识别函数:VarType(.)1.3 表达式1.3.1 算符及优先级算术算符, *, /, , Mod,+, -字符算符&,+关系运算=, , =, , =, , Like逻辑运算Not, And, Or 优先级:算术算符 字符算符 关系算符 逻辑算符 同级运算从左到右,括号优先1.3.3 太灵活的表达式运算 日期型数据的加减运算 DateB - DateA DateA+N DateA
6、-N 字符串和整数/实数的随意转换 VB + 6.0: VB 6.0 VB & 6.0: VB 6.0 56.78 + 10: 66.78 56.78 & 10 : 56.78101.4 基本控制结构1.4.1 顺序结构一行可以书写多条语句,语句间用冒号“:”分割;注释以“”开始。1.4.1.1 调试学习InputBoxPrivate Sub Command1_Click() Dim strName As String * 10, strS As String * 10 strS = 输入姓名 + vbCrLf + 然后单击确定按钮 strName = InputBox(strS, 输入框)
7、Print strNameEnd Sub1.4.1.2 调试学习MsgBoxPrivate Sub Command1_Click() msg1 = 是否继续执行操作? msg2 = MsgBox函数的调用 result = MsgBox(msg1, vbOKCancel, msg2) Print resultEnd Sub1.4.1.3 学习Space、StringPrivate Sub Command1_Click() Form1.Cls Cls For i = 1 To 6 Print Space(6 - i); Print String(i, ) Next i For j = 1 To
8、5 Print Space(j); Print String(6 - j, ) Next jEnd Sub1.4.2 选择结构1.4.2.1 结构模式If 条件Then 语句If 条件Then 语句块End IfIf 条件Then 语句块1Else 语句块2End ifmaxIIf(xy, x, y) Select Case变量或表达式 Case表达式列表1 语句块 Case表达式列表2 语句块 Case Else 语句块End Select1.4.2.2 思考题求一元二次方程ax2+bx+c=0的解,要求系数a,b,c的值从键盘输入。1.4.3 循环结构1.4.3.1 结构模式For 循环变
9、量=初值 To 终值 (Step 步长)语句块 (Exit For) 语句块Next 循环变量s = 0For i = 1 To 100 Step 2 s = s + iNext iWhile 条件 语句块Wends = 0: i = 1While i = 100 s = s + i i = i + 1WendDo While 条件 语句块(Exit Do) 语句块Loops = 0: i = 1Do While i 1000 Then Exit Do i = i + 1Loop1.4.3.2 读程序、调试程序Private Sub Command1_Click() Dim n As Inte
10、ger, k As Integer For n = 1001 To 1011 For k = 2 To Sqr(n) If n Mod k = 0 Then Exit For k = k + 1 Next k If k Sqr(n) Then Print n & is prime Else Print n & is not prime End If Next nEnd Sub1.4.4 出错处理和Err对象1.4.4.1 出错处理On Error GoTo line设置错误处理的起始行号On Error Resume Next错误发生时,继续运行On Error GoTo 0取消当前过程的错误
11、处理设置Private Sub Command1_Click() On Error GoTo ErrProc Dim x As Integer x = x / (x - x) Exit SubErrProc: MsgBox 有错误End Sub1.4.4.2 Err对象 Err:应用程序中的全局对象,包含运行时错误的信息。Number属性返回最近发生的运行时错误的错误号Descripton属性返回与错误号相关联的描述性字符串Clear方法清除Err对象的错误设置Raise方法产生一个运行时错误Err.Raise Number,Source,Deseription Private Sub Com
12、mand1_Click() Err.Clear On Error GoTo ErrProc Err.Raise 6 生成一个Overflow的错误。 Exit SubErrProc: Dim msg As String msg = Error # & Err.Number & was generated by msg = msg & Err.Source & vbCrLf & Err.Description MsgBox msg, vbMsgBoxHelpButton, Error, Err.HelpFile, Err.HelpContextEnd Sub1.5 数组及应用1.5.1 静态数组
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB第1讲 语言基础 VB 语言 基础
限制150内