月二级VB等级考试辅导第7次

《月二级VB等级考试辅导第7次》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、2011年9月等级考试辅导二级VisualBasic第七讲过程第8章Sub过程2第3章变量作用域1第8章Function过程3数组参数4第8章对象参数5P20局部变量和全局变量名称作用域声明位置使用语句局部变量过程过程中Dim或Static模块变量窗体模块或标准模块模块的通用声明段Dim或Private全局变量整个应用程序标准模块的声明部分Public或Global定义在过程中的静态变量（static）在每次执行该过程时会保留上次执行的结果2006年9月33题以下叙述中错误的是A）语句“Dima,bAsInteger”声明了两个整型变量B）不能在标准模块中定义Static型变量C

2、）窗体层变量必须先声明，后使用D）在事件过程或通用过程内定义的变量是局部变量2004年9月第8题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()StaticxAsIntegerClsFori=1To2y=y+xx=x+2NextPrintx,yEndSub程序运行后，连续三次单击Command1按钮后，窗体上显示的是A)42C)1230D)46B)12182002年9月26题在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：PrivateSubCommand1_Click()

3、StaticXAsIntegerStaticYAsIntegerClsY=1Y=Y+5X=5+XPrintX,YEndSub程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为A)1516C)1515D)56B)156P101考点1Sub过程一、建立Sub过程[Static][Private

4、Public]Sub过程名([参数表])语句块[ExitSub][语句块]EndSubPrivateSubabc(xAsInteger)IfSgn(x)=1ThenMsgBox"输入的是正数"ElseIfSgn(x)=-1The

5、nMsgBox"输入的是负数"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(

6、x)=-1ThenMsgBox"输入的是负数"ElseMsgBox"输入的0"EndIfEndSubPrivateSubCommand1_Click()DimaAsIntegera=InputBox("entera")abcaEndSubPrivateSubabc(xAsInteger)IfSgn(x)=1ThenMsgBox"输入的是正数"ElseIfSgn(x)=-1ThenMsgBox"输入的是负数"ElseMsgBox"输入的0"EndIfEndSub通用过程只有通过事件过程调用才能被执行P103（2007年9月选择题第30题）下面程序的输出结果是________。Pri

7、vate Sub Command1_Click()ch$=”ABCDEF”procchPrintchEnd SubPrivate Subproc(chAs String)s=""For k=Len(ch) To 1 Step-1s=s&Mid(ch,k,1)Next kch=sEnd Sub（A）ABCDEF（C）A（D）F（B）FEDCBA上机真题【例】捷成62-3上机真题8.1【例】捷成37-5P104考点2Function过程[Static][Private

8、Public]Function过程名([参数])[As数据类型]语句块[过程名=表达式][ExitFu

9、nction][语句块]EndFunctionPrivateSubCommand1_Click()DimaAsSingleDimbAsSinglea=InputBox("entera")b=InputBox("enterb")s=xiebian(a,b)PrintsEndSubPrivateFunctionxiebian(b1AsSingle,b2AsSingle)AsSinglexiebian=(b1^2+b2^2)^(1/2)EndFunction函数过程P104考点2Fun