高二下高教版可视化编程应用基础—Visual Basic2.7 挑战正话反说（一）课件

2.7 挑战正话反说（一） 可视化编程应用基础——visual Basic (陈建军) 1 新课导入——正话反说游戏 1、我看书 （书看我） 2、我喝牛奶 （奶牛喝我） 3、累太是但，玩好 （好玩，但是太累） 4、上海自来水来自海上 （上海自来水来自海上 ） 2 正话反说程序 利用计算机程序可以高效、准确的进行正话反说：（图片链接源程序） 3 任务1：正话反说界面设计 Label标签 Label标签 Label标签 Text文本框 按钮 4 任务2：正话反说编码实现 在文本框text1中输入正话内容，单击开始按钮，在label3中显示转换的反话。程序需反向遍历文本框text1中输入的字符串，并将遍历的每个字符进行连接，形成反向字符串。 5 知识集中营 字符串长度函数len： 实现字符串字符个数（即长度）的求解，如len(s) 求子串函数mid 用于取字符串的子串，如mid(s,m,n)表示从从s字符串m的位置起连续取n个字符。 字符连接符：+或& 用于连接字符形成字符串。 如”a”+”b”=“ab”、”a”&”b”=“ab” 6 代码参考 反向遍历字符串s的方法 For i=len(s) to 1 step -1 a=a&mid(s,i,1) next print a x = Text1.Text n = Len(x) s = "" For i = n To 1 Step -1 a = Mid(x, i, 1) s = s + a Next Label2.Caption = s 7 任务3：挑战正话反说界面设计 如果将文本框与标签对调一下，即正话用标签显示，要求学生在文本框里输入反话——挑战正话反说。界面如下： 8 任务4：挑战正话反说编码实现 功能要求：单击“开始”按钮，在标签2中中显示正话，当文本框中输入时，正话隐藏，输入完成后，单击“挑战”按钮，验证反说结果是否正确。 程序需反向遍历文本框text1中输入的字符串，并将遍历的每个字符进行连接，形成反向字符串。将反向字符串与正话进行比较，如果相同，则挑战成功，否则挑战失败。 参考程序： n = Len(Label2.Caption) For i = n To 1 Step -1 a = Mid(Label2.Caption, i, 1) s = s + a Next If Text1.Text = s Then MsgBox "太棒了" End Else MsgBox "继续努力" Text1.Text = "" End If 9 作业 给本程序添加一个功能，实现如果输入的串是回文串，则提示“运气不错，谢谢给了个回文串”。 10 $