过程和自定义函数

过程与自定义函数自定义函数定义及调用方法一、数组变量用来存储一批同类型的数据。一维数组：

Dim数组名(A1ToA2)

As元素类型如：DimScore(1To50)AsIntegerDimscore（50）asinteger在VB中，要定义一个一维数组a，用于存储100个整数型数值，则正确的数组定义语句是

（A）Dima100AsInteger（B）Dima(1-100)AsInteger

（C）Dima(1，100)AsInteger（D）Dima(1To100)AsInteger下标的下界下标的上界Score(1)Score(2)Score(3)Score(4)Score(5)……Score(50)二、二维数组二维数组：用来存储一个二维表格的数据

Dim数组名(A1ToA2,B1ToB2)

As元素类型如：DimPrice(1to3,1to5)AsDouble问：dimscore（0to3,1to6)asstring有几个变量？是什么类型的变量？Price(1,1)Price(1,2)Price(1,3)Price(1,4)Price(1,5)Price(2,1)Price(2,2)Price(2,3)Price(2,4)Price(2,5)Price(3,1)Price(3,2)Price(3,3)Price(3,4)Price(3,5)例证性试题1、在VisualBasic中，语句DimbAsDouble所定义的变量b是

（A）整数型（B）单精度实数型（C）双精度实数型（D）长整数型2、在VisualBasic中，语句Dimb(1To5)AsInteger所定义的数组b的维数是

（A）1（B）2（C）3（D）43、在VisualBasic中，用变量存储560位学生的身高数据（如：1.76），下列最合适的变量说明是（A）将560个变量说明为整数型（B）将560个变量说明为单精度实数型（C）将一个元素个数为560的一维数组说明为整数型（D）将一个元素个数为560的一维数组说明为单精度实数型数组应用有如下vb程序段：PrivateSubCommand1_Click()Dima(1To3)AsIntegera(1)=1a(2)=a(1)+3a(3)=a(1)+a(2)Printa(3)EndSub执行完毕后，屏幕上显示的是（）A.1B.3C.5D.9出错有如下vb程序段：PrivateSubCommand1_Click()dima(6)asintegera(1)=35a(7)=65Text1.text=a(1)EndSub调试程序时，出现如下图所示错误，引起此错误的语句使dima(6)asintegerB.a(1)=35C.a(7)=65D.Text1.text=a(1)出错有如下vb程序段：PrivateSubCommand1_Click()dima(6)asintegera(1)=35a(7)=32768Text1.text=a(1)EndSub调试程序时，出现如下图所示错误，引起此错误的语句使dima(6)asintegerB.a(1)=35C.a(7)=65D.Text1.text=a(1)二、过程与函数VB应用程序是按模块化方式组成的，程序模块分为过程与函数。过程：事件处理过程+通用过程，可以被重复调用。函数：被重复调用，计算结果被返回供程序继续处理。Function函数名（参数表）as类型名

语句块EndFunctionSub事件处理过程名（参数表）

语句块EndSub事件处理过程名：对象名_事件的标准名Text_click,text_Dblclick、text_keypress、text_change函数名的命名规则与变量名相同类型名是用来声明函数返回值的类型函数语句块中一般有“函数名=表达式”的语句，其作用就是确定函数的返回值Functionf(xasinteger)asbooleanifxmod2=0thenf=trueelsef=falseEndfunction求f（4）的值注意：定义时语句块中至少有一个：函数名=表达式

整个函数有一个返回值即该函数的值

函数名命名规则与变量名相同三、函数调用举例要求从某一字符串中删除指定的字符（假设所含的英文字母均为小写字母）,并将处理后的字符串重新输出。程序界面如图所示，在文本框text_1中输入原始字符串，在文本框text_2中输入需要删除的字符，单击“删除此字符”按钮（command1）后，在文本框text_3)中输出处理后的结果。解决此问题的算法流程图如图所示，相应的vb程序如下：DimpAsString,kAsStringPrivateSubCommand1_Click()DimsAsInteger,resultAsString,flagAsBooleanresult=""p=text_1.Textk=Text_2.TextFors=1ToLen(p)flag=f(s)IfNotflagThenresult=result+_______EndIfNexts________EndSubFunctionf(sAsInteger)AsBooleanIfMid(p,s,1)=kThenf=TrueEndFunction函数调用实例函数调用实例值(十进制)0123456789101112131415加密字符IlikeCHNP0stcard[2015.10]17.【加试题】某数据加密方法描述如下：(1)以字节为单位进行加密处理；(2)将1个字节的8位二进制数分割成前4位与后4位两个二进制数；(3)分别将上述两个4位二进制数转换为十进制数；(4)将每个十进制数转换为1个加密字符，对应的“密码表”如下：小明按照上述方法，设计了一个字符串（仅包含ASCII字符）加密的VB程序，功能如下:单击“加密”按钮Commandl,程序依次将文本框Textl中每个字符的ASCII码值作为1个字节转换为两个加密字符，连接这些加密字符，最后在文本框Text2中输出加密结果。下表显示了字符串中一个字符的加密过程：程序运行效果如第17题图所示。实现上述功能的VB程序如下：（1）请在划线处填入合适代码。PrivateSubCommand1_Click()DimnAsInteger,sAsString,iAsInteger,ssAsStringDimaAsInteger'存储加密前字符的ASCII码Dimb1AsInteger,b2AsInteger'分别存储分割、转换后的两个十进制数s=Text1.Text①Fori=1Tona=Asc(Mid(s,i,1))b1=a\16b2=aMod16ss=ss+Code2Char(b1)+Code2Char(b2)Text2.Text=ssNextiEndSub'十进制值转换为加密字符的函数FunctionCode2Ch