华南理工大学VB期末复习.ppt

2011年6月28日15 00 17 00课室 A2105工业设计及重修生A3401会计1班A3402会计2班闭卷考试带学生证 校园卡备查 考试题型 填空题选择题阅读程序写出结果程序填空题程序设计题 常量 变量和数据类型是程序设计语言所包含的元素 注意vb常用的数据类型 占字节数 表示形式以及操作方式 常量 即保持不变的数值 变量 即可以随时在程序中改变的数值 变量在使用之前需要先说明 有3种方式 显式说明 隐式说明和强制显式说明 例 ConstB 3B 4PrintB 例 OptionExplicitDimaasstring 3Dimx c d y e Staticnumaslongdimname1asvariant 第2章基本数据类型与表达式 出错提示 运算符与表达式 一个表达式可能含有多种运算 表达式的运算顺序 函数运算 算术运算 关系运算 逻辑运算括号优先 同级将从左到右进行运算 逻辑运算 not and or xor eqv imp 给出表达式后求值或者根据描述写出表达式 例 已知x 2 y 4 z 6求表达式 not x y orx y z 50and100 z y的值 xmod3 0andxmod4 0 例 设x即能被3整除 也能被4整除 写出表达式 True X B 例 设x小于等于a 或者大于等于b 写出表达式 例 把数学式子写成vb表达式 Sin 15 3 14159 180 Sqr x y 常用内部函数可以通过分类来记忆 转换函数 数学函数 字符串函数 时间 日期函数和随机函数 了解函数的功能 参数的格式以及函数值的数据类型 例 生成某个范围内的随机整数Int 99 10 1 Rnd 10 Int 90 Rnd 10 10到99Int 9 0 1 Rnd 0 Int 10 Rnd 0到9 1位随机整数Int 9 1 1 Rnd 1 Int 9 Rnd 1 1到9Int 100 0 1 Rnd 0 Int 101 Rnd 0到100 顺序结构分支结构循环结构 第3章程序流程控制 例 Combo1 List 0 王中强 学生 Text1 fontsize hscroll1 valueX InputBox 输入半径 输入信息 10 2000 3000 Y MsgBox 继续吗 vbYesNo 提示信息 Y MsgBox 继续吗 4 提示信息 MsgBox 输入完成 顺序结构语句 赋值语句 数据输入 数据输出 对象的方法语句 注释 结束 暂停语句等 输出语句 Print注意 输出对象 输出某控件对象的属性值 Picture1 Print 学生 list1 list 3 Printlabel1 captionPrinttext1 textPrintcombo1 textPrintcombo1 list 4 Print注意数据项的分隔符 语句末尾符号 格式化函数 Form1 Print 汉字 Tab 6 abcde Spc 1 123456678 Print s1 50 Print s2 30PrintFormat 1234 5 元 PrintFormat 1234 5 000 000 00 元 PrintFormat 1234 5 0 00元 单分支IF Then语句双分支IF Then Else语句多分支IF Then Elseif 语句多分支情况SelectCase语句IF语句的嵌套 无论分支多少 仅选其一执行 分支结构语句 注意 单行结构与块结构写法的区别 Ifname admin Thenmsgbox 通过 X 1Endif Ifname admin Thenmsgbox 通过 X 1 For Next语句While Wend语句Do Loop语句DoWhile Loop语句DoUntil Loop语句Do LoopWhile语句Do LoopUntil语句嵌套循环不能交叉 循环体的算法 进入循环的条件 结束循环的条件 循环结构语句 Dowhilea true loop Dountila false loop Whilea true Wend PrivateSubCommand1 Click Dimi j s fori 1to3s 1forj 1tois s s jnextjprintsnextiEndsub 例1 2 26 2624 PrivateSubForm Click Dimi x y Fori 1To4x i i 2SelectCasexCase6 18y x 2 6Case10To15y x xCaseis 18y x 2CaseElsey 0EndSelectPrint x x y yNextEndSub 例2 PrivateSubForm Click Dimx y X inputbox 输入准考证号 Ifx 1001andx 1140thenSelectCasexCase1001to1052y 101 Case1053to1110y 102 例3 多分支情况SelectCase语句的应用 学生考试 输入准考证号 能查出相应课室号码 已知考生考试课室安排如下 Case1111To1140y 103 EndSelectPrint 准考证号 x 考试教室 yElsePrint 准考证号输入错误 EndIfEndSub 第4章常用控件 窗体是VB应用程序中的顶层对象 窗体上的控件是子对象 窗体是父对象 窗体事件被触发的顺序 开始 Initialize Load Activate结束 QueryUnLoad UnLoad Terminate方法 print cls move show等 引用时 当前窗体可以省略窗体名 16种控件 常用属性 常用事件 支持的方法 属性的设置 属性窗口设置和用赋值语句设置 每种控件用来干什么的 涉及到的重要属性有哪些 常用事件 什么时候 什么动作会触发该事件 在什么事件中写过程代码 控件的方法 注意写法 对象的名称 方法 例 指定文本框text1接受数据输入 Text1 SetFocus 例 在图片框输出 Picture1 Print 本章的实验作业 例1 设计一个计时程序 用户单击command1按钮 计时开始 在文本框中显示秒数 单击command2按钮 则计时停止 OptionExplicitDimiAsIntegerPrivateSubForm Load Timer1 Interval 1000Timer1 Enabled FalseText1 FontSize 20Text1 Text EndSub PrivateSubCommand2 Click Timer1 Enabled FalseEndSub PrivateSubCommand1 Click i 0Timer1 Enabled TrueEndSub 计时器开始工作 计时器停止工作 PrivateSubTimer1 Timer i i 1Text1 Text iEndSub 例2 模拟秒表计时程序 OptionExplicit PrivateSubForm Load Command2 Enabled FalseText1 Text Text2 Text Text3 Text EndSubPrivateSubCommand1 Click time1 Now 当前系统时间Text1 Text Format time1 hh mm ss Text2 Text Text3 Text Command1 Enabled Command2 Enabled EndSub Dimtime1Asvariant False True PrivateSubCommand2 Click Dimtime2AsvariantDimtime3AsVarianttime2 Nowtime3 time2 time1Text2 Text Format time2 hh mm ss Text3 Text Format time3 hh mm ss Command1 Enabled TrueCommand2 Enabled False 单击后按钮不可用EndSub 使用数组先说明 定义数组的名称 维数和数组元素的数据类型 元素的个数和位置由下标决定 第5章数组与记录 例 A 3 AsIntegerB 1to2 2to2 AsDouble 实际中通过输入数组元素的个数来确定数组的大小 就要先定义一个可调数组 当确定了数组的大小后重定义数组 例 Dims asinteger n inputbox 输入n Redims 1ton 2维数组M N元素的输入 Fori 1Tom 外层循环 行Forj 1Ton 内层循环 列s i j InputBox s s i j Nextjprint 换行Nexti 应用 在一维数组中求最小值 最大值 排序 求和等等 在二维数组中求和 求平均值 判断数组元素的大小等 PrivateSubCommand1 Click Dimx 1To8 AsIntegerDimi j t min Randomize 随机数列初始化Fori 1To8 用随机数初始化数组 10至99x i Int 90 Rnd 10NextiFori 1To8Printx i 输出一行原始序列NextIPrint 换行 例 编写一个事件过程 使用随机函数产生8个两位整数放在一维数组X中 输出原始序列 对数组中的数据用选择排序法从小到大顺序排列并输出结果 Fori 1To7 对数组排序t iForj i 1To8 寻找最小元素Ifx j iThen 交换数组元素min x i x i x t x t minEndIfNextiFori 1To8 输出排序后序列Printx i NextIPrint 换行EndSub PrivateSubCommand1 Click Dima 1To9 AsIntegerDimb 1To3 1To3 AsIntegerDimi j Fori 1To9a i iNextiFori 1To3Forj 1To3b i j a i j Ifj iThenPrintb i j NextjPrintNextiEndSub 例 写出结果 1 a 1 1a 2 2 a 9 9 b 1 1 1 b 1 2 2 b 1 3 3 b 2 1 2 b 2 2 4 b 2 3 6 b 3 1 3 b 3 2 6 b 3 3 9 12 124 1243 12436 答案 124369 2 在过程中说明变量或数组为记录类型 Dimxasydy 一行数据Dims 1to10 asydy 一张表数据 自定义记录类型 1 定义记录类型 PrivateTypeydynoAsIntegerxyAsString 5cjAsIntegerEndType 运动员号学院成绩理学院12 5理学院12 3化工学院12 6信息学院13 1法学院12 5文学院12 1化工学院14 2理学院11 8 3 使用记录变量或记录数组时要采用记录元素 Printx no x xy x cj s 1 no s 2 no s 1 xy 调用 CallAre Ch Kw 或者Arex y 第7章过程 子过程 PrivateSubAre x byvaly EndSub PublicFunctionfact Byrefn AsLong fact EndFunction 函数过程 调用例如 Print 结果 fact 3 fact 5 注意复习讲课例子及实验练习 例 在窗体上打印图案 要求用子过程实现打印一个三角形图案 在command1 chick 事件过程中调用两次子过程来实现整个图案的打印 分析 子过程的两个形参 打印字符str打印行数n PrivateSubtr ByValStr ByValn DimIAsInteger JAsIntegerForI 1Ton 打印n行ForJ 1ToI 每行打印字符PrintStr NextJPrint 换行NextIEndSub PrivateSubCommand1 Click tr 3 调用子过程tr 5 调用子过程EndSub PrivateSubtr ByValStr ByValn DimIAsInteger JAsIntegerForI 1Ton 打印n行ForJ 1Ton 1 i 每行打印字符PrintStr NextjPrint 换行NextIEndSub PrivateSubCommand1 Click tr 3 调用子过程tr 5 调用子过程EndSub PrivateSubtr ByValStr ByValn DimIAsInteger JAsIntegerForI 1Ton 打印n行PrintTab n 1 i 定位ForJ 1To2 i 1 每行打印字符PrintStr NextJPrint 换行NextIEndSub PrivateSubCommand1 Click tr 3 调用子过程tr 5 调用子过程EndSub 例 程序填空题 下面程序由一个事件过程Form click 和一个自定义函数过程Mean 组成 事件过程的功能首先是产生由前N个自然数的平方所组成的数组 D 1 1 1D 2 2 2D 2 2 2 D N N N并求出数组元素的算术平均值 在窗体上输出 求平均值由自定义函数过程Mean 完成 该函数的参数为数组D PrivateSubFo