计算机VB二级考试第7次课程ppt课件.ppt

1 2009年9月等级考试辅导 二级VisualBasic 第七讲过程 P20局部变量和全局变量 定义在过程中的静态变量 static 在每次执行该过程时会保留上次执行的结果 2006年9月33题 以下叙述中错误的是A 语句 Dima bAsInteger 声明了两个整型变量B 不能在标准模块中定义Static型变量C 窗体层变量必须先声明 后使用D 在事件过程或通用过程内定义的变量是局部变量 2004年9月第8题 在窗体上画一个名称为Command1的命令按钮 然后编写如下事件过程 PrivateSubCommand1 Click StaticxAsIntegerClsFori 1To2y y xx x 2NextPrintx yEndSub程序运行后 连续三次单击Command1按钮后 窗体上显示的是A 42C 1230D 46 B 1218 2002年9月26题 在窗体上画一个名称为Commandl的命令按钮 然后编写如下程序 PrivateSubCommand1 Click StaticXAsInteger StaticYAsInteger Cls Y 1 Y Y 5 X 5 X PrintX Y EndSub 程序运行时 三次单击命令按钮Commandl后 窗体上显示的结果为A 1516C 1515D 56 B 156 P101考点1Sub过程 一 建立Sub过程 Static Private Public Sub过程名 参数表 语句块 ExitSub 语句块 EndSub PrivateSubabc xAsInteger IfSgn x 1ThenMsgBox 输入的是正数 ElseIfSgn x 1ThenMsgBox 输入的是负数 ElseMsgBox 输入的0 EndIfEndSub 子程序过程 P102调用Sub过程 1 用Call语句调用Sub过程Call过程名 实际参数 2 把过程名作为一个语句来使用过程名实际参数与第一种方式相比 它有两点不同 1 去掉关键字Call 2 去掉 实际参数 的括号 PrivateSubCommand1 Click DimaAsIntegera InputBox entera Callabc a EndSubPrivateSubabc xAsInteger IfSgn x 1ThenMsgBox 输入的是正数 ElseIfSgn x 1ThenMsgBox 输入的是负数 ElseMsgBox 输入的0 EndIfEndSub PrivateSubCommand1 Click DimaAsIntegera InputBox entera abcaEndSubPrivateSubabc xAsInteger IfSgn x 1ThenMsgBox 输入的是正数 ElseIfSgn x 1ThenMsgBox 输入的是负数 ElseMsgBox 输入的0 EndIfEndSub 通用过程只有通过事件过程调用才能被执行 P103 2007年9月选择题第30题 下面程序的输出结果是 PrivateSubCommand1 Click ch ABCDEF procchPrintchEndSubPrivateSubproc chAsString s Fork Len ch To1Step 1s s Mid ch k 1 Nextkch sEndSub A ABCDEF C A D F B FEDCBA 上机真题 例 捷成62 3 上机真题8 1 例 捷成37 5 P104考点2Function过程 Static Private Public Function过程名 参数 As数据类型 语句块 过程名 表达式 ExitFunction 语句块 EndFunction PrivateSubCommand1 Click DimaAsSingleDimbAsSinglea InputBox entera b InputBox enterb s xiebian a b PrintsEndSubPrivateFunctionxiebian b1AsSingle b2AsSingle AsSinglexiebian b1 2 b2 2 1 2 EndFunction 函数过程 P104考点2Function过程 说明 1 调用Sub过程相当于执行一个语句 不直接返回值 调用Function过程要返回一个值 因此可以像内部函数一样在表达式中使用 2 过程定义不可嵌套 因而不能在事件过程中定义通用过程 但可在事件过程内调用通用过程 过程不可嵌套定义 但可嵌套调用 真题 P105 3P105 4 2003年9月23题 设有如下通用过程 PublicFunctionf xAsInteger DimyAsIntegerx 20y 2f x yEndFunction在窗体上画一个名称为Command1的命令按钮 然后编写如下事件过程 PrivateSubCommand1 Click StaticxAsIntegerx 10y 5y f x Printx yEndSub程序运行后 如果单击命令按钮 则在窗体上显示的内容是A 105B 205 D 1040 C 2040 上机真题 例 捷成36 4 过程参数设置原则 逆向思维 函数过程 当过程被调用时需外界给定的值作为参数子程序过程 过程调用时需外界给定的值以及过程执行结束时需得到的值作为过程参数 P106考点3参数传送 行参 过程定义时的参数实参 过程调用时的参数 P106考点3参数传送 一 参数传递 PrivateSubCommand1 Click DimaAsSingleDimbAsSinglea InputBox entera b InputBox enterb s xiebian a b PrintsEndSubPrivateFunctionxiebian b1AsSingle b2AsSingle AsSinglexiebian b1 2 b2 2 1 2 EndFunction 形参 实参 传地址 实参为变量名或数组 形参ByRef声明传值 实参为常量或表达式 形参ByVal声明 4 6 a 1 b 2 c 3 d 4Calltest1 a b c d Printa b c d PrivateSubtest1 b c d e e b c dEndSub 1236 内存单元 传地址ByRef 传地址调用 形参改变 实参发生对应变化 形参和实参类型必须一致 2004年9月22题 在窗体上画一个名称为Command1的命令按钮 并编写如下程序 PrivateSubCommand1 Click DimxAsIntegerStaticyAsIntegerx 10y 5Callf1 x y Printx yEndSubPrivateSubf1 ByRefx1AsInteger y1AsInteger x1 x1 2y1 y1 2EndSub程序运行后 单击命令按钮 在窗体上显示的内容是A 105B 125C 107 D 127 P108 2006年4月选择题第25题 在窗体上画1个命令按钮 其名称为Commandl 然后编写如下程序 PrivateSubCommand1 Click Dima 10 AsIntegerDimxAsIntegerFori lTo10a i 8 iNextx 2Printa f x x EndSubFunctionf xAsInteger x x 3f xEndFunction程序运行后 单击命令按钮 输出结果为 A 12 B l5 C 17 D 18 a 1 b 2 c 3 d 4Calltest2 a b c d Printa b c d PrivateSubtest2 b c d ByVale e b c dEndSub 1234 4 6 内存单元 传值ByVal 传值调用 形参改变 不影响实参 P11513题 2005年4月选择题29题 在窗体上画一个名称为Command1的命令按钮 然后编写如下通用过程和命令按钮的事件过程 PrivateFunctionfun ByValmAsInteger IfmMod2 0Then fun 2 Else fun 1 EndIfEndFunctionPrivateSubCommand1 Click DimiAsInteger sAsInteger s 0 Fori 1To5 s s fun i Next Prints EndSub程序运行后 单击命令按钮 在窗体上显示的是 A 6 B 7 C 8 D 9 P108数组参数 用数组作为过程的参数时 应在数组名的后面加上一对括号 1 要把整个数组作参数传递给过程 形参与实参都要使用数组名 但要省略数组的上下界 且保留括号 2 整个数组作参数传递时 只能传地址 3 单个数组元素作参数传递给过程时 实参要指明元素的下标 4 在过程中可以使用LBound 和UBound 函数来确定数组的上下界 上机真题 例 捷成21 5 P63 上机真题6 2 例 捷成29 4 上机真题 例 捷成33 3 P103 2006年9月选择题第26题 SubsubP b AsInteger Fori 1To4b i 2 iNextiEndSubPrivateSubCommand1 Click Dima 1To4 AsIntegera 1 5a 2 6a 3 7a 4 8subPa Fori 1To4Printa i NextiEndSub A 2 B 5 C 10 D 出错461267148816 P109 2003年9月选择题第24题 设有如下通用过程 PublicSubFun a ByValxAsInteger Fori 1To5 x x a i NextEndSub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮 然后编写如下的事件过程 PrivateSubCommand1 Click Dimarr 5 AsVariant Fori 1To5 arr i i Next n 10 CallFun arr n Text1 Text n EndSub 程序运行后 单击命令按钮 则在文本框中显示的内容是 A 10 B 15 C 25 D 24 上机真题8 4 例 捷成26 4 数组作为过程参数形参 数组名 括号不可省 括号内不带下标 实参 可以是数组名或数组名 若带括号 不带下标 P110可选参数和可变参数 可选参数在过程的形参列表中加入Optional关键字 就可以指定过程的参数为可选的 如果指定了可选参数 则参数表中此参数后面的其它参数也必是可选的 并且要用Optional关键字来声明 例 求两个数的和的函数过程 PublicFunctionmysum firstAsInteger secondAsLong Optionalthird mysum first secondIfNotIsMissing third Thenmysum mysum thirdEndFunction PrivateSubCommand1 Click DimaAsInteger bAsLong cAsDoubleDimsumAsIntegera 10 b 20Sum mysum a b Print sum Suma 10 b 20 c 30Sum mysum a b c Print sum SumEndSubIsMissing 检测可选参数是否被省略 P110可选参数和可变参数 P111考点5对象参数 对象作为参数的格式为 Sub过程名 形参表 语句块 ExitSub EndSub 形参表 中形参的类型通常为Control或Form 注意 在调用含有对象的过程时 对象只能通过传地址方式传送 因此在定义过程时 不能在其参数前加关键字ByVal P111 考点5对象参数 一 窗体参数当形参表中的形参的类型为Form时 是把窗体作为函数的参数 它通常用在对一批窗体进行相同的属性设置 二 控件参数当形参表中的形参的类型为Control时 是把控件作为函数的参数 它通常用在对一批控件进行相同的属性设置 P111 2004年9月选择题第21题 设一个工程由两个窗体组成 其名称分别为Form1和Form2 在Form1上有一个名称为Command1的命令按钮 窗体Form1的程序代码如下 PrivateSubCommand1 Click DimaAsIntegera 10Callg Form2 a EndSubPrivateSubg fAsForm xAsInteger y IIf x 10 100 100 f Showf Caption yEndSub运行以上程序 正确的结果是 A Form1的Caption属性值为100 B Form2的Caption属性值为 100 C Form1的Caption属性值为 100 D Form2的Caption属性值为100 P112 2006年4月选择题第28题 窗体上有名称分别为Textl Text2的2个文本框 要求文本框Textl中输入的数据小于500 文本框Text2中输入的数据小于1000 否则重新输入 PrivateSubTextl LostFocus CallChecckInput Textl 500 EndSubPrivateSubText2 LostFocus CallCheckInput Text2 1000 EndSubSubCheckInput