Visual Basic程序设计教程第06章.pptVIP

ElseIf (strTemp = a And strTemp = z) Then 如果是小写字母 iAsc = Asc(strTemp) + 5 求加密后的ASCII码 If iAsc Asc(z) Then iAsc = iAsc - 26 Code = Code Chr(iAsc) 加密后字符添加到Code中 Else 如果不是字母，则不加密，连接到Code中 Code = Code strTemp End If I = I + 1 Loop Text2.Text = Code * Else 如果命令按钮显示文字为“解密”，则执行解密 Command1.Caption = 加密 Form1.Icon = LoadPicture(App.Path \secur02b.ico) Label2.Caption = 原 文 strInput = Text2.Text I = 1 Code = Length = Len(strInput) Do While (I = Length) strTemp = Mid(strInput, I, 1) If (strTemp = A And strTemp = Z) Then iAsc = Asc(strTemp) - 5 If iAsc Asc(A) Then iAsc = iAsc + 26 Code = Code Chr(iAsc) * ElseIf (strTemp = a And strTemp = z) Then iAsc = Asc(strTemp) - 5 If iAsc Asc(a) Then iAsc = iAsc + 26 Code = Code Chr(iAsc) Else Code = Code strTemp End If I = I + 1 Loop Text2.Text = Code End If End Sub * （4）运行结果： * 6.3 数组应用程序举例 【例6-8】　输入N名学生的成绩，求平均分、最高分、最低分。N值可以任意指定。 （1）问题分析：可将N名学生的成绩存于一维数组Score中。 ① 设一个存放最大值的变量MaxNum，其初值为数组的第1个元素，即MaxNum=Score(1)； ② 依次将MaxNum与所有数据进行比较，如果数组中的某个数Score(I)大于MaxNum，则用该数替换MaxNum，所有数据比较完后，MaxNum中存放的数即为整个数组的最大数。 求最小值的方法与求最大值的方法类似。 * （2）界面设计：使用带水平滚动条的文本框Text1显示每一名学生的成绩，数据之间用空格分隔。另设3个文本框Text2、Text3和Text4，分别用于显示平均分、最高分和最低分。 （3）代码设计： Option Base 在窗体模块的通用声明段设数组的默认下界为1 Dim Score() As Integer 在窗体模块的通用声明段定义数组Score为动态整型数组 Dim N As Integer, MaxNum As Integer, MinNum As Integer, Average As Single * Private Sub Form_Load() N = Val(InputBox(请输入总人数, , )) 提示用户输入数组元素的个数N ReDim Score(N) 将数组Score定义成具有N个元素 For i = 1 To N Score(i) = Val(InputBox(请输入第 Str(i) 个学生的成绩, 成绩统计, )) Text1.Text = Text1.Text Str(Score(i)) Next i Total = 0 Total用于存放总成绩，设初始值为0 MaxNum = Score(1)