版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、复 习编码基础 ¡ VB代码不区分字母的大小写 ¡ 一行可书写几句语句,之间用冒号分隔;¡ 一句语句可分若干行书写,用续行符(空格下划线)连接¡ Rem开始 或 单撇 VB常用数据类型 变量和常量的命名规则 变量:在程序运行中其存储的值可以改变。 常量:在程序运行中其值不可以改变。¡ 以字母或汉字开头,后可跟字母、数字或下划线组成,长度小于等于40个字符;¡ 不能使用VB中的关键字;¡ VB中不区分变量名的大小写例如:1)a bc 2)print_65 3)12bc 4)x-y5)x%y 6)abs 7)mn% 8)int变
2、量声明 ¡ Dim 变量名 AS 类型 ¡ Dim iMark As integer , sTotal As single ¡ Dim iItem%¡ 注意: 在通用声明处加 Option Explicit 语句来强制显式声明变量 常量声明¡ Const 常量名 AS 类型 = 表达式¡ 例 Const MAX=100¡ Const MIN As Integer =&H13A算术运算符例:求表达式5+10 mod 10 9 / 3 +2 2值字符串运算符¡ 、+ 字符串连接 " 123 "
3、; + " 456 " 结果 " 123456 " " 123 " & " 456 " 结果 " 123456 "¡ 区别:+ 两边必须是字符串,& 不一定 "abcdef" & 12345 ' 结果为 "abcdef12345 " "abcdef " + 12345 ' 出错 "123" & 456 ' 结果为" 123456 "
4、 “123” + 456 ' 结果为 579¡ 注意: "123 " + True ' 结果为 122 关系运算符¡ 将两个操作数进行大小比较,结果为逻辑量。¡ 字符串比较,则按字符的ASCII码值从左到右一一比较,直到出现不同的字符为止.。 例: " ABCDE " > " ABRA " 结果为 False 逻辑运算符 ¡ 将操作数进行逻辑运算,结果是逻辑值表达式Ø 组成:变量、常量、函数、运算符和圆括号Ø 书写规则¶ 运算符不能相邻。例a+
5、 -b是错误的。¶ 乘号不能省略。例x 乘以y 应写成:x*y。¶ 括号必须成对出现,均使用圆括号。¶ 表达式从左到右在同一基准上书写,无高低、大小。表达式书写举例a*b*c*d/e/f/g 或 a*b *c*d/(e*f*g) sin(45*3.14/180)+(exp(10)+log(10)/sqr(x+y+1)3<=x And x <=7常用内部函数 1. 数学函数 Rnd函数返回0和1(不包括0和1)之间的双精度随机数. 产生nm的随机整数: Int(Rnd *(m-n+1)+n 取整函数: Int Fix Round 符号函数:Sgn2. 转
6、换函数Chr$(Asc ("G") "G"Ucase$("abcdefg") "ABCDEFG“Asc $(Chr(65) 65StrVal3. 字符串操作函数 Left$("ABCDEFG",3) "ABC" Mid$("ABCDEFG",2,3) "BCD " Right$("ABCDEFG",3) " EFG" Len$("ABCDEFG") 7 InStr(2, "AB
7、CDEFG", "EF") 5赋值语句 ¡ 形式:变量名表达式 ¡ 作用: 将表达式的值赋值给变量名。 一般用于给变量赋值或对控件设定属性值。¡ 注意:Ø 赋值号左边只能是变量,不能是常量或表达式Ø 不能在一个语句中同时给多个变量赋值数据输入函数InputBoxInputBox(提示信息,窗口标题) 通常用于赋值语句。产生一个对话框,供用户输入信息,并返回一个字符型的值,赋给一个变量。MsgBox函数和MsgBox过程 函数形式:变量% = MsgBox(提示,按钮,标题) 过程形式:MsgBox 提示,按钮,标题
8、选择结构 1. IfThen语句(单分支结构)If <表达式> Then语句块End If或 If <表达式> Then <语句>Ø 例:已知两个数x和y,比较它们的大小,使得x大于y.2. IfThenElse语句(双分支结构)If <表达式> Then<语句块1>Else<语句块2>End If或 If <表达式> Then <语句1> Else <语句2>Ø 例:已知两个数x和y,求两个数中的大者. 3. IfThenElseIf语句(多分支结构) If <
9、;表达式1> Then <语句块1>ElseIf <表达式2>Then <语句块2> Else 语句块 n+1 End If¡ 不管有几个分支,当某条件满足,执行相应的语句块,其余分支不再执行.4. Select Case语句(情况语句)Select Case 变量或表达式 Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 Case Else 语句块n+1 End Select5. 条件函数(IIf函数) IIf (条件, 表达式1,表达式2) 先求出两个表达式的值。当条件成立时,函数值为表达式1的值;条件不成立时,函数值为
10、表达式2的值。Ø 例:求x,y中大的数,放入Tmax变量中循环结构1. For循环语句 (一般用于循环次数已知)For 循环变量初值 to 终值 Step 步长 语句块Exit For 步长 >0 初值<终值 语句块 =1 时,可省略Next 循环变量 <0 初值>终值 =0 死循环循环次数=Int(终值-初值)/步长+1) 执行循环结构 For i=30 To 10 Step 3 Print "a"Next i 将输出_个a。 计算的近似值公式为其中n值由文本框读入。阅读程序并填空, Result是标签框的名称 。Private Sub
11、Command1_Click() Dim sum As Double, pi As Double Dim i As Integer, n As Integer n = Val(Text1.Text) For i = 1 To n sum = sum + _(1)_ Next i pi = _(2)_ Result.Caption= "pi近似值为:" & Str(pi)End Sub2. DoLoop循环语句(用于控制循环次数未知)形式1: 形式2:Do While|Until <条件> Do 语句块 语句块Exit Do Exit Do语句块 语句块L
12、oop Loop While|Until <条件>3. 循环的嵌套 一个循环体内又包含了一个完整的循环结 构称为循环的嵌套.例:打印九九乘法表For i = 1 To 9 For j = 1 To 9 se = i & "×" & j & "=" & i * j Picture1.Print Tab(j - 1) * 9 + 1); se; Next j Picture1.PrintNext i对于循环的嵌套,要注意以下事项:§ 内循环变量与外循环变量不能同名;§ 外循环必须完全包
13、含内循环,不能交叉;§ 不能从循环体外转向循环体内,反之则可以。¡ Private Sub Command1_Click()Dim sum As Double, x As Doublesum = 0: n = 0For i = 1 To 5x = n / i: n = n + 1: sum = sum + xNextEnd Sub数组 一. 静态数组及声明形式: Dim 数组名(下标1,下标2) As 类型声明了数组的维数、大小、类型维数:几个下标为几维数组下标: 下界 To 上界 ;省略下界为0 ,必须为常数每一维大小: 上界下界+1数组大小: 每一维大小的乘积例:Dim
14、 mark(1 to 100) As IntegerDim a( 0 To 3, 0 To 4) As Long 共有 4×5个元素等价于: Dim a(3, 4) As Long注意:1. 下界缺省为0 ,也可在重新定义数组的下界。例如: Option Base 12. 在数组声明中的下标说明了数组的整体,即每一维的大小;而在程序其他地方出现的下标表示数组中的一个元素。两者写法形式相同,但意义不同。例如:Dim x(10) As Integer ' 声明了x数组有11个元素x(10)=100 ' 对x(10)这个数组元素赋值动态数组及声明在程序执行时分配存储空间。方
15、法: (1)在过程外使用Dim、Private或Public语句声明括号内为空的数组(2)在过程中用ReDim语句指明该数组的大小Dim sArray( ) As SingleSub Form_Load( )ReDim sArray(4,8)End Sub注意:(1)ReDim中的下标可以是常量,也可以是有确定值的变量.(2)在过程中可多次使用ReDim改变数组的大小,或维数.(3)每次用ReDim会使原数组的值丢失,可以在ReDim语句后加Preserve参数来保留数组中的数据.数组元素的输入、输出(1)用循环 For i = 1 To 10 iA(i)=0:Print iA(i); &qu
16、ot; " Next i (2) Array函数 Dim ib As Variant ib = Array("abc", "def", "67") For i = 0 To UBound(ib) Print ib(i); " " Next i注意:Ø 利用Array对数组各元素赋值,声明的数组是可调数组或连圆括号都可省,并且其类型只能是Variant。Ø 数组的下阶为零,上界由Array函数括号内的参数个数可决定,也可通过函数Ubound获得。数组的应用¡ 求最大值最小值
17、161; 数组的查找、插入和删除¡ 排序:冒泡排序和选择排序过程 Ø 三种自定义过程¶ 子过程(Sub Procedure)Sub过程没有返回值¶ 函数过程(Function Procedure)Function过程返回一个值¶ 属性过程(Property Procedure)自定义函数过程定义 Function 函数名 (参数列表) As 数据类型 函数名=表达式 End Function ¡ 特点:函数名有值,有类型,在过程体内至少赋值一次。Function过程调用函数名(实际参数列表)注意:函数在定义和使用时,无论是否有参数,圆
18、括号一定不能省。特点:不能独立存在,必须参加表达式的运算自定义子过程的定义格式: Sub 子过程名(形式参数表) 过程体 End Sub特点:子过程名无值,无类型自定义子过程的调用¡ 格式1 子过程名 实际参数列表¡ 格式2 Call 子过程名(实际参数列表)特点:一句独立的语句注意:格式1中的实际参数列表无需圆括号注意:(1)参数列表称为实参或实元,它必须与形参保持个数相同,位置与类型一一对应。(2)当参数是数组时,形参与实参在参数声明时应省略其维数,但括号不能省。(3)调用子过程的形式有两种,用Call关键字时,实参必须加圆括号括起,反之则全无。参数传递 Ø
19、指主调过程的实参传递给被调过程的形参。Ø 传址:形参得到的是实参的地址,当形参值的改变同时也改变实参的值。其形式参数前加ByRef关键字界定或缺省。Ø 传值:形参得到的是实参的值,形参值的改变不会影响实参的值。其形式参数前加ByVal关键字界定Ø 实参为数组时为传址,实参为表达式时为传值。Sub Add(x%, y%) x = x + 2 y = y + 3 Print "x=" x, "y=" yEnd SubPrivate Sub Command1_Click() a% = 10: b% = 20 Call Add(a
20、+ 1, b) Print "a=" a, "b=" bEnd Sub1.递归的概念 用自身的结构来描述自身就称为“递归”。例如对阶乘的定义: 2. 递归过程 过程在自身定义的内部调用自己。编fac(n)=n! 的递归函数 Function fac(n As Integer) As Integer If n = 1 Then fac = 1 Elsefac = n * fac(n - 1) End If End Function控件基本的属性 Ø Name名称 :¶ 所有控件对象都具有的属性Ø Enabled:¶
21、控件是否可操作. 当设置为false时,呈暗淡色,禁止用户进行操作. Ø Visible属性:¶ 控件是否可见.当设置为false时, 用户看不到,但控件本身存在 Ø Height、Width、Top和Left属性Ø Caption 标题属性¶ 该属性决定了控件上显示的内容常用控件¡ 标签 Label 用于显示文本(输出)信息,不能作为输入信息的界面。标签是没有焦点的。¡ 文本框 TextBox 是一个文本编辑区域,可在该区域输入,编辑和显示正文内容。¡ 命令按钮CommandButton接受用户输入的命令¡ 文本框(TextBox) 基本属性:¡ Text : 正文内容 ¡ Maxlength: 设置正文的最多字符个数¡ MultiLine: 是否为多行,默认一行. FALSE ¡ ScrollBars: 当MultiLine为True时,该属性才有效,表示滚动条的形式 ¡ PassWord :口令字符; Text属性返回输入的数据,屏幕显示该字符¡ SelStart,SelLength,SelText : 选中文本的起始、长度、内容 &
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 2024年度党组织结对共建协议
- DB11∕T 1721-2020 水生生物调查技术规范
- 2024精制陶瓷购销协议样本
- 二手车销售协议范本(个性化)
- 2024年煤矿作业自卸运输车销售协议
- 2024水利建设施工协议规范文本
- 2024年度企业人力外包协议模板
- 成年子女父母离异协议书2024年
- 2024厂长职务劳动协议范本
- 2024年房产交易化买卖协议范本
- 淘宝品牌授权书
- 《有机化学》课程教案
- 建筑工程专业中级职称考试试题及答案解析精编
- 传统文化融入思政课教学探究
- 神经科护士的职责和工作范围
- 远大住工-装配式建筑发展现状和技术标准
- 打造机关文化方案
- 贵州省贵阳市2022-2023学年高一上学期期末监测地理试题(含答案)
- 钢结构质量控制要点与管理
- 江西省2023年高等职业院校单独招生考试-江西电力职业技术学院-样卷
- 《体育课堂常规》课件
评论
0/150
提交评论