杜立业复习-第三章.ppt

第三章,复习贴,Visual Basic数据类型,Visual Basic 数据类型,数值型数据 字符型数据 布尔型数据 日期型数据 可变型数据 对象型数据,单精度 双精度,定常字符串 变长字符串,整形 实型 货币型 字节型,True False,Visual Basic数据类型,在使用和定义数据时，需要注意： 1.如果数据包含小数，则应使用单精度、双精度或者货币型； 2.所有的数值变量都可以相互赋值，将实型数据赋值给整型时，VB自动将小数部分四舍五入。,变量,变量的命名规则: (1) 标识符必须以字母（AZ，az）开头，后跟字母（AZ，az）、数字（09）、或下划线。 (2) 标识符的长度不能超过255 个字符，控件、窗体、类和模块的名字不能超过40个字符。 (3) 自定义的标识符不能和Visual Basic 中的运算符、语句、函数和过程名等关键字同名，同时也不能与系统已有的方法和属性同名。 (4) 在同一范围内必须是惟一的。 (5) VB中不区分变量名的大小写，例如，XYZ、xyz、xYz等都认为指的是同一个变量名。为了便于区分，一般变量首字母用大写字母，其余用小写字母表示。常量全部用大写字母表示。 (6) 为了增加程序的可读性，可在变量名前加一个缩写的前缀来表明该变量的数据类型。,变量,变量的声明 显式声明 Dim |Private|Public|Static变量名 AS 类型 或 Dim 变量名类型符 隐式声明 强制显示声明 Option explicit,常量,系统常量 系统预定义的常量 直接常量 符号常量 Const 符号常量名As类型=表达式 ,常量名=表达式 常量一旦声明，在其后的代码中只能引用，不能改变，即只能出现在赋值号的右边，不能出现在赋值号的左边。,运算符和表达式,算数运算符 字符运算符 关系运算符 逻辑运算符 算术运算符字符运算符关系运算符逻辑运算符,常用内部函数,数学函数、转换函数、字符串函数 日期函数、格式输出函数等,Sin(x) Cos(x) Fix(x) Int(x) Rnd(x),Asc(c) Chr(n) Val(c) Str(n) Lcase(c) Ucase(c),Left(str,n) Mid(str,m,n) Ltrim(str) Len(str) Instr(n,str1,str2),例：如果一个变量未经定义就直接使用，则该变量的类型为（） A. Integer B. Byte C. Boolean D. Variant 例：设x=4, y=8, z=7, 以下表达式的值为？ x z ) or z x A. 1 B. 0 C. True D.False,例：表达式“Fix(-32.68) + Int(-23.02)”的计算结果为（） 例：下面4项中，合法的字符常量是？ A. THIS $ B. ”THIS” C. THIS D. THIS,例：执行以下程序段后，变量c$的值为？ private sub command1_click() a$=“Visual Basic Programming” b$=“Quick” c$=b $ & UCase(mid(a$,7,6) & right(a$,11) Visual BASIC Programming Visual Basic Programming Quick Basic Programming Quick BASIC Programming,例：数学表达式 在VB中应写为？ 例：将任意一个两位数n的个位数与十位数对换的VB表达式为？,顺序结构,VB程序设计有三种基本结构： 顺序结构、条件(选择)结构、循环结构 程序设计基本模块(代码部分)： 1.变量定义 2.数据输入部分 3.数据存储及运算 4.数据输出部分,顺序结构,输入：inputbox 格式： InputBox(提示，标题，默认，x坐标位置，y坐标位置) 输出：print、msgbox Print 方法用于在窗体、立即窗口、图片框、打印机等对象中显示文本字符串和表达式的值。 Msgbox过程： MsgBox 提示，按钮，标题 Msgbox函数：变量=MsgBox (提示，按钮，标题) 按钮=按钮类型+图标类型+默认按钮+模式,顺序结构,例：用inputbox函数设计的对话框，其功能是（） A.只能接收用户输入的数据，但不会返回任何信息 B.能接收用户输入的数据，并能返回用户输入的信息 C.既能用于接收用户输入的信息，又能用于输出信息 D.专门用于输出信息,顺序结构,例：在窗体中添加一个命令按钮，并编写如下程序： private sub command1_click() a=inputbox(“a=?”) b=len(a) print b end sub 运行程序，在inputbox中输入“she is a girl!”，运行结果为？ A. 14 B. she is a girl! C. 10 D. 3,顺序结构,例：下列msgbox函数使用格式有误的是（） A. msgbox “这是一种” B. c=msgbox (“这是第二种” , 0 , “测试”) C. c=msgbox “这是第三种” , vbokonly , “测试” D. c=msgbox(“这是第四种”),选择结构,IF语句 单分支 双分支 多分支 嵌套,Select Case Select Case 变量或表达式 Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 Case Else 语句块n+1 End Select,Case语句 1.枚举表达式 case 1,3,5 2.某一范围 case 1 to 20 3.关系表达式 case is = 0,选择结构,例： Private sub command1_click() A=inputbox(“a=?”) b=inputbox(“b=?”) S=1 T=1 If a0 then S=s+1 End if If ab then print “t=”;t T=s+1 end sub Else if a=b then t=5 else t=2*s end if End if,为了使t=4，a和b的取值范围？,选择结构,例： Private Sub Command1_Click() Dim x As Integer x = Int(Rnd(20) + 5) If x = 1 Then Print “你好“ ElseIf x = 2 Then Print “早上好“ ElseIf x = 3 Then Print “中午好“ ElseIf x = 4 Then Print “下午“ Else Print “晚上好“ End If End Sub,选择结构,例： Private Sub Command1_Click() s = Val(text1.Text) Select Case s Case Is 5 y = s + 1 Case Is 10 y = s + 2 Case Else y = s + 3 End Select print y End Sub,若向文本框输入20，则输出结果是？,选择结构,例：以下程序段对应的函数表达式是： x = InputBox(“enter an integer“) x = CInt(x) Select Case x Case Is 15 y = 3 * x + 1 End Select,循环结构,形式 For 循环变量初值 to 终值 Step 步长 语句块 Exit For 语句块 Next 循环变量,除了初次，每次循环变量的值=？ 循环次数 循环结束条件 循环结束后循环变量的值,循环结构,形式 For 循环变量初值 to 终值 Step 步长 语句块 Exit For 语句块 Next 循环变量,除了初次，每次循环变量的值=？ 步长取值与初值、终值关系？ 循环次数 循环结束条件 循环结束后循环变量的值,循环结构,DoLoop循环 Do While|Until 语句块 Exit Do 语句块 Loop,DoLoop循环 Do 语句块 Exit Do 语句块 Loop While|Until ,循环结构,例：下面的程序执行后，x的值为（） a=10 : b=0 do while a-b a=a-1 b=b+1 x=x+a+b loop,循环结构,例：在窗体上画一个命令按钮，然后编程： Private Sub command1_click() For i=2 to 4 for j=0 to i-2 s=s+2 next j next I print s End sub,运行程序后，单击命令按钮，输出结果是：,循环结构,例：有如下事件过程 Private Sub command1_click() B=10 Do until b=-1 a=inputbox(“a=?”) a=val(a) b=inputbox(“b=?”) b=val(b) a=a*b Loop Print a End sub,运行程序后，依次输入数值30、20、10、-1，输出结果为？,循环结构,例：以下程序段能正常退出循环的是（） A. x=10 do while x=10 x=x+1 loop C. x=10 do x=x-1 loop until x5,B. x=10 do x=x+1 loop while x10 D. x=10 do until x=0 x=x-3 loop,循环结构,例：以下用于计算 请将程序补充完整 N=inputbox(“请输入大于0的偶数”) s=0 i=1 C=1 do s= c= i=i+1 Loop while i=N Print s,循环结构,例：以下程序的功能是：生成20个200300之间的随机整数，输出其中能被5整除的数并求出它们的和。 Private sub command1_click() for i=1 to 20 x=int( *200+100) if =0 then print x s=s+ end if next I print “sum=”;s End sub,循环结构,课本P92，打印杨辉三角,数组,数组是一组具有有序下标的相关数据形成的元素集合，可以用统一的名称和确定的下标来引用数组元素。 Dim (,) As 1.下标范围 2.下界省略 3.元素个数、元素引用 4.元素数据类型 5.元素赋值 6.打印数组,数组,数组,静态数组,动态数组,dim,static,Dim () as redim preserve (to ) Redim可多次使用,控件数组,1.创建 2.数组名-控件的name 3.数组元素下标-控件的index,数组,例：设有声明语句： Dim b(-1 to 10, 2 to 9, 20) as integer 则数组b中全部元素的个数 为（） A. 2310 B.2016 C.1500 D.1658,数组,例：以下程序段的输出结果是： dim a(3,3) ,i, j , s, n n=1 For i=0 to 2 for j=0 to 1 a(i,j)=n n=n+1 next j Next i,For i=1 to 2 for j=0 to i s=s+a(i,j) next j Next I A.18 B.19 C.20 D.21,例：以下程序段中数组a中的10个数已按升序排好，又输入一个x，如果x在数组a中，则将其从数组中删除，删除后需将后面的数据依次向前移动一个位置，如果x不在数组中，则显示“未找到”，将程序补充完整。 Private Sub Form_Click() Dim a(10) For i = 1 To 10 a(i) = 2 * i Print a(i); Next i Print x = Val(InputBox(“请输入x“) For i = 1 To 10 If Then Exit For End If Next i,If i 11 Then For j = i To 9 Next j a(j) = 0 Else MsgBox “数据没有找到“ End If For i = 1 To 10 Print a(i); Next i End Sub,数组,1、在窗体上用复制、粘贴的方法建立一个命令按钮数组，数组名为M1。设窗体Form标题为“myform1”，双击控件数组中的第三个按钮，打开代码编辑器，写下如下代码： Private Sub M1_Click(Index As Integer) Form1.Caption = “No3“ End Sub 运行时，单击按钮数组中的第一个按钮，窗体标题为： A、Form B、M1 C、myform1 D、No3,函数、子过程,1.定义,Private | Public Function （）As 函数名=返回值 Exit Function End Function,Private | PublicStatic Sub （） Exit Sub End Sub,函数、子过程,函数过程与子过程的不同： 1.定义语句的不同 函数:function开头end function结束 子过程:sub开头end sub结束 2.返回值方式不同 函数利用函数名返回值 子过程利用参数传递返回值 3.调用方式不同 函数:变量名= (实参列表) 子过程:call(实参列表),函数、子过程,函数、子过程中的参数包括形参、实参 参数传递的方式分为地址传递和值传递,函数、子过程,在窗体上画一个命令按钮，编写下列程序,输出结果为？ Private s