上海海事大学VB4第6章.ppt

* * * * * * * * * * * * * * * * * * 6.3.5 静态变量 声明形式：Static 变量名 [AS 类型] 本章目录 用Static语句声明的过程级变量 程序运行过程中可保留变量的值. 用Dim声明的变量，每次调用过程时重新初始化 例6.10 比较Dim和Static两者的区别。 Sub Form_Click() Dim Count% Count=Count + 1 Print 已单击窗体;Count; 次 End Sub Sub Form_Click() Static Count% Count=Count + 1 Print 已单击窗体;Count; 次 End Sub * 6.4 综合应用 1 数制转换 例6.11编一函数，实现一个十进制整数转换成二、八、十六任意进制的数字字符串；并用内部函数验证。 本章目录 分析：十进制正整数m转换成r进制数，将m不断除r取余数(若余数超过9，还要进行相应的转换，例如10变成A，11变成B等)，直到商为零，以反序得到结果，即最后得到的余数在最高位。 * Function TranDec(ByVal m%, ByVal r%) TranDec = Do While m 0 c = m Mod r If c 9 Then 超过9转换成对应的A～Z十六进制表示形式 TranDec = Chr(c - 10 + 65) TranDec Else TranDec = c TranDec End If m = m \ r Loop End Function * Sub Command1_Click() Dim m0%, r0%, i% m0 = Val(Text1.Text) 输入十进制正整数 r0 = Val(Text2.Text) 输入r进制 If r0 2 Or r0 16 Then MsgBox (数制超出范围): End Text3.Text = TranDec(m0, r0) 调用转换函数，显示转换结果 End Sub Sub Command2_Click() Text4.Text = Oct(Val(Text1.Text)) 调用Oct函数转换成八进制数 End Sub Sub Command3_Click() Text5.Text = Hex(Val(Text1.Text)) 调用Hex函数转换成十六进制数 End Sub * 2.加密和解密 信息加密是信息安全性的措施之一。信息加密有各种方法，最简单的加密方法是将每个字母平移一个位置( 称为密钥)。例如，后移5个位置，这时，A→F，B →G… Y →D，Z→E ，a →f ；解密是加密的逆操作。 例6.12 编一加密和解密的程序，对英文字母加密，密钥为5，其他字符不变；加密后还可再进行解密。 本章目录 * Welcome stud W C 87 IAsc=Asc(C) 92 +5 IAsc90 IAsc=IAsc-26 B 如果密钥为5 ，对取得的一个字符”Ｗ”放入变量Ｃ中， 加密的过程如下： C=Chr(IAsc) 加密思路 过程头如何设置？ 思考：解密思路？ * Function Code(ByVal s$, ByVal Key%) As String Dim c As String * 1, iAsc% Code = For i = 1 To Len(s) c = Mid$(s, i, 1) 取第i个字符 Select Case c Case A To Z 大写字母加序数Key加密 iAsc = Asc(c) + Key If iAsc Asc(Z) Then iAsc = iAsc - 26 加密后字母超过Z Code = Code + Chr(iAsc) Case a To z iAsc = Asc(c) + Key 小写字母加序数Key加密 If iAsc Asc(z) Then iAsc = iAsc - 26 Code = Code + Chr(iAsc)