4.4过程和函数.docx

自定义函数复习任务单 姓名：Function 函数名(参数表) As 类型名 函数名=表达式End Function 自定义函数相关知识包括自定义函数声明模块和自定义函数调用。 声明模块的一般格式是【知识回顾】十进制转二进制Private Sub Command2_Click() Dim a As Integer a = Val(Text1.Text) Text2.Text = _End SubFunction cc(x As Integer) As StringDo While x 0 r = x Mod 2 x = x 2 _LoopEnd FunctionPrivate Sub Command1_Click() Dim x ,r As Integer X=val(text1.text) Do While x 0 r = _ x = x 2 t = _ LoopText2.text=tEnd sub【小组大比拼】1.一个程序实现下列功能:在文本框Text1中输入一个数,在文本框text2中输入需要转换数的进制（小于等于16）,点击转换按钮,在标签 Label3输出转换后的十进制数，程序运行界面如下： Private Sub Command1_Click()Dim s As String, k As Integers = Text1.Textk = Val(Text2.Text)Label3.Caption = 对应的十进制数: + _End SubFunction toD(s As String, k As Integer) As IntegerDim ans As Integer, x As IntegerFor i = 1 To Len(s)If Mid(s, i, 1) = A And Mid(s, i, 1) 0 r=n Mod b n=n b _LoopEnd Function【智力大冲浪】编写“不同进制数排序”的VB程序,功能如下,在文本框,text1、text2、text3、text4中分别输入二进制数、八进制数、十进制数、十六进制数，单击“判断大小”按钮command1,在标签label5中显示比较的结果,程序运行界面如图所示,根据上述描述设计了如下VB程序，请回答下列问题。（1）若文本框text1、text2、text3、text4依次输入11110、37、23、2D，则标签label5中显示的结果为_(2)请在划线处填入合适的代码Private Sub Commandl ClickDim c As string,s as stringDim a(1 to 4) as stringDim b(1 to 4) as integer a(1)=Text1.text:a(2 )=Text2 Tert:a(3)=Text3 Text: a(4)=Text4.text b(1)=conv(a(1),2)b(2)=conv(a(2),8)b(3)=conv(a(3),10) b(4)=conv(a(4),16)For i = 4 To 2 Step -1 k = i For j = 1 To i - 1 If _ Then k = j Next j If ik Then t = b(i): b(i) = b(k): b(k) = t c = a(i): a(i) = a(k): a(k) = c End IfNext iFor i = 1 To 3 _Next iLabel5.Caption = s + a(4)End SubFunction conv(st As String, n As Integer) As IntegerDim i As Integer, k As Integer, p As IntegerFor i = 1 To Len(st) p = val ( Mid(st, i + 1, 1)conv = _Next iEnd FunctionFunction change(st As String) As IntegerEnd Function【真题大演练】某数据加密方法描述如下：(1)以字节为单位进行加密处理；(2)将1个字节的8位二进制数分割成前4位与后4位两个二进制数；(3)分别将上述两个4位二进制数转换为十进制数；(4)将每个十进制数转换为1个加密字符，对应的“密码表”如下：值(十进制)0123456789101112131415加密字符IlikeCHNP0stcard小明按照上述方法，设计了一个字符串（仅包含ASCII字符）加密的VB程序，功能如下:单击“加密”按钮Commandl,程序依次将文本框Textl中每个字符的ASCII码值作为1个字节转换为两个加密字符，连接这些加密字符，最后在文本框Text2中输出加密结果。下表显示了字符串中一个字符的加密过程：程序运行效果如第17题图所示。实现上述功能的VB程序如下：（1）请在划线处填入合适代码。Private Sub Command1_Click()Dim n As Integer, s As String, i As Integer, ss As StringDim a As Integer 存储加密前字符的ASCII码Dim b1 As Integer, b2 As Integer 分别存储分割、转换后的两个十进制数s = Text1.Text For i = 1 To n a = Asc(Mid(s, i, 1) b1 = a 16 b2 = a Mod 16 ss = _Text2.Text = ssNext iEnd Sub十进制值转换为加密字符的函数Function Code2Char(c As In