2017宁波版信息技术九年级系列课件 第七课 循环结构程序设计

Caption
Caption
加密ຫໍສະໝຸດ Baidu
解密
凯撒密码器代码设计
• • • • • • • • • • • • • • Private Sub Command1_Click() Dim s1 As String, s2 As String, s3 As String Dim a As Integer s1 = "" s2 = "" s3 = "" a = Len(Text1.Text) For i = 1 To a s1 = Mid(Text1.Text, i, 1) '取一个字符 s2 = Chr(Asc(s1) + 3) '退后三位 s3 = s3 + s2 '组成新字符串 Next i Text2.Text = s3 End Sub
凯撒加密器流程图
开始
输入字符串
i?1,s3为空 L?字符串长度
i<=L? S1?字符串第i个位置取1个字 符 字母s1退后三位即s2?s1+3
S2加入字符串s3即s3?s3+s2
i?i+1
输出s3 结束
界面设计
Label2 Label3 Label1 Label4
Text1
Text2
Text3
Command1
第七课 循环结构 程序设计
宁波版九年级信息技术（VB）
（附P33练一练及凯撒密码器的VB源程序）
2017,6
学习目标
• 掌握For…Next循环语句 • 初步掌握循环结构程序设计方法
For…Next循环语句
• • • •
当循环次数确定时，可以用For…Next语句，格式为: For 循环变量=初值 To 终值[Step 步长] 循环体 Next 循环变量
练一练2 题目
• 编写一个相邻字母互换的加密程序。字母A、B互换，C、 D互换……Y、Z互换。如明文“ABCDE”，密文为 “BADCF”
练一练2 VB源程序（加密代码）
• • • • • • • • • • • • • • • • • • Private Sub Command1_Click() Dim s1, s2, s3 As String Dim a As Integer s1 = "" s2 = "" s3 = "" a = Len(Text1.Text) For i = 1 To a s1 = Mid(Text1.Text, i, 1) If Asc(s1) Mod 2 = 0 Then s2 = Chr(Asc(s1) - 1) ElseIf Asc(s1) Mod 2 = 1 Then s2 = Chr(Asc(s1) + 1) End If s3 = s3 + s2 Next i Text2.Text = s3 End Sub
凯撒解码器代码设计
• • • • • • • • • • • • • • Private Sub Command2_Click() Dim s1 As String, s2 As String, s3 As String Dim a As Integer s1 = "" s2 = "" s3 = "" 凯撒密码器代码设计 a = Len(Text2.Text) For i = 1 To a s1 = Mid(Text2.Text, i, 1) s2 = Chr(Asc(s1) - 3) s3 = s3 + s2 Next i Text3.Text = s3 End Sub
应用程序效果图
知识林
ASCII码
•
ASCII码是字母、数字、符号等信息编 码，它的全称是“美国信息交换标准代码 ”。如：A-Z对应的编码是65-90，a-z对应 的编码是97-122,0-9对应的是48-57.VB中， Chr()函数返回相应的字符，Asc()函数则 返回字符值，例如， Chr(68)=“D”,Asc(“A”)=65
For 循环流程图
上一条语句 循环变量赋初值 N
循环变量在终值内？ Y 循环变量加步长 语句组
下一条语句
例如
• 以下代码可以实现在窗体 上单击后显示1~20的数字 • Private Sub Form_Click() • For i = 1 To 20 • Print i • Next i • End Sub
Command2
属性设计
对象名 Label1 Label2 属性名 Caption Caption 属性值 凯撒密码器 明文
Label3 Label4
Text1 Text2 Text4
Caption Caption
text text text
密文 明文
（空） （空） （空）
Command1
Command2
知识林
• • • • • • • • • • • • • • Do…Loop循环语句 当循环次数不确定时，常用Do…Loop语句，格式为： Do While 条件表达式 循环体 Loop 如： 屏幕显示1~20的数字，用Do…Loop语句实现如下： Private Sub Form_Click() i=1 Do while i<21 Print i i=i+1 Loop End Sub
练一练2 VB源程序（解密代码）
• • • • • • • • • • • • • • • • • • Private Sub Command2_Click() Dim s1, s2, s3 As String Dim a As Integer s1 = "" s2 = "" s3 = "" a = Len(Text2.Text) For i = 1 To a s1 = Mid(Text2.Text, i, 1) If Asc(s1) Mod 2 = 0 Then s2 = Chr(Asc(s1) - 1) ElseIf Asc(s1) Mod 2 = 1 Then s2 = Chr(Asc(s1) + 1) End If s3 = s3 + s2 Next i Text3.Text = s3 End Sub
小结
• • • •
当循环次数确定时，可以用For…Next语句，格式为: For 循环变量=初值 To 终值[Step 步长] 循环体 Next 循环变量
Thank You！
练一练1 VB源程序
输入数字a,求和S=1+2+…+a的值 • • • • • • • • • • Private Sub Command1_Click() Dim i As Integer, s As Integer, a As Integer a = Text1.Text i=1 s=0 For i = 1 To a Step 1 s=i+s Next i Text2.Text = s End Sub