第3章VisualBasic程序设计基础.ppt
第第3章章 Visual Basic程序设计基础程序设计基础 n数据类型数据类型n运算符和表达式运算符和表达式n常用内部函数常用内部函数 3.1 数据类型数据类型 n3.1.1基本数据类型基本数据类型 nInteger (整型整型) % %nLong (长整型长整型) & &nSingle (单精度实型单精度实型) ! !nDouble (双精度实型双精度实型) # #nString (字符串类型字符串类型) $ $nBoolean (布尔型布尔型) nDate (日期型日期型)nVariant (变体类型变体类型)3.1 数据类型数据类型n3.1.2 常量常量 :程序运行时值不改变程序运行时值不改变 整型：整型： 12，3 ，1 长整型：长整型：-2147483640 ， 1& 单精度实型：单精度实型： 1.2, -3.4, -1.0! 双精度实型：双精度实型：-3.5e55 , -1.0# 字符串字符串: “hello world” ， “”“” 布尔型布尔型： Ture真真 ,False 假假 日期型：日期型： #10/12/2005 10:10:10#3.1 数据类型数据类型n3.1.3变量变量 n1变量的定义变量的定义：Dim 变量名变量名1 As 类型类型1, 变量名变量名2 As 类型类型2 Dim a As Integer, b As Integer 定义两个整型变量定义两个整型变量a和和bn省略数据类型则变量为省略数据类型则变量为Variant类型类型nDim a, b As Integer 定义变量定义变量a为为Variant类型，变量类型，变量b为为Integer类型类型 3.1 数据类型数据类型Private Sub Command1_Click() Dim a As Integer, b As Integer Print a a = 1 b = 2 Print a + bEnd Sub整型变量整型变量a,b初始值默认为初始值默认为0033.1 数据类型数据类型Private Sub Command1_Click() Dim a As Single, b As Single a = 1.2 b = 2.3 Print a + bEnd Sub浮点型变量浮点型变量a,b初始值默认为初始值默认为0.03.53.1 数据类型数据类型Private Sub Command1_Click() Dim s As String s = hello world Print sEnd Sub字符串变量字符串变量s初始值默认为初始值默认为“”“”空串空串hello world3.1 数据类型数据类型Private Sub Command1_Click() Dim f As Boolean Print f f = True frmInfo.Visible = f 窗体可见窗体可见End Sub布尔变量布尔变量f初始值默认为初始值默认为FalseFalse3.1 数据类型练习数据类型练习Private Sub Form_Click() Dim a As Integer, b As Integer, c As Integer Dim delta As Single Dim root1 As Single, root2 As SingleEnd Sub求二元一次方程的两个根，求二元一次方程的两个根，系数保存在变量系数保存在变量a,b,c中，中，根保存在变量根保存在变量root1,root2中，中，判别式保存在变量判别式保存在变量delta中中怎样定义变量？怎样定义变量？3.1 数据类型数据类型* *通用通用|声明声明 Dim 变量名变量名1 As 类型类型1, 变变量名量名2 As 类型类型2 3.1 数据类型数据类型* *Dim a As IntegerPrivate Sub Command1_Click() a = a + 1 Print aEnd SubPrivate Sub Command2_Click() a = a + 1 Print aEnd Sub3.1 数据类型数据类型* *Private Sub Command1_Click() Dim a As Integer a = a + 1 Print aEnd SubPrivate Sub Command2_Click() Dim a As Integer a = a + 1 Print aEnd Sub3.2 3.2 运算符和表达式算数运算符和表达式算数n算术运算符算术运算符 运算符运算符名称名称+加加-减减*乘乘/除除乘方乘方整除整除Mod 求余（取模）求余（取模）-取负取负32323 mod 29113.2 3.2 运算符和表达式算数运算符和表达式算数n写出表达式：写出表达式：b2-4acn写出表达式写出表达式 -b+delt 2ab*b-4*a*c(-b+delt)/(2*a)3.2 3.2 运算符和表达式关系运算符和表达式关系n关系运算符和关系表达式关系运算符和关系表达式 (a=2,b=3)=等于等于或或大于大于=大于或等于大于或等于=小于或等于小于或等于n运算结果运算结果:True:True或或FalseFalsea=bababa=ba=bFalseTrueFalseTrueFalseTrue3.2 3.2 运算符和表达式关系运算符和表达式关系n可以通过可以通过 表达式判断表达式判断x是奇偶是奇偶数数n当表达式为真表示当表达式为真表示 整型变量整型变量x可以可以被被2整除整除 n不能被不能被3整除的表达式整除的表达式(x Mod 2)=0(x Mod 3)03.2 3.2 运算符和表达式逻辑运算符和表达式逻辑n逻辑运算符和逻辑表达式逻辑运算符和逻辑表达式 Not非非对单个表达式的逻辑值取反，即由真对单个表达式的逻辑值取反，即由真变假或由假变真变假或由假变真And 与与两个表达式都为两个表达式都为True时时,整个表达式整个表达式的值为的值为True,否则为否则为FalseOr或或两个表达式有一个为两个表达式有一个为True时时,整个表整个表达式的值为达式的值为True,否则为否则为FalseSARS: 高烧高烧 肺部阴影肺部阴影Texi: 下雨下雨 赶时间赶时间OrAnd3.2 3.2 运算符和表达式逻辑运算符和表达式逻辑n与数学表达式与数学表达式axb对应的对应的Visual Basic表达式是表达式是_。 a=2,b=3,x=4 a=x=b 1=b True（a=x）And （x3Int(a) Int(b)复习复习n当表达式为真，表示变量当表达式为真，表示变量x是小于是小于100的的非负数非负数n当表达式为真，当表达式为真，x不可以被不可以被3或或5整除整除(0 x)And(x100)(x Mod 3)Or(x Mod 5)注意：算数非注意：算数非0逻辑逻辑True 算数算数0 逻辑逻辑False复习复习nPrint “hello” & chr(10) & “world”nDim s As String s = ZhangHua Print Len(Trim(s)helloworld8复习复习nMonth(Now)nDim s As String s = 3.2“ 定义变量保存定义变量保存s的值的平方的值的平方10Dim result As Singleresult = Val(s) 23.3 3.3 常用内部函数常用内部函数InputBoxInputBox函数函数emailAdd= InputBox(“请按照下面的默认格式请按照下面的默认格式,输入邮件地址输入邮件地址”, 邮件地址邮件地址, ) InputBox函数可以产生一个输入对话框函数可以产生一个输入对话框3.3 3.3 常用内部函数常用内部函数InputBoxInputBox函数函数nInputBox函数可以产生一个输入对话框函数可以产生一个输入对话框 emailAdd=InputBox( , , ) “请按照下面的默认格式请按照下面的默认格式”输入邮件地址输入邮件地址邮件地址邮件地址Chr(10)&nInputBox的的返回值返回值，即，即InputBox函数执行的函数执行的结果值，结果值，是一个字符串是一个字符串n单击单击 “确定确定” ，输入的内容，输入的内容n单击单击 “取消取消” ，一个空字符串，一个空字符串“”“”Dim emailAddr As StringemailAddr = InputBox(“请按照下面的默认格式请按照下面的默认格式” & Chr(10) & “输入邮件地址输入邮件地址”, 邮件地址邮件地址, ) 3.3 3.3 常用内部函数常用内部函数InputBoxInputBox函数函数3.3 3.3 常用内部函数常用内部函数InputBoxInputBox函数函数n确定：确定： emailAddr = “”n取消：取消： emailAddr = “”3.3 3.3 常用内部函数常用内部函数InputBoxInputBox函数函数n练习练习P56-6 Dim account As String accountInputBox(“输入帐号输入帐号” , “存款存款”, “123.123456789) 3.3 3.3 常用内部函数常用内部函数InputBoxInputBox函数函数n利用输入框提示输入一个正整数，在窗体利用输入框提示输入一个正整数，在窗体上输出其平方根上输出其平方根n例如：输入例如：输入4，输出，输出 4的平方根是：的平方根是：23.3 3.3 常用内部函数常用内部函数InputBoxInputBox函数函数3.3 3.3 常用内部函数常用内部函数InputBoxInputBox函数函数Private Sub Form_Click() Dim number As String Dim result As Double number = InputBox(输入正整数输入正整数, 求平求平方根方根) result = Sqr(Val(number) Print number & 的平方根是：的平方根是： & resultEnd Sub3.3 3.3 常用内部函数常用内部函数MsgBoxMsgBox函数函数n作用：作用：用于产生一个消息对话框用于产生一个消息对话框 3.3 3.3 常用内部函数常用内部函数MsgBoxMsgBox函数函数n对话框结构对话框结构3.3 3.3 常用内部函数常用内部函数MsgBoxMsgBox函数函数n常用格式常用格式1：MsgBox 提示文本提示文本n用处：用处：只做简单提示只做简单提示n例如：例如：MsgBox 除数不能为除数不能为0 3.3 3.3 常用内部函数常用内部函数MsgBoxMsgBox函数函数n常用格式常用格式2：MsgBox 提示文本提示文本,图标图标n用处：用处：只做简单提示只做简单提示n例如：例如：MsgBox 除数不能为除数不能为0, vbCritical3.3 3.3 常用内部函数常用内部函数MsgBoxMsgBox函数函数n常用格式常用格式3：MsgBox 提示文本提示文本,图标图标,标题标题n用处：用处：只做简单提示只做简单提示n例如：例如：MsgBox 除数不能为除数不能为0, vbCritical, 错误提示错误提示3.3 3.3 常用内部函数常用内部函数MsgBoxMsgBox函数函数MsgBox , , 内存不足内存不足vbCritical“系统提示系统提示3.3 3.3 常用内部函数常用内部函数MsgBoxMsgBox函数函数n常用格式常用格式4：dim answer as integeranswer=MsgBox(提示文本提示文本,图标图标+按钮组合按钮组合,标题标题)n用处：用处：MsgBox函数的返回值函数的返回值就是用户按下按钮，保存就是用户按下按钮，保存在在answer中中n例如：例如：Dim answer As Integeranswer = MsgBox( , + , )确实想退出么？确实想退出么？vbQuestionvbYesNo退出提示退出提示vbYesvbNo3.3 3.3 常用内部函数常用内部函数MsgBoxMsgBox函数函数Private Sub cmdExit_Click() Dim answer As Integer answer = MsgBox(“确实想退出么确实想退出么?”, vbYesNo + vbQuestion, 退出提示退出提示) If answer = vbYes Then End End IfEnd Sub
